написанные программы / лаба №2 с отчетом все варианты. / lab2(2)_павловская / lab2(2)

Лабораторный отчет по информатике

«Разветвляющиеся вычислительные процессы».

Вариант № 2

Студента:

Гр.

Факультета:

ОИСТ.

2006.

Цель работы:

Изучение принципов организации разветвляющихся вычислительных процессов.

Задание:

Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат работы вывести в виде текстового сообщения.

Блок-схема:

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

program v2;

var x,y,a,b,r:real;

begin

writeln('vvedite znachenie x,y,r');

readln(x,y,r);

if(r<=0)

then

writeln('error r bolshe 0')

else

if((sqr(r)>=sqr(x)+sqr(y)) and(y>=0) and(y<=r) and (x<=0) and (x>=-r)) or

((y<=0) and (y>=-r) and (x<=r/2) and (x>=0) and(y>=-x*2)) or

((y<=0) and (y>=-r) and (x>=r/2) and (x<=r) and(y>=2*(x-r)))

then

writeln('popadaet')

else

writeln('ne popadaet');

readln;

end.

Вывод:

Введите значения a, b, x, y, r:

12 3 2

Ne popadaet

-1 0 1

Popadaet

34 57 -1

Еrror, r bolshe 0