Здравствуйте Пример 2. Напишем программу на языке Паскаль, используя неполный условный оператор, чтобы присвоить

Лина

51

Добрый день! Чтобы решить данную задачу и написать программу на языке Паскаль, которая будет присваивать переменной у значение наибольшей из четырех величин a, b, c и d, выполним следующие шаги:

1. Объявим переменные:
- у, a, b, c, d (все типа integer).

2. Выведем сообщение о том, что мы ищем наибольшую из четырех величин:
- writeln("Нахождение наибольшей из четырех величин");

3. Запросим у пользователя значения a, b, c и d:
- write("Введите a, b, c, d >> ");
- readln(a, b, c, d);

4. Присвоим переменной у начальное значение a.

5. Сравним значения переменной b с текущим значением у и, если b больше, присвоим у значение b:
- if b > у then
- у := b;

6. Сравним значения переменной c с текущим значением у и, если c больше, присвоим у значение c:
- if c > у then
- у := c;

7. Сравним значения переменной d с текущим значением у и, если d больше, присвоим у значение d:
- if d > у then
- у := d;

8. Выведем результат:
- writeln("у = ", у);

Вот полная программа на языке Паскаль для решения данной задачи:

pascal

program n_10;

var

  у, a, b, c, d: integer;



begin

  writeln("Нахождение наибольшей из четырех величин");

  write("Введите a, b, c, d >> ");

  readln(a, b, c, d);



  у := a;



  if b > у then

    у := b;



  if c > у then

    у := c;



  if d > у then

    у := d;



  writeln("у = ", у);

end.

Теперь, запустив данную программу, вы сможете ввести значения a, b, c и d и получить значение у - наибольшей из этих четырех величин.