Question

Проверьте ,пожалуйста, правильно ли составлена программа.   Задача: Из трёх чисел x,y,z найти наибольшее. Нужно, чтобы в программе было полное ветвление (if логическое условие then оператор 1 else оператор 2) или неполное ветвление (if логическое условие then оператор 1) Program Chislo;Uses Crt;Var x,y,z,p: integer;BeginClrscr;WriteLn ('Введите первое число');ReadLn (x);WriteLn ('Введите второе число');ReadLn (y);WriteLn ('Введите третее число');ReadLn (z);if x>y then p:=x else p:=y;if x>z then p:=x else p:=z;if y>z then p:=y else p:=z;If y>x then p:=y else p:=x;If z>x then p:=z else p:=x;If z>y then p:=z else p:=y;WriteLn ('Наибольшее число:',p);End.

Answer 1

Программа, которую вы предоставили, не решает задачу по поиску наибольшего из трех чисел. В вашем коде есть ошибки в логике. Вместо того чтобы последовательно сравнивать все три числа, вы перезаписываете значение переменной `p` на каждом шаге, что приводит к неверному результату.

Предлагаю исправленный вариант программы:

Program Chislo;
Uses Crt;

Var
  x, y, z, p: integer;

Begin
  Clrscr;
  WriteLn('Введите первое число');
  ReadLn(x);
  WriteLn('Введите второе число');
  ReadLn(y);
  WriteLn('Введите третье число');
  ReadLn(z);

{ Сравниваем x и y }
  if x > y then
    p := x
  else
    p := y;

{ Сравниваем p (максимум из x и y) с z }
  if z > p then
    p := z;

WriteLn('Наибольшее число:', p);
End.

В этом варианте сначала сравниваются числа `x` и `y`, и максимум записывается в переменную `p`. Затем сравнивается полученный максимум (`p`) с числом `z`, и, если `z` больше, то `z` присваивается переменной `p`. Таким образом, в `p` остается максимальное из трех введенных чисел.

Теперь программа должна корректно выполнять задачу по поиску наибольшего числа из трех введенных.