Енгізу және шығару функциялары мен процедуралары

[ скачать ]

Жоспар
І. Кіріспе.................................................................3
ІІ. Негізгі бөлім.
1 Енгізу шығару процедурасы. Турбо –Паскаль
функциялары.................................................................9
а) Енгізу шығару процедурасы.....................................10
б) Сандық параметрлердің функциялары.................20

ІІI. Қорытынды.....................................................................21
Қолданған әдебиеттер....................................................22

Кіріспе


Турбо-Паскальда екі процедура типі бар:процедура типі,және функция-типі,
Процедура типін жариялау үшін процедураның тақырыбы немесе атсыз функция қолданылады.
Мысал:
type Proc1=Procedur(a,b,c:integer;x:real);
Proc2=Procedur(var a,b);
Proc2=Procedur;
Func1=function:real;
Func2=function(n:integer):boolean;

Типтердің өзгергіштігін бейнелеп түсіндіруге болады.Мысалы: var p1,p2: Proc1;f1,f2: Func2; Өзгергішті процедуралық типтерді қолдануға болады. Мұндай кезде стандартты процедураларды және функцияларды қолдануға болмайды.
Сондай меншіктеуден кейін өзгергіш процедура типі атының синонимі ретінде В.А болады. Өзгергішті процедуралар типі сондай –ақ бағдарламадағы параметрлер типіне тапсырылады. Осының арқасында алгоритмдердің қосалқы иілгіштерді жасуға мүмкіншілігі болады.

І. Процедура және функциялар.
1. Процедура –қандай да болмасын атпен аталған әрекеттердің жүйелілігі. Бұл жүйелілікті орындау үшін, программаның лайықты орнына оның атын көрсету керек. (Мысалға экранды тазалау үшін графикамен жұмыс барысында мынаны көрсетеміз. Clear Dtvice;) Сонымен қатар процедураны қолданғанда программалар қысқа әрі түсінікті болады. Процедураны программаның әр түрлі жерінен шақыруға болады.
Процедураға кіретін әрекеттер басты программаларда былайша жазылады:
program…
const…
type…
var…
procedure My Proc;
begin
{әрекеттер}
end;
begin
{негізгі программа}
end.

Максималды үш санды табу мысалын қарап шығайық.
Program Max1;
var a,b,c,m:integer;
begin
write(‘a:енгізіңіз’); readln(a);
write(‘b:енгізіңіз’); readln(b);
write(‘c:енгізіңіз’); readln(c);
if a>b then m:=a else m:=b;
if c>m then m:=c;
writeln (‘Максимум=’,m);
readln;
end.
Процедураны қолдану арқылы оны көшіреміз:
Program Max2;
var a,b,c,m:integer;
procedure FindMax;
begin
if a>b then m:=a else m:=b;
if c>m then m:=c;
end;