Точки внутри области
Точки вне области
Результаты
В заштрихованную область попало 1412 точек.
Это составляет 33.619050%.
Текст программы
program lab5
implicit none
real x,y,in,out
logical l,l1,l2
open(1, file='x2.txt')
open(2, file='3-x2.txt')
open(3, file='in.txt')
open(4, file='out.txt')
open(5, file='res.txt')
do x=-10,10,0.2
write(1,*) x,x*x
write(2,*) x,3.-x*x
enddo
do x=-sqrt(3.),sqrt(3.),0.05
do y=0,3.,0.05
l1=y<=x*x.and.y<=3.-x*x.and.x<=0.and.y>=0
l2=y<=3.-x*x.and.y>=x*x.and.x>=0.and.y>=0
l=l1.or.l2
if(l) then
in=in+1
write(3,*) x,y
else
out=out+1
write(4,*) x,y
endif
enddo
enddo
write(5,*) 'В заштрихованную область попало ', int(in), ' точек.'
write(5,*) 'Это составляет ', (in*100.)/(in+out), '%.'
end
Блок-схема
Санкт-Петербургский Государственный Университет
Информационных технологий,
Механики и оптики
Отчет
К экзаменационной работе по информатике
Студент:
Преподаватель:
2004 г.