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