Найти наибольшее число Решение

Довольно простая задача и возможно вам следует пропустить её . Однако для некоторых людей разбор будет полезен .

Условие задачи :
Заданы два целых числа ( x и y ) сравнить и найти наибольшее после чего вывести его .

Как и любую другую задачу эту можно решить множеством способов . Разберем самый интересные и полезные .

Условный разбор :

В чем заключается данная задача ? " Заданы два числа ( x и y ) " , из этого следует , что нам понадобятся как минимум две целочисленный переменные ( integer ) . И обе они будут вводиться с клавиатуры . После чего они будут сравниваться ( > , < или = ) . И в конце задачи нужно вывести наибольшее число ( > ) .

Первое решение :

Код

program mypascal;
var
x,y: integer;
begin

  readln(x,y); { Вводим оба числа с клавиатуры }

  if ( x > y ) then
  writeln(x)
  else
  writeln(y);

end.

Вначале программы вводим два целых числа с клавиатуры readln(x,y); .
После чего сравниваем их . Если x больше y , то выводим на экран x , иначе ( x меньше или равно ) выводим y . Вот и все.

Второе решение :

Код

program mypascal;
var
x,y,z: integer;
begin

  readln(x,y); { Вводим оба числа с клавиатуры }

  if ( x > y ) then
  z:= x
  else
  z:= y;

  writeln(z);

end.

Вначале программы вводим два целых числа ( x и y ). После чего сравниваем их если x больше y , то заносим значение переменной x в переменную z , иначе ( x меньше или равно y ) заносим значение переменной y в переменную z . В конце программы выводим число z .

Найти наибольшее число

Условный разбор :

Первое решение :

Второе решение :

Навигация

Поиск

Популярные

Обсуждаемые

Скачать паскаль

Решение задач

Опрос