Составьте программу для решения задачи на языке Pascal:
1. Найти значение функции а=. Обратите внимание, что выражение записано под знаком корня, значит должно выполняться определенное условие. Значения переменных ввести с клавиатуры.
2. Ввести две переменные и найти разность большей и меньшей из них.
Рассмотреть оба случая, т. е. большей может быть и одна и другая переменная. Переменные нужно сравнить и выполнить вычисления, когда одна из них больше, иначе – вторая будет больше.
Ввести также дополнительную переменную, которая будет обозначать результат вычисления.
MadalinaT
1
26.04.2020 01:12
2
Другие вопросы по теме Информатика
David228666333
26.01.2021 12:51
Pavel1810
26.01.2021 12:51
pavdora073539
26.01.2021 12:50
semaf1345789
26.01.2021 12:49
Nadachansky
26.01.2021 12:48
Vla9D
21.06.2019 10:01
JIuchno
21.06.2019 09:56
mariyavlasova2
03.10.2019 14:05
мерейтурссар
03.10.2019 13:58
Популярные вопросы
- Напишіть рівняння реакції Fe --) FeCl3 --) Fe(OH)3 --) Fe(NO3)3...
2 - Учебний проект по Химии 7класс. Исследование качества воды с различных...
1 - Обществознание Прочитайте текст и ответьте на вопросы...
2 - Вставьте пропущенные слова в текст Роль живого в природе . Укажите правильный...
1 - Как правильно одевать презирвотив...
2 - Подкиньте идей для фанфика желательно по норагами или ангел кровопролития....
2 - Орієнтовний план твору-опису Андрієвський узвіз I. Візитівка Києва. II....
3 - В бассейне семеро пловцов с разноцветными шапочками выясняли, кто старше....
2 - АD – биссектриса треугольника АВС. Докажите, что DС АС....
1 - ,, він був високий на зріст. Діяв розумно, поступово. Прийняв титул ,,...
3
Задача 1:
program P1;
var a,b: real;
begin
write('b = '); readln(b);
if 32 - b < 0 then writeln('error') else begin
a := sqrt(32 - b);
writeln(a:0:4);
end;
end.
Задача 2:
program P2;
var a,b,result: real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a > b then result := a - b else result := b - a;
writeln(result:0:4);
end.