Процедураға мысалдар.
1.
PROGRAM Proced 1;
VAR A,B,C,S:Real;
PROCEDURE Ushbur(M,N:Real; VAR T,Q:Real);
BEGIN Readln(A,B);
{негізгі программадан Ushbur проседурасын шақыру:}
Ushbur(A,B,S,C);
Writeln(‘gip=’,C:4:2); Writeln(‘aud=’,S:4:2);
Readln END.
2.
PROGRAM Proced2;
VAR A,B,C:Real;
PROCEDURE Ushbur(M,N:Real; VAR T:Real; VAR Q:Real);
BEGIN T:=M*N/2;
Q:=Sqrt(Sqr(M)+Sqr(N)); END;
BEGIN Readln (A,B);
Ushbur(A,B,S,C);
Writeln(‘gip=’,C:4:2);
Writeln(‘aud=’,S:4:2);
Readln END.
3.
PROGRAM Proced3;
VAR A,B,C,S:Real;
PROCEDURE Ushbur;
BEGIN
S:=A*B/2; C:=Sqrt(Sqr(A)+Sqr(B)); END.
BEGIN READLN(A,B);
Ushbur;
Writeln(‘gip=’,C:4:2);
Writeln(‘aud=’,S:4:2);
Readln END.
4. Екі санның үлкенін табатын процедура
PROGRAM Maxsan;
VAR A,B,Max:Real;
PROCEDURE Maxim(K,I:Real; VAR S:Real); {Maxim процедурасы}
Begin If K>I Then S:=K
Else S:=; End;
BEGIN Write(‘2 сан енгіз:’); Readln(A,B); {негізгі программа}
Maxsim(A,B,Max); Writeln(‘Max=’,Max:4:1); Readln End.
5. Екі санның үлкенін табатын процедураны қолданып, берілген үш және төрт санның үлкенін табу программасы:
PROGRAM Maxsan2;
VAR A,B,C,D, Max:Real;
PROCEDURE Maxsim(K,I:Real; VAR S:Real); {Maxsim процедурасы}
Begin If K>I Then S:=K Else S:=I; End;
BEGIN Write(‘4 сан енгіз’); Readln(A,B,C,D); {негізгі программа}
Maxsim(A,B,Max);
{процедураның орындалуы нәтижесінде Max А мен В сандарының үлкенін меншіктейді}
Maxsim(Max,C,Max);
{процедураның орындалуы нәтижесінде Max A,B,C сандарының үлкенін меншіктейді}
Writeln(‘A,B,C сандарының үлкені:’,Max:4:1);
Maxsim(Max,D,Max);
{процедураның орындалуы нәтижесінде Max A,B,C,D сандарының үлкенін меншіктейді}
Writeln(‘A,B,C,D сандарының үлкені:’,Max:4:1);
Readln End.
Достарыңызбен бөлісу: |
