Замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в другом случае - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Даны два действительных числа. замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в противном случае. Напишите код программы и составьте блок-схему.

Решение задачи: «Замените первое число нулём, если оно меньше или равно второму, и оставьте числа без изменения в другом случае»

textual
Листинг программы
var
  x,y:real;
begin
  write('x,y=');
  readln(x,y);
  if x<=y then x:=0;
  writeln('x=',x:0:4,' y=',y:0:4);
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

  1. Объявляются две переменные типа real: x и y.
  2. Выводится сообщение «x,y=», после чего считываются значения переменных x и y с помощью функции readln.
  3. Проверяется условие x <= y. Если оно истинно, то значение переменной x заменяется на ноль.
  4. Выводится сообщение «x=», после чего выводится значение переменной x с добавлением нуля в начало (x:0:4).
  5. Выводится сообщение «y=», после чего выводится значение переменной y с добавлением нуля в начало (y:0:4).

Оцени полезность:

5   голосов , оценка 3.8 из 5
Похожие ответы