Паскаль неверное выражение - 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.
Объяснение кода листинга программы
- Программа начинается с объявления переменных a, s, d, f, z, x, c, v типа integer.
- Затем программа выводит сообщение
введите 4 целых числаи считывает значения для переменных a, s, d, f с помощью функции readln. - Далее программа сравнивает значения переменных a и s и, если a меньше s, меняет значения переменных z и x на значения переменных a и s соответственно.
- Затем программа сравнивает значения переменных d и f и, если d меньше f, меняет значения переменных c и v на значения переменных d и f соответственно.
- После этого программа сравнивает значения переменных z и c и, если z меньше c, выводит сообщение
больше, в котором значение переменной c заменяется на значение переменной z. - Затем программа сравнивает значения переменных x и v и, если x меньше v, выводит сообщение
меньше, в котором значение переменной x заменяется на значение переменной v.