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

Задание

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

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

Число повторений цикла рассчитывается по формуле:

Текст программы:

Program Lab3

Implicit None

Real x, y, alpha

Integer::tabl=5

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(tabl,file='tabl.txt')! текстовый файл с таблицей

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

Do x= -4, -2, 0.25

y=x+3

Write(1,*) x,y

Enddo

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

Do x= -2, 4, 0.5

y=-x/2.

Write(2,*) x,y

Enddo

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

Write(3,*) 4,-2

Write(3,*) 6,-2

Write(tabl,*)'(x,y)=',4,-2

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

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

k=0

Do alpha=180, 0, -2

y=2*sind(alpha)-2

x=2*cosd(alpha)+8

Write(4,*) x,y

k=k+1

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

Enddo

End

Результат

Прямая

(x,y)= -4.000000 -1.000000

(x,y)= -3.750000 -7.500000E-01

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

(x,y)= -3.250000 -2.500000E-01

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

(x,y)= -2.750000 2.500000E-01

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

(x,y)= -2.250000 7.500000E-01

(x,y)= -2.000000 1.000000

Прямая

(x,y)= -2.000000 1.000000

(x,y)= -1.500000 7.500000E-01

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

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

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

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

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

(x,y)= 1.500000 -7.500000E-01

(x,y)= 2.000000 -1.000000

(x,y)= 2.500000 -1.250000

(x,y)= 3.000000 -1.500000

(x,y)= 3.500000 -1.750000

(x,y)= 4.000000 -2.000000

Горизонталь

(x,y)= 4 -2

(x,y)= 6 -2

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

(x,y)= 6.000000 -2.000000

(x,y)= 6.030385 -1.652704

(x,y)= 6.120615 -1.315960

(x,y)= 6.267949 -1.000000

(x,y)= 6.467911 -7.144248E-01

(x,y)= 6.714425 -4.679111E-01

(x,y)= 7.000000 -2.679492E-01

(x,y)= 7.315960 -1.206148E-01

(x,y)= 7.652704 -3.038449E-02

(x,y)= 8.000000 0.000000E+00

(x,y)= 8.347297 -3.038449E-02

(x,y)= 8.684040 -1.206148E-01

(x,y)= 9.000000 -2.679492E-01

(x,y)= 9.285575 -4.679111E-01

(x,y)= 9.532089 -7.144248E-01

(x,y)= 9.732051 -1.000000

(x,y)= 9.879385 -1.315960

(x,y)= 9.969616 -1.652704

(x,y)= 10.000000 -2.000000

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

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

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

Отчет

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

Вариант № 5

Студент:

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

2004 г.