Мысал: Енгізілуге тиіс бүтін сандардың ENTER пернесі басылғанша қаншасы терілгенін есептейтін программа құру керек.
Program sanau; {программа тақырыбы}
Var a,i:integer; { a және i бүтін айнымалыларын сипаттау}
Begin{басы}
I:=0; { i есептегішінің бастапқы мәнін 0-ге теңестіреміз}
Readln;
While not eoln do {қатардың соңында Enter пернесін басқанша}
Begin{цикл денеісі}
Read(a); {а айнымалысын енгізу}
I:=I+1; {енгізілген санды есепке алу}
End; {цикл соңы}
Writeln; {келесі қатарға меңзерді өткізу}
Writeln(‘I=’, I); {нәтижені экранға шығару}
End. {соңы}
Практикалық жұмыс №23
Тақырыбы: Мәтіндік деректермен жұмыс
Теорияға шолу
Мәтін әр түрлі символдардан тұратын жолдар тізбегінен тұрады. Әдетте, мәтіндермен жұмыс істегенде, тек символдық шамаларды пайдалану тиімсіз, өйткені көбінесе жеке символдарды емес, олардың тізбегін – сөз тіркестерінен тұратын мәтін жолдарын өңдеу қажет болады. Символдар жолы немесе жолдық тұрақты деп символдарының саны 256-дан аспайтын апострофтар ішіне алынған символдар тізбегін айтады.
Тіркестік айнымалының типі программаның типтерді сипаттау бөлімінде немесе тікелей айнымалыны сипаттау бөлімінде де орналаса береді. Оның айнымалы бөлімінде сипатталуы:
Var
<айнымалы аты, ...>; string [жолдың ұзындығы];
Мысал:
Var
Tex1 : string[29];
Atj : string[40];
Atau : string[200];
A : string;
Егер жолдың ұзындығы (символ саны) сипаттау кезінде көрсетілмесе (А айнымалысы), онда оның ұзындығы 256 символ деп қабылданады.
Тіркестік өрнектерде біріктіру және салыстыру амалдары пайдаланады. Біріктіру немесе конкатенация амалы, ол қарапайым «+» белгісімен белгіленеді. Бұл амал бірнеше символдардан немесе сөз тіркесінен жаңа мәтін жолын құру үшін пайдаланылады. Мысалы:
‘Ауыл’ + ‘шаруашылығы’ = ‘Ауыл шаруашылығы’
Достарыңызбен бөлісу: |