Презентация на тему Функции и процедуры

программы на относительно
самостоятельные фрагменты
Нисходящее программирование – метод конструирования

сложных программ

(вычислений), если параметр объявляется с атрибутом VAR как параметр-переменная.

Процедура на выходе может выдавать несколько значений или ни одного.
Вызов функции можно использовать в списках параметров оператора WRITE (невозможно для процедуры).
В теле функции результат вычислений обязательно присваивается переменной, имя которой совпадает с именем функции.

начала основной части

Структура


begin

end;
Переменные локальные

и глобальные

Структура подпрограммы такая же как основной программы

и всем ее подпрограммам.

Локальные объявлены внутри подпрограммы
и доступны

только ей самой.

Одноименные глобальные и локальные переменные – разные переменные.
Обращение к таким переменным в теле подпрограммы трактуется как к локальным (глобальные не доступны).

: integer) : real

PROCEDURE()
PROCEDURE vsp (x, y: integer; var

m, n: real)

Формальные параметры

списка
фактических параметров

количеством и типом
формальных параметров


d:=beta(3, 4, 7.5)
3,4,7.5 фактические параметры

(константы), перечисляются через запятую

begin
c:=2*c;

d:=2*d;
writeln('udvoennoe:',c:5,d:5);
end;
begin
writeln (' Ishodnoe:',a:5,b:5);
udv (a,b);
writeln(' rezultat:',a:5,b:5); readln
end.

max:=i else max:=j
end;
begin
writeln('Vvedite

a,b');
readln(a,b);
writeln('Maxim=',max(a,b));
readln;
end.

var i: integer; f: longint;

begin f:=1;
for i:=1 to k do f:=f*i;
factorial:=f; end;
begin
repeat
writeln('VVedite n'); readln(n);
if n<0 then writeln('Error')
else writeln(n,'!=',factorial(n));
until eof
end.

longint;
Function Factorial (k:integer):longint;
var i:

integer; f: longint;
begin
f:=1;
for I:=1 to k do f:=f*i;
factorial:=f;
end;

Лист1

b:=Factorial(m);
c:=Factorial(n-m);
d:=a div (b*c);
writeln('Kol sochet iz',n:2,' po',m:2,' =',d:3);
readln;
end.
Лист2

(l,k: integer);
var

i,j: integer;
begin
for i:=1 to l do begin
for j:=1 to k do
write(massiv[i,j]:6);
writeln end;
end;

Лист1

n do
for y:=1 to m do
massiv[x,y]:=1;
massiv_out(n,m);
readln;
end.
Лист2

из нее самой называется рекурсией.
Recurrence – повторение или возвращение

begin
if n=0 then

factorial:=1
else factorial:=n*factorial(n-1)
end;
begin
repeat
writeln('VVedite n'); readln(n);
if n<0 then writeln('Error')
else writeln('n!=',factorial(n));
until eof
end.