Запишите программу на языке Паскаль (в программе PascalABC.net ) для вычисления функции f, используя операторы ветвления.
Выведите на экран подробную запись полученного значения, например :
writeln(‘Значение функции f= ', f:5:2);
Текст Вашей программы сохраните в файл PascalABC.net. Прикрепить файл программы к этому заданию (нажать кнопку «Загрузить» и найти необходимый файл).
Напишите программу, очень
1КрУтАя1
1
23.04.2020 15:54
1
Другие вопросы по теме Информатика
nikitaviktorov9
08.12.2021 11:17
karinatan12354
08.12.2021 11:22
Moonlight06
05.12.2019 21:18
kapysta123
05.12.2019 21:18
aljoona99
05.12.2019 21:14
ЛблюЗнания
24.05.2019 12:10
kjkrf2300
25.09.2019 05:30
valeriy3fors
25.09.2019 05:30
Популярные вопросы
- Подготовить сообщение о своем хобби. (бадминтон)...
2 - Укажите ряд, в котором все слова пишутся с о. 1) сбереж…шь здоровье, серенькийволч…к...
1 - Напишите знаки точка запитая восклецательный знак и вопросительный скажу тому кто...
3 - М*яч кинули вертикально вниз з висоти 150м. з якою швидкістю його кинули, якщо м*яч...
1 - По слуховому нерву в головной мозг : 1)звуковые волны 2)колебания воздуха 3)направления...
1 - Определите тип речи и стиль речи. выпишите из второго предложения слово, в котором...
1 - Сочинение по пословице бесполезно носитьдрова в лес...
2 - :) указать ряды слов, которые соответствуют схеме: приставка+корень+суффикс+суффик:...
1 - Предложения со словом директор и фамилия...
1 - Найдите значение выражения: (3m-1)(m+1)+(2m-1)(m-+5)(m-2) при m =0,375...
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.