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

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

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

Вариант № 1

Студента:

Гр.

Факультета:

ОИСТ.

2006.

Цель работы:

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

Задание:

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

Блок-схема:

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

program v1;

var y,x,r:real;

begin

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

readln (y,x,r);

if r<=0 then writeln('r ne mozhet bit menshe 0')

else

if ((sqr(r)>=sqr(x)+sqr(y))and(x>=0) and(x<=r*cos(45))and(y>=0)and(y<=r)and(y>=x)) or

(sqr(r)>=sqr(y)+sqr(x))and(x<=0)and(x>=-r*cos(45))and(y<=0)and(y<=x)

then

writeln('vse ok')

else

writeln('not ok');

readln;

end.

Вывод:

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

1 1 1

Not ok

0 0 1

Vse ok

4 2 -1

Еrror, r bolshe 0