Тема. Программирование разветвляющегося вычислительного процесса.
A. Даны вещественные числа X и Y. Определить принадлежит ли точка с координатами (X,Y) заштрихованной части плоскости. Протестировать все ветви алгоритма.
Код программы для Delphi 7:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var x,y : real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('X=');
Readln(x);
Writeln('Y=');
Readln(y);
if y<=(-(x+1)*(x+1)+1) //условие по Y
then
if (x<=0) and (x>=-2) //условие по X
then
writeln('Prinadlejit')
else
else
writeln('Ne prinadlejit');
Readln;
end.
Блок схема:
 |
Главная
Каталог файлов
