Тема. Программирование разветвляющегося вычислительного процесса.
Задание:
Заданы целые числа a и b. Выяснить, имеет ли точки разрыва функция.
Исходный код программы на Delphi 7:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b: integer;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('A=');
Readln(a);
Writeln('B=');
Readln(b);
if (a+1=1-a*a) and (1-b*b=0) then writeln('g(x) nepreruvna')
else writeln('g(x) ne nepreruvna');
Readln;
end.
Блок схема:
 |
Главная
Каталог файлов
