Инфоматика п?нінен саба?ты? та?ырыбы:Символды? алгоритмдерді программалауга есептер шы?ару

ПрактикалыK жaмыс №20-21.
ТаKырыбы: СимволдыK айнымалыларды т_рлендіру.

ЖаттыCулар.

СимволдыK айнымалыларды т_рлендірудіS стандарт функциялары ж
·не процедураларын Kолданып т™мендегі есептердіS Паскаль тілінде программасын KaрыSдар:

Берілген м
·тіндегі “а”
·рпін “о”
·рпімен алмастырыSдар.
С™йлемде неше с™з бар екенін аныKтаSдар.
Берілген
·ріп дауысты ма екенін аныKтаSдар.

1 ашылCан ж
·не 1 жабылCан жаKшасы бар м
·тін берілген. ЖаKша ішіндегі барлыK символдарды шыCарыSдар.

С™йлемдегі неше с™з берілген
·ріптен басталады?

Латын
·рпімен жазылCан с™здегі барлыK кіші
·ріптерді бас
·ріппен алмастырыSдар.

ПрактикалыK жaмыс №22.
ТаKырыбы: К™мекші (ішкі) программа: функция ж
·не процедура.

Практика мазмaны:
1.К™мекші программа- функция.
2.К™мекші прог-ма- процедура. Формальды ж
·не наKты параметрлер.

Паскаль тілінде ішкі (к™мекші) программаныS 2 т_рі бар: процедура ж
·не функция.

Процедура деп Kандай да бір есепті шешуге арналCан атауы бар программа б™лігін атайды.

ПроцедураныS жазылуыныS жалпы т_рі:
PROCEDURE процедура аты (типтері сипатталCан формальды
параметрлер тізімі);
<сипаттау б™лімдері>

Begin
операторлар б™лімі

End;

Негізгі программаныS Kажетті жерінде процедураны шаKыру операторы орналасады.
Процедураны шаKыру операторыныS жазылу _лгісі:

Процедура аты (наKты параметрлер тізімі);

Мысал1: Екі натурал санныS еS _лкен ортаK б™лгішін табу процедурасын Kолданып (Е^ОБ), 4 натурал санныS еS _лкен ортаK б™лгішін табыSдар.

Program P1; {негізгі программа}
Var x, y, z, t, n1,n2,n: word;
Procedure EYOB (a,b:word; Var K:word;);
begin {процедура басы}
While a<>b do
If a>b then a:=a-b then b:=b-a;

K:=a {процедура н
·тижесі}
end; {процедура соSы}
begin
readln(x, y, z, t);
EYOB(x, y, n1);
EYOB(z, t, n2);
EYOB(n1, n2, n);

Writeln(4 санныS Е^ОБ-і=’, n)
end. {негізгі программа соSы}

Мысал2: n!-ды табу процедурасын Kолданып, бастапKы 5 жaп натурал
санныS факториалдарын табыSдар.
Program m2;

Var i, n: integer; m:longint;
Procedure Fak (n:integer; Var p:longint);
var j:integer;
begin p:=1;
for j:=1 to n do
p:=p*j;
end;

{процедура н
·тижесі}

begin
i:=2; while i<=10 do begin
Fak (i, m); writeln(i, !=’,m);
i:=i+2; end;end.

Бір Cана функция м
·нін есептейтін ішкі программаны Паскальда функция деп атайды.

ФункцияныS жазылуыныS жалпы т_рі: