Проверьте ,пожалуйста, правильно ли составлена программа. Задача: Из трёх чисел x,y,z найти наибольшее. Нужно, чтобы в программе было полное ветвление (if логическое условие then оператор 1 else оператор 2) или неполное ветвл...
Проверьте ,пожалуйста, правильно ли составлена программа. Задача: Из трёх чисел x,y,z найти наибольшее. Нужно, чтобы в программе было полное ветвление (if логическое условие then оператор 1 else оператор 2) или неполное ветвление (if логическое условие then оператор 1) Program Chislo;
Uses Crt;
Var x,y,z,p: integer;
Begin
Clrscr;
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.
Гость
Ответ(ы) на вопрос:
ГостьДа, все верно. Есть только полное ветвление.
ГостьПрограмма составлена правильно, но можно сделать компактнее Program Chislo;
Uses Crt;
Var x,y,z,p: integer;
Begin
Clrscr;
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;
WriteLn ('Наибольшее число:',p);
End. Я вырезал 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; потому что это бесмысленный движения, а так задача работает. Вопросы, неточности в ЛС
Не нашли ответ?
Похожие вопросы