Урок 38

Пример 3

Составить программу с процедурой сложения 2-х чисел, значения вводятся с клавиатуры.

program pr3;

var a,b,s:real;

procedure summa (x,y:real; var s:real);

begin

s:=x+y;

end;

begin

writeln ('Введите 2 числа'); read (a,b);

summa (a,b,s);

writeln ('s=', s);

end.

Пример 4

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

program pr4;

var a,b,s,c,d:real;

procedure maxim (x,y: real; var s:real);

begin

if x<y then s: =y else s: =x;

end;

begin

writeln ('Введите 4 числа '); readln (a,b,c,d);

maxim (a,b,s);

maxim (c,s,s);

maxim (d,s,s);

writeln('max=', s);

end.