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

Отчет по информатике.

Лабораторная работа №2

Вариант №18.

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

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

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

Рисунок с учебника с.229

Блок схема

T

T F

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

program laboratornaya_rabota2;

var x,y,r:real;

begin

writeln(' Vvedite znacheniya x,y,r');

readln(x,y,r);

if (r<=0)

then

writeln(' error, r strogo bolshe 0')

else

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

then

writeln(' Tochka popadaet v oblast')

else

writeln(' Tochka ne popadaet v oblast');

readln;

end.

X	Y	R	Результат
1	1	1	Tochka popadaet v oblast
0	0	1	Tochka ne popadaet v oblast
5	5	-1457	error, r strogo bolshe 0

Результаты