50 БАЛЛОВ
Запишите программу на языке Паскаль (в программе PascalABC.net ) для вычисления функции f, используя операторы ветвления.
Выведите на экран подробную запись полученного значения, например :
writeln(‘Значение функции f= ', f:5:2);
Текст Вашей программы сохраните в файл PascalABC.net. Прикрепить файл программы к этому заданию (нажать кнопку «Загрузить» и найти необходимый файл).
Напишите программу, очень СРОЧНО!!!
Приложения:
![](https://st.uroker.com/files/e9e/e9e3c27f2cdf34d40f8b1e7daf658684.jpg)
Ответы
Ответ дал:
2
Ответ:
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.
maslikovavitaliya05:
Спасибо огромное!!!
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад