50 БАЛЛОВ
Запишите программу на языке Паскаль (в программе PascalABC.net ) для вычисления функции f, используя операторы ветвления.
Выведите на экран подробную запись полученного значения, например :
writeln(‘Значение функции f= ', f:5:2);
Текст Вашей программы сохраните в файл PascalABC.net. Прикрепить файл программы к этому заданию (нажать кнопку «Загрузить» и найти необходимый файл).
Напишите программу, очень СРОЧНО!!!
Answers & Comments
Ответ:
program gyuefu;
var
f: real;
begin
writeln('Если f>0,то f*f, если f<=0', 'то корень из f', ';');
writeln('Введите f:');
readln(f);
begin
if f > 0 then
writeln('Значение функции f = ', sqr(f), ';') end;
begin
if f <= 0 then
writeln('Значение функции f = ', sqrt(f), ';') end;
end.
Скопируй и вставь в ПаскальABC.