Лабораторный отчет по информатике
«Разветвляющиеся вычислительные процессы».
Вариант № 10
Студента:
Гр.
Факультета:
ОИСТ.
2006.
Цель работы:
Изучение принципов организации разветвляющихся вычислительных процессов.
Задание:
Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную на рисунке серым цветом. Результат работы вывести в виде текстового сообщения.
Блок-схема:
Код программы.
program lab2;
var a,b,x,y,r:real;
begin
writeln('Введите значения a, b, x, y, r' );
readln(a,b,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>=-b) and (x<=0) and(x>=r) or
(sqr(r)<=sqr(x)+sqr(y)) and (y<=b) and (y>=0) and (x<=a) and(x>=r)
then
writeln('точка попадает')
else
writeln('точка не попадает');
readln;
end.
Вывод:
Введите значения a, b, x, y, r:
78 89 45 56 1
Точка попадает
34 1 34 -56 1
Точка не попадает.
-4 -3 36 -5 -5
Еrror, r bolshe 0