Реферат: Процедуры и функции в языке Паскаль

x=0,4; y=0,6

x=0,5; y=0,2; a=2; b=0,1 при всех значениях x, y

9.

, при a=9,7; b=2,7, a x принимает значения 4,8; 9,6; 0,44.

10.

, при x=0,35; y=0,1;

x=0,82; y=0,12;

x=0,67; y=0,3, a=0,24;

b=4,9 при всех значениях x, y.

Программа, содержащая описание функции выбора меньшего из двух аргументов.

uses crt;

function Min(a, b: integer): integer;

Begin

If a<b then Min:=a

else Min:=b

End;

Var x, y, z: integer;

BEGIN

write (‘Первое число- ’);

readln ( x );

write (‘Второе число- ’);

readln ( y );

z := Min ( x , y );

writeln (‘Меньшее из двух чисел- ’, z );

END .

Программа, содержащая описание процедуры удвоения аргументов.

Uses crt;

Procedure Double (var x, y: integer);

Begin

x:=x+x;

y:=y+y;

End;

Var a, b: integer;