Задание:
Неравенства Для точек внутри окружности l1=x*x+y*y<=r*r Для точек вне IV четверти l2=.not.(x>=0 .and. y<=0) Общее неравенство для заданной области: l=l1.and.l2.and.y<=x+r |
Результат:
Текст программы
program lab4
implicit none
real alpha, x, y, r/3./
logical l, l1, l2
open(1, file='circle.txt')
open(2, file='line.txt')
open(3, file='inside.txt')
open(4, file='outside.txt')
do alpha=0, 360, 2
x=r*cosd(alpha)
y=r*sind(alpha)
write(1,*) x,y
enddo
do x=-r,0,0.25
y=x+r
write(2,*) x,y
enddo
do x=-2*r,2*r,0.25
do y=-2*r,2*r,0.25
l1=x*x+y*y<=r*r
l2=.not.(x>=0 .and. y<=0)
l=l1.and.l2.and.y<=x+r
if(l) then
write(3,*) x,y
else
write(4,*) x,y
endif
enddo
enddo
end
Блок-схема
Санкт-Петербургский Государственный Университет
Информационных технологий,
Механики и оптики
Отчет
К лабораторной работе по информатике
Вариант № 5
Студент:
Преподаватель:
2004 г.