отчеты по лабораторным работам / лабораторная работа №3, 1 сем. — 5 / var21

Уравнения участков графика

№	Участок	Уравнение	шаг	раз	Примечание
1	[-8; -6]	y=0	-	-	Участок оси Х
2	[-6, -4]	y =-4-x	0.5	5	Прямая задана двумя точками P1=(-6; 2) и P2=(-4; 0)
3	[-4, 4] [-180, 0▫]	x =4*cos  y = 4*sin 	2	91	Параметрические уравнения окружности радиуса R=4 с центром в начале координат.
4	[4, 8]	y = x/2-2	0.5	9	Прямая задана двумя точками P1=(4; 0) и P2=(8; 2)
5	[8; 10]	y=2	-	-	Прямая параллельна оси Х.

Код программы

Program Lab3

Implicit None

Real x, y, alpha

Integer::tabl=6

Integer k

Open(1,File='1.dat')! 1 - горизонталь

Open(2,File='2.dat')! 2 - прямая

Open(3,File='3.dat')! 3 - дуга окружности

Open(4,File='4.dat')! 4 - прямая

Open(5,File='5.dat')! 5 - горизонталь

Open(tabl,file='tabl.txt')! текстовый файл с таблицей

Write(tabl,*) 'Горизонталь'

Write(1,*) -8,0

Write(1,*) -6,0

Write(tabl,*)'(x,y)=',-8,0

Write(tabl,*)'(x,y)=',-6,0

Write(tabl,*) 'Прямая'

k=0

Do x= -6, -4, 0.5

y=-x-4

Write(2,*) x,y

Write(tabl,*)'(x,y)=', x,y

Enddo

Write(tabl,*) 'Дуга окружности'

k=0

Do alpha=-180, 0, 2

y=4*sind(alpha)

x=4*cosd(alpha)

Write(3,*) x,y

k=k+1

if(Mod(k,5)==1) Write(tabl,*)'(x,y)=', x,y

Enddo

Write(tabl,*) 'Прямая'

k=0

Do x= 4, 8, 0.5

y=x/2.-2

Write(4,*) x,y

Write(tabl,*)'(x,y)=', x,y

Enddo

Write(tabl,*) 'Горизонталь'

Write(5,*) 8,2

Write(5,*) 10,2

Write(tabl,*)'(x,y)=',8,2

Write(tabl,*)'(x,y)=',10,2

End

Результаты

Горизонталь

(x,y)= -8 0

(x,y)= -6 0

Прямая

(x,y)= -6.000000 2.000000

(x,y)= -5.500000 1.500000

(x,y)= -5.000000 1.000000

(x,y)= -4.500000 5.000000E-01

(x,y)= -4.000000 0.000000E+00

Дуга окружности

(x,y)= -4.000000 -4.898425E-16

(x,y)= -3.939231 -6.945927E-01

(x,y)= -3.758770 -1.368081

(x,y)= -3.464102 -2.000000

(x,y)= -3.064178 -2.571151

(x,y)= -2.571151 -3.064178

(x,y)= -2.000000 -3.464102

(x,y)= -1.368081 -3.758770

(x,y)= -6.945927E-01 -3.939231

(x,y)= 2.449213E-16 -4.000000

(x,y)= 6.945927E-01 -3.939231

(x,y)= 1.368081 -3.758770

(x,y)= 2.000000 -3.464102

(x,y)= 2.571151 -3.064178

(x,y)= 3.064178 -2.571151

(x,y)= 3.464102 -2.000000

(x,y)= 3.758770 -1.368081

(x,y)= 3.939231 -6.945927E-01

(x,y)= 4.000000 0.000000E+00

Прямая

(x,y)= 4.000000 0.000000E+00

(x,y)= 4.500000 2.500000E-01

(x,y)= 5.000000 5.000000E-01

(x,y)= 5.500000 7.500000E-01

(x,y)= 6.000000 1.000000

(x,y)= 6.500000 1.250000

(x,y)= 7.000000 1.500000

(x,y)= 7.500000 1.750000

(x,y)= 8.000000 2.000000

Горизонталь

(x,y)= 8 2

(x,y)= 10 2

Санкт-Петербургский Государственный Университет

Информационных технологий,

Механики и оптики

Отчет

К лабораторной работе по информатике

Вариант № 21

Студент:

Преподаватель

2004 г.