Разветвляющиеся алгоритмы, вычислить значение выражения - Pascal ABC
Формулировка задачи:
вычислить значение выражения
Решение задачи: «Разветвляющиеся алгоритмы, вычислить значение выражения»
textual
Листинг программы
program z;
var x,a,b:real;
begin
writeln('Введите два числа');
readln(a,b);
if a>b
then
x:=a/b+1
else if a=b
then
x:=-2
else if a<b
then
x:=(a-b)/2;
writeln('Результат: X = ',x);
end.
Объяснение кода листинга программы
- Ввод двух чисел с клавиатуры.
- Сравнение чисел a и b.
- Если a больше b, то присваивание значения a/b+1 переменной x.
- Если a равно b, то присваивание значения -2 переменной x.
- Если a меньше b, то присваивание значения (a-b)/2 переменной x.
- Вывод результата на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д