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 x= -11, -6, 0.25
y=x+9
Write(1,*) x,y
k=k+1
if(Mod(k,3)==1) Write(tabl,*)'(x,y)=', x,y
Enddo
Write(tabl,*) 'Прямая'
k=0
Do x= -6, -3, 0.25
y=-9-2*x
Write(2,*) x,y
k=k+1
if(Mod(k,3)==1) Write(tabl,*)'(x,y)=', x,y
Enddo
Write(tabl,*) 'Дуга окружности'
k=0
Do alpha=180, 0, -2
y=3*sind(alpha)-3
x=3*cosd(alpha)
Write(3,*) x,y
k=k+1
if(Mod(k,5)==1) Write(tabl,*)'(x,y)=', x,y
Enddo
Write(tabl,*) 'Горизонталь'
Write(4,*) 3,-3
Write(4,*) 7,-3
Write(tabl,*)'(x,y)=',3,-3
Write(tabl,*)'(x,y)=',7,-3
End
Прямая
(x,y)= -11.000000 -2.000000
(x,y)= -10.250000 -1.250000
(x,y)= -9.500000 -5.000000E-01
(x,y)= -8.750000 2.500000E-01
(x,y)= -8.000000 1.000000
(x,y)= -7.250000 1.750000
(x,y)= -6.500000 2.500000
Прямая
(x,y)= -6.000000 3.000000
(x,y)= -5.250000 1.500000
(x,y)= -4.500000 0.000000E+00
(x,y)= -3.750000 -1.500000
(x,y)= -3.000000 -3.000000
Дуга окружности
(x,y)= -3.000000 -3.000000
(x,y)= -2.954423 -2.479055
(x,y)= -2.819078 -1.973940
(x,y)= -2.598076 -1.500000
(x,y)= -2.298133 -1.071637
(x,y)= -1.928363 -7.018667E-01
(x,y)= -1.500000 -4.019238E-01
(x,y)= -1.026060 -1.809221E-01
(x,y)= -5.209445E-01 -4.557674E-02
(x,y)= 0.000000E+00 0.000000E+00
(x,y)= 5.209445E-01 -4.557674E-02
(x,y)= 1.026060 -1.809221E-01
(x,y)= 1.500000 -4.019238E-01
(x,y)= 1.928363 -7.018667E-01
(x,y)= 2.298133 -1.071637
(x,y)= 2.598076 -1.500000
(x,y)= 2.819078 -1.973940
(x,y)= 2.954423 -2.479055
(x,y)= 3.000000 -3.000000
Горизонталь
(x,y)= 3 -3
(x,y)= 7 -3