Предмет: Информатика
Тип: Реферат
Объем: 19 стр.
|
Закрыть
|
Turbo Pascal - дағы көмекші бағдарламалар
КӨМЕКШІ БАҒДАРЛАМАЛАР ЖӘНЕ ОЛАРДЫҢ ҚҰРЫЛЫМЫ
Программалау барысында көптеген бір типті есептеулерге бірнеше бір-біріне ұқсас программа фрагменттерін қайта-қайта жазуға тура келеді. Осындай да артық жұмыс жасамай, барлық есептеулерді бір ғана фрагмент ішінде орныдау үшін, көмекші программалар-процедуралар мен функциялар қолданылады. Мысалы программа орындалу барысында бірнеше рет ұқсас есептеулер кездессе, онда есептеу блогын бір ақ рет көмекші программаға жазып қойып, программаның кез-келген нүктесінен көмекші программаны шақырып, осы блок арқылы есептуді шығаруға болады.
Сонымен көмекші прграммалар деп программаның орындалу барысында бірнеше рет шақырылып орындалып тұратын операторлар блогын тұратын көмекші бөлігін айтады.
Көмекші прграммалар стандартты және пайдаланушылар көмекші программалары болып екіге бөлінеді. Стандартты функциялар мен процедуралар Turbo Pascal тілінің құрамында тұрақты системалық атпен аталып орындалады. Оларға арнаулы USES пайдаланушылар библиотекасында орналасқан – SYSTEM, CRT, GRAPH, GRAPH3, OVERLAY, PRINTER, TURBO3, TURBO VISION модульдерінің барлық функциялары мен процедуралары жатады.
Көмекші программа құрылымы:
1. көмекші программа қызметші сөзі көмекші программа тақырыбы;
2. көмекші программада кездесетін идентификаторларды сипаттау бөлімдері;
3. көмекші программа денесі.
Процедура құру мысалдары.
Қатеттері бойынша үшбұрыштың ауданы мен
гипотенузасын табу процедурасын құру.
Дұрыс құралған процедура мысалдары:
А)
PROGRAM Proced 1;
VAR A, B, C, S: Real;
PROCEDURE Ushbur (M,N:Real; Var T, Q: Real);
Begin T:=M*N/2
Q:=Sqrt (Sqr (M)+Sqr(N));END;
BEGIN Readln (A,B);
(негізгі программадан Ushbur процедурасын шақыру:)
Ushbur (A, B, S, C);
Writeln (‘gip=’,C:4:2); Writeln (‘aud=’, S:4:2);
Readln End.
Ә)
PROGRAM Proced 2;
VAR A, B, C, S: Real;
PROCEDURE Ushbur (M,N:Real; Var T:Real, 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.
Массив элементтерін ендіру, шығару процедурасын құру мысалдары.
А) массив элементтерінің қосындысын мен көбейтіндісін табу:
PROGRAM Massiv 1;
CONST N=5;
Type Mas =Array[1…N] Of Integer;
VAR A,B:Mas; S,P,K: Integer;
PROCEDURE Inp (N:Integer; Var X: Mas);
Begin For K:=1 To N Do Read (X[K]); End;
PROCEDURE Out (N: Integer; VAR X: Mas; VAR S,P:Integer);
BEGIN S:=0; P:=1;
For K:=1 To N Do Begin S:=S+X[K];
P:=P*X[K] End End;
BEGIN Inp (N,A); Out (N,A,S,P); (негізгі программа)
Writeln (‘қосындысы=’,S); Writeln (‘Көбейтінді’,P);
Inp (N,B); Out (N,B,S,P); (‘қосындысы=’,S);
Writeln (‘Көбейтінді’,P);
Readln END.
ФУНКЦИЯЛАР
Функциялардың атқаратын қызметі мен жұмыс принциптері процедураларға ұқсайды. Функциялардың процедуралардан негізінен екі айырмашылықтар бар:
1. Функциялар өрнек операндалары ретінде қолданыла береді;
2. Функция шақыру нүктесіне бір ғана өзінің атына меншіктелген скалярлық шаманы қайтарады. Процедуралар шақыру нүктесіндегі бірнеше идендификаторға жаңа мәндер қайтарып бере алса, ал функциялар бір шақыру нәтижесінде бір ғана идендификаторға жаңа мән бере алады.
Функциялар құрылымы:
Тік төртбұрышты квадраттарға бөлу программасының
функциясы.
PROGRAM Kvadrat;
VAR A,B,D,K,X,Y:Integer;
Function Min(A,B:Integer):Integer;
Begin If A
