Задание

На интервале [-2, 3] графически задана функция

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

Участок

Уравнение

шаг

раз

Примечание

1

[-10; -6]

[0, 180▫]

x=2*cos()-8

y=2*sin()-2

-2

91

Параметрические уравнения окружности радиуса R=2 с центром в точке (-8; -2).

2

[-6, 2]

y =x/2 +1

0.5

17

Прямая пересекает оси в точках (-2,0) и (0,1). Уравнение прямой линии в отрезках.

3

[2; 6]

y=0

-

-

Участок оси Ох

4

[6; 8]

y=(x-6)2

0.02

101

Ветвь параболы с вершиной в точке (6; 0)

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

Полученный график

Контрольная таблица значений

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

(x,y)= -10.000000 -2.000000

(x,y)= -9.969616 -1.652704

(x,y)= -9.879385 -1.315960

(x,y)= -9.732051 -1.000000

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

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

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

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

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

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

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

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

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

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

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

(x,y)= -6.267949 -1.000000

(x,y)= -6.120615 -1.315960

(x,y)= -6.030385 -1.652704

(x,y)= -6.000000 -2.000000

Прямая

(x,y)= -6.000000 -2.000000

(x,y)= -5.500000 -1.750000

(x,y)= -5.000000 -1.500000

(x,y)= -4.500000 -1.250000

(x,y)= -4.000000 -1.000000

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

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

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

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

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

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

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

(x,y)= 0.000000E+00 1.000000

(x,y)= 5.000000E-01 1.250000

(x,y)= 1.000000 1.500000

(x,y)= 1.500000 1.750000

(x,y)= 2.000000 2.000000

Горизонталь

(x,y)= 2 0

(x,y)= 6 0

Ветвь параболы

(x,y)= 6.000000 0.000000E+00

(x,y)= 6.100000 9.999981E-03

(x,y)= 6.200000 3.999992E-02

(x,y)= 6.300000 8.999982E-02

(x,y)= 6.400000 1.599997E-01

(x,y)= 6.500000 2.499995E-01

(x,y)= 6.599999 3.599993E-01

(x,y)= 6.699999 4.899991E-01

(x,y)= 6.799999 6.399988E-01

(x,y)= 6.899999 8.099985E-01

(x,y)= 6.999999 9.999981E-01

(x,y)= 7.099999 1.209998

(x,y)= 7.199999 1.439997

(x,y)= 7.299999 1.689997

(x,y)= 7.399999 1.959996

(x,y)= 7.499999 2.249996

(x,y)= 7.599998 2.559995

(x,y)= 7.699998 2.889994

(x,y)= 7.799998 3.239994

(x,y)= 7.899998 3.609993

(x,y)= 7.999998 3.999992

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

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,*) 'Дуга окружности'

k=0

do alpha=180,0,-2

x=2.*cosd(alpha)-8

y=2.*sind(alpha)-2

write(1,*) x,y

k=k+1

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

enddo

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

Do x= -6, 2, 0.5

y=x/2.+1

Write(2,*) x,y

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

Enddo

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

Write(3,*) 2,0

Write(3,*) 6,0

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

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

Write(tabl,*) 'Ветвь параболы'

k=0

Do x=6, 8, 0.02

y=(x-6.)**2.

Write(4,*) x,y

k=k+1

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

Enddo

End

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

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

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

Отчет

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

Вариант № 8

Студент:

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

2004 г.