Паскаль неверное выражение - Pascal

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

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

Решение задачи: «Паскаль неверное выражение»

textual
Листинг программы
program asd;
var a ,s ,d ,f ,z ,x ,c ,v :integer;
begin
   writeln('введите 4 целых числа');
   readln(a ,s ,d ,f);
   if (a<s) then begin 
                   z:=s;
                   x:=a;
                 end
            else begin 
                   z:=a;
                   x:=s;
                 end;
   if (d<f) then begin
                    c:=f;
                    v:=d;
                 end
             else begin 
                    c:=d;
                    v:=f;
                  end;
   if (z<c) then writeln('больше', c)
            else writeln('больше', z);
   if (x<v) then writeln('меньше', x)
            else writeln('меньше', v);
end.

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

  1. Программа начинается с объявления переменных a, s, d, f, z, x, c, v типа integer.
  2. Затем программа выводит сообщение введите 4 целых числа и считывает значения для переменных a, s, d, f с помощью функции readln.
  3. Далее программа сравнивает значения переменных a и s и, если a меньше s, меняет значения переменных z и x на значения переменных a и s соответственно.
  4. Затем программа сравнивает значения переменных d и f и, если d меньше f, меняет значения переменных c и v на значения переменных d и f соответственно.
  5. После этого программа сравнивает значения переменных z и c и, если z меньше c, выводит сообщение больше, в котором значение переменной c заменяется на значение переменной z.
  6. Затем программа сравнивает значения переменных x и v и, если x меньше v, выводит сообщение меньше, в котором значение переменной x заменяется на значение переменной v.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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