Задача

Пользователь вводит с клавиатуры четыре вещественных числа. Необходимо найти максимальное из них и вывести на экран.


Решение

Для того чтобы найти максимальное число из некоторого множества четных чисел, необходимо попарно сравнивать числа и с теми, которые оказались большими, проделать очередное сравнение. В конечном итоге получим одно максимальное число, которое нам и нужно найти. Так как в данном примере необходимо найти наибольшее из 4, то количество операций сравнения будет равно трем.
Нахождение максимума из 4-х чисел 01 Uses Crt;
02 Var a,b,c,d,max,max1,max2 : Real;
03
04 Procedure bol2( aa,bb : Real; var maxmax : Real );
05 Begin
06 If aa>bb Then maxmax:=aa
07 Else maxmax:=bb;
08 End;
09
10 Begin
11 ClrScr;
12 Write('введите a,b,c,d через пробел ');
13 Readln(a,b,c,d);
14 bol2(a,b,max1);
15 bol2(c,d,max2);
16 bol2(max1,max2,max);
17 Writeln('max=',max);
18 Readln
19 End.
01 Uses Crt;
02 Var a,b,c,d,max,max1,max2 : Real;
03
04 Procedure bol2( aa,bb : Real; var maxmax : Real );
05 Begin
06 If aa>bb Then maxmax:=aa
07 Else maxmax:=bb;
08 End;
09
10 Begin
11 ClrScr;
12 Write('введите a,b,c,d через пробел ');
13 Readln(a,b,c,d);
14 bol2(a,b,max1);
15 bol2(c,d,max2);
16 bol2(max1,max2,max);
17 Writeln('max=',max);
18 Readln
19 End.

Пояснения к примеру

Для упрощения поставленной задачи, процесс сравнения выделили в отдельную процедуру, в качестве первых двух параметров передаются сравниваемые числа и третьим переменная для полученного результата сравнения.