oleg20111511
21 lines
1.1 KiB
ObjectPascal
21 lines
1.1 KiB
ObjectPascal
program procedura;
|
|
|
|
var s2,r1,r:integer;
|
|
|
|
//---------------------------------------------------
|
|
function zv(a,b:integer):integer; // функции - это типо те же процедуры, только с конкретным результатом.
|
|
//функция - это и есть результат. отсюда и :integer после скобок
|
|
begin
|
|
zv :=a+b; // у этой функции результатом является сложение переменных a и b
|
|
WriteLn('Помимо этого в функции выполняются любые действия, не связанные с вычислением результата, поэтому эта надпись выведется на экран');
|
|
end;
|
|
//------------------------------------------------
|
|
|
|
begin
|
|
r:=random(5000000);
|
|
r1:=random(5000000);
|
|
WriteLn(r,' ',r1);
|
|
s2:=zv(r,r1); // переменной s2 присваивается результат функции, и так собственно функция и призывается
|
|
WriteLn('Сумма рандомных чисел = ',s2);
|
|
end.
|
|
|