Презентация на тему Понятие процедуры и функции.Механизм параметров.

возможно, создаваемых несколькими программистами с последующим объединением отлаженных подпрограмм

в единое целое;
экономится оперативная память, так как многократно используемые компоненты (подпрограммы) заносятся в память ЭВМ один раз;
облегчаются изменения программы, так как изменение одной программы не вызывает корректировку других.

одном файле;
тексты подпрограмм расположены в различных файлах и подключаются

директивами компилятора;
подпрограммы организуются как оверлейные структуры и поочередно загружаются на одно и то же место в оперативной памяти ЭВМ;
подпрограммы пишутся на другом языке программирования и подключаются одним из вышеописанных способов;
подпрограммы оформляются как внешние и вызываются из основной программы.

end;
Фактические параметры
Возвращаемые значения
вызов

должен быть описаны перед использованием;
•областью действия идентификатора является та

подпрограмма, в которой они описаны;
•все имена в пределах подпрограммы, в которой они объявлены, должны быть уникальными;
•одноименные локальные и глобальные переменные – это разные переменные;
•при обращении к подпрограмме доступны объекты, которые объявлены в ней и до ее описания.

var i:integer;
    {глобальная переменная -
     описана вне всех подпрограмм}
Заголовок Подпрограммы;
var i:integer;
    {локальная переменная -
     описана после заголовка подпрограммы}
begin
 {Тело подпрограммы}
end;
 
begin
{Тело главной программы}
end.

часть
Begin
Тело функции
:=;
End;
ФУНКЦИЯ
Procedure (

формальных параметров>)
Описательная часть
Begin
Тело функции
End;

ПРОЦЕДУРА

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

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

a:real;
function fact(d:integer) :longint;
var i:integer; q:longint;
begin

q:=1;
for i:=1 to d do
q:=q*i;
fact:=q;
end;
Begin
clrscr;
writeln('введите значения n, m '); readln(n,m);
a:=(3*fact(n)+2*fact(m))/fact(m+n);;
writeln('значение выражения при m= ',m:4,' и n= ',n:4,'равно',a:8:3);
readln; end.

из 10 элементов.
program dif_average1;
const n = 3;
type

mas = array[1 .. n] of real;
var a, b : mas; i : integer; dif : real;
function average(x : mas) : real;
var i : integer; av : real;
begin
av := 0;
for i := 1 to n do
av := av + x[i];
average := av / n;
end;
Begin
for i := 1 to n do read(a[i]);
for i := 1 to n do read(b[i]);
dif := average(a) - average(b);
writeln('Разность значений ', dif:6:2)
end.

В заголовке подпрограммы нельзя вводить новый тип
Function av(x:array[1..10] of real): real;

var i,j:integer;
begin

writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(i*j:4);
writeln; writeln;
end;
end;
var m:integer;
begin
write ('введите размер таблицы Пифагора ');
readln(m);
Pifagor(m);
end.

совместим по присваиванию с типом параметра.
Если в вызывающей программе

описаны переменные
var x : integer; c : byte; y : longint;
то следующие вызовы подпрограммы Р будут синтаксически правильными:
P(x);
P(c);
P(y);
P(200);
P(x div 4 + 1);

procedure swap(var x,y: integer);

var t: integer;
begin
t:=x; x:=y; y:=t;
end;
begin
writeln(‘Введите три числа ');
readln(a,b,c);
if a>b then swap(a,b);
if b>c then swap(b,c);
if a>c then swap(a,c);
writeln(a,' ',b,' ',c);
readln; end.

summa(x,y:real;var z:real);
begin
z:=x+y;
end;
begin
clrscr;
writeln('введите a,b'); readln(a,b);
summa(a,b,s);

writeln(' сумма чисел ',a:3:1,' и ',b:3:1,'

= ',s:3:1);
readln; end.

x,y,z – формальные параметры, локальные переменные

a,b,s – глобальные переменные

a,b,s – фактические параметры

х

y

z

a

b

s

Параметры-значения

Параметр-ccылка

переменные
c
b
0
0
Адрес a
c
b
d
3
0

a:=2
b:=b+1

d:=3



a
3
2
d
0
0
f:=d
Ответ
f
3
c:=b-a
0

= Array[1 .. 100] Of String[100];
TDel = Set

Of Char; 
Var i, count: BYTE; words: TWords;
DEL:Tdel; S:string;
Procedure vvodvivod(var s:string; flag:boolean);
Begin
If flag then Readln(s) Else writeln(s);
End;
Procedure del32(var s:string);
Var p:byte;
begin
Repeat
p := Pos(' ', s);
If p > 0 Then Delete(s, p, 1)
Until p = 0;

If s[1] = ' ' Then Delete(s, 1, 1);
If s[Length(s)] = ' ' Then Delete(s, Length(s), 1);
end;

Function GetWords(s: String; Var mas: TWords;
dels: TDel): Byte;
Var i, p: Byte;
Begin
For i := 1 to Length(s) Do
If s[i] In dels Then s[i] := #32;
Del32(s);
i := 0;
Repeat
p := Pos(' ', s); Inc(i);
If p > 0 Then
Begin mas[i] := Copy(s, 1, p-1); Delete(s, 1, p); End
Else mas[i] := s
Until p = 0;
GetWords := i
End;
Begin
Writeln(‘введите разделители’);
Vvodvivod(s,true);
Del:=[];
For I:=1 to length(s) do
Del:=del+s[i];
Count := GetWords(s, words, del);
For i := 1 To Count Do
vvodvivod(words[i],false);
End.

Заменяем все разделители пробелами

формирование множества разделителей

заполняем массив словами из строки

удаляем лишние пробелы

Удаляем пробелы в начале строки

Удаляем пробелы в конце строки

byte; const a:matr);
Var i,j:

byte;
Begin
For i:=1 to n do
begin
For j:=1 to m do
Write(a[i.j]:5);
Writeln;
End;
End;
Var i,j: byte;
M:matr;
Begin
Randomize;
For i:=1 to 10 do
For j:=1 to 15 do
m[i,j]:=random(20); // 0<=m[i,j]<20
vivod( 10,15,m);
end.

word) : boolean;
type mas_byte = array[0 .. MaxInt]

of byte;
//mas_byte = array[0 .. MaxInt] of byte absolute x;
var n : integer;
begin
n := 0;
while (n < size) and (mas_byte(x)[n] = mas_byte(y)[n]) do
// while (n < size) and (mas_byte[n] = mas_byte(y)[n])
inc(n);
EQ := n = size;
End;
С помощью функции EQ можно сравнить две любые величины.

var a, b : array [1 .. 10] of integer;

EQ(a, b, sizeof(a)) ; { сравнение двух массивов }
EQ(a[2], b[5], 4) ; { сравнение 2-5 элементов массива "a" с 5-8
элементами массива "b", соответственно }

Автоопределенное преобразование

Наложение переменной

: real;
var i:word; s:real;

begin
  s:=0;
  for i:=Low(x) To High(x) Do s:=s+x[I];
 sum:=s;
end;
const a:array [1..5] of real=(1,2,3,4,5.5);
begin
 writeln (sum(a):6:1);
end.

[a, b] .
procedure Input (n:integer;
 var a:array of real);
var i:integer;
begin
 writeln ('Enter

',n,' items of array:');
 for i:=0 to n-1 do read (a[i]);
end;
 
function Kol (var a:array of real;
 x1,x2:real):integer;
var i,k:integer;
begin
 k:=0;
 for i:=Low(a) to High(a) do
  if (a[i]>=x1) and (a[i]<=x2) then k:=k+1;
 Kol:=k;
End;

var x:array [1..7] of real;
    y:array [1..5] of real;
    k1,k2,i:integer;

begin
 Input (7,x);
 Input (5,y);
 k1:=Kol(x,0,3);
 k2:=Kol(y,-1,1);
 writeln ('k1=',k1,' k2=',k2);
end.

(функции), в котором опускается ее имя
type
Proc1 =

Procedure (a, b, c: real; var d: real);
Proc2 = Procedure (var a, b);
РrосЗ = Procedure;
Func1 = Function: String;
Func2 = Function (var s: String): real;

(sin(x)+1)*ехр(-х) и cos1(x) = (cos(x)+1)*ехр(-х).
Uses CRT;
type
Func = Function

(x: real): real;
Procedure PrintFunc(XPos: byte; F: Func);
const
np = 20;
var
x: real;
i: integer;
begin
for i := 1 to np do
begin
x := i * (2 * pi / np);
GotoXY (XPos, WhereY);
WriteLn (x:5:3, F(x):18:5)
end;
end;

Function Sin1(x: real): real; far;
begin
sin1 := (sin(x) + 1) * exp(-x)
end;
Function Cos1(x: real): real; far;
begin
cos1 := (cos(x) + 1) * exp(-x)
end;
begin
ClrScr;
{имя функции передается по адресу}
PrintFunc (1, @sin1);
{Переводим курсор в левый верхний угол}
GotoXY (1,1);
PrintFunc (40, @cos1)
end.

имена соответствующих подпрограмм
type
Proc = Procedure (n: word; var

a: byte);
var
ProcVar: Proc;
x, у: byte;
Procedure Proc1(x: word; var y: byte); far;
begin
if x > 255 then
y := x mod 255
else
у := byte(x)
end;
begin {Главная программа}
ProcVar := @Proc1;
for x := 150 to 180 do
begin
ProcVar (x + 100, у);
Write (у:8)
end
end.

type
FuncType = Function (i: integer): integer;
var
VarFunc: FuncType;
i: integer;
Function MyFunc (count: integer): integer; far;
begin
. . . . .
end; {MyFunc}
begin {Основная программа}
. . . . .
i := MyFunc(1);
{использование результата функции}
. . . . .
VarFunc := @MyFunc;
{Присваивание переменной процедурного типа имени функции MyFunc}
end.

B(A,B: Integer): Forward; . . . . . . .

. . 
Procedure A; Begin . . . . . .
В(3,5);
 . . . . . .
End;
Procedure B; Begin
. . . . . .
A(1,0); . . . . . . . . End;