Паскаль құрылымы бойынша сипаттама

Кіріcпе . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2
1.Есептің қойылымы . . . . . . . . . . . . . . . . . . . . . . . . . . .3
1.1 Файлдар. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .3
1.2 Жолдар. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .3
1.3 Жазбалар. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .3
2.Қолданылған әдістер. . . . . . . . . . . . . . . . . . . . . . . . . .4
2.1 Файлдар және оның түрлері. . . . . . . . . . . . . . . . . . . . .4
2.2 Жолдар. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .10
2.3 Жазбалар және жазба типі . . . . . . . . . . . . . . . . . . . . .13
2.4 Қосалқы программа. . . . . . . . . . . . . . . . . . . . . . . . .16
3.Файлдар есеп . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .17
3.1 Eсептің берілуі . . . . . . . . . . . . . . . . . . . . . . . . . . .17
3.2 Есептің блок схемасы. . . . . . . . . . . . . . . . . . . . . . . .18
3.3 Программаның листінгі. . . . . . . . . . . . . . . . . . . . . . .19
3.4 Программаның байандалулы . . . . . . . . . . . . . . . . . . . .21
4.Жолдар есеп. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 23
4.1 Eсептің берілуі . . . . . . . . . . . . . . . . . . . . . . . . . . .23
4.2 Есептің блок схемасы . . . . . . . . . . . . . . . . . . . . . . . 23
4.3 Программаның листінгі . . . . . . . . . . . . . . . . . . . . . . 25
4.4 Программаның байандалулы. . . . . . . . . . . . . . . . . . . .26
5.Жазбалар есеп. . . . . . . . . . . . . . . . . . . . . . . . . . . . . .27
5.1 Eсептің берілуі . . . . . . . . . . . . . . . . . . . . . . . . . . .27
5.2 Программаның листінгі. . . . . . . . . . . . . . . . . . . . . . .28
5.3 Программаның байандалулы. . . . . . . . . . . . . . . . . . . . 29
Қорытынды . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .30
Пайдаланған әдебиеттер . . . . . . . . . . . . . . . . . . . . . . . 31

Бұл курстық жұмыста қазіргі кезде кеңінен қолданылатын программалау жүйесінің бірі – Турбо Паскаль тілінің құралдарын қолданып файлдарға, жазбаларға, жолдарға теория және есеп мысалдары келтіріліп, осыларға байланысты блок – схема мен программа мәтіні келтірілген.
Барлық мәліметтер тасымалдаушыларда файлдар түрінде сақталады. Файл дегеніміз – мәліметтерді сақтауға арналған сыртқы тасымалдаушыдағы жадының ат қойылған аймағы (бөлігі). Типтері бойынша файлдар шартты түде үш түрге бөлінеді: 1)мәтіндік файл, 2)типтік файл, 3)типтік емес файл.Біз көбінесе мәтіндік және типтік файлдармен жұмыс істейміз.
Жазба – сол немесе басқа объектті, не құбылысты сипаттайтын өзара логикалық байланысқан деректердің жиынтығы. Деректкрге байланысты жазба элементарлық (бөлінбейтін ) объект ретінде қарастырылады.
Жол – алфавиттер мен бос орын (прорбел) белгісінен тұратын қандай да белгілі тізбегі.
Бұл курстық жұмыс жазудағы мақсатым - Паскаль құрылымы бойынша сипаттама жүргізу және бұл тілді жете менгеру.

1) А.Б.Дәулетқұлов, С.С.Алғазы
«Паскаль» тілінде программалау негіздері (Алгоритмдеу және программалау) Алматы, 2004ж.
2) Н.Ы Омарова К.У. Тұрмағамбетова К.Н. Нуркенова
«Паскаль тілінде программалау кездері», Алматы, Білім 1996ж.
3) Ғ.Ш. Тойкенов «Паскаль тілінде прогрпммалау»,
Алматы, «Дәнекер», 2001ж.
4) Е.Ж.Ынтымақов, Ә.Ө.Мұртазина «Паскаль тілінің
негіздері» Алматы, 1998ж.
5) Ж.Қ. Масанов, Б.А. Бельгибаев А.С. Бижанова, Қ.Қ.
Мақұлов «Turbo Pascal», Алматы, 2004ж.
6) Бөрібаев «Информатика және компьютер», Алматы,
1995ж.

Пән: Информатика, Программалау, Мәліметтер қоры
Жұмыс түрі: Курстық жұмыс
Тегін: Антиплагиат
Көлемі: 24 бет
Таңдаулыға:

Мазмұны:

Кіріcпе _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ _ 2
1.Есептің қойылымы _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _3
1.1 Файлдар_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ _3
1.2 Жолдар_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ _3
1.3 Жазбалар_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_3
2.Қолданылған әдістер_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _4

2.1 Файлдар және оның түрлері_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _4
2.2 Жолдар_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_10
2.3 Жазбалар және жазба типі _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_13
2.4 Қосалқы программа_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_16
3.Файлдар есеп _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_17
3.1 Eсептің берілуі _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ _17
3.2 Есептің блок схемасы_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_18
3.3 Программаның листінгі_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_19
3.4 Программаның байандалулы _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _21
4.Жолдар есеп_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
23
4.1 Eсептің берілуі _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ _23
4.2 Есептің блок схемасы _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
23
4.3 Программаның листінгі _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
25
4.4 Программаның байандалулы_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _26
5.Жазбалар есеп_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_27
5.1 Eсептің берілуі _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ _27
5.2 Программаның листінгі_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_28
5.3 Программаның байандалулы_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 29
Қорытынды _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_30
Пайдаланған әдебиеттер _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 31

КІРІСПЕ

Бұл курстық жұмыста қазіргі кезде кеңінен қолданылатын
программалау жүйесінің бірі – Турбо Паскаль тілінің құралдарын қолданып
файлдарға, жазбаларға, жолдарға теория және есеп мысалдары келтіріліп,
осыларға байланысты блок – схема мен программа мәтіні келтірілген.
Барлық мәліметтер тасымалдаушыларда файлдар түрінде сақталады.
Файл дегеніміз – мәліметтерді сақтауға арналған сыртқы тасымалдаушыдағы
жадының ат қойылған аймағы (бөлігі). Типтері бойынша файлдар шартты түде
үш түрге бөлінеді: 1)мәтіндік файл, 2)типтік файл, 3)типтік емес файл.Біз
көбінесе мәтіндік және типтік файлдармен жұмыс істейміз.
Жазба – сол немесе басқа объектті, не құбылысты сипаттайтын өзара
логикалық байланысқан деректердің жиынтығы. Деректкрге байланысты жазба
элементарлық (бөлінбейтін ) объект ретінде қарастырылады.
Жол – алфавиттер мен бос орын (прорбел) белгісінен тұратын қандай
да белгілі тізбегі.
Бұл курстық жұмыс жазудағы мақсатым - Паскаль құрылымы бойынша
сипаттама жүргізу және бұл тілді жете менгеру.

1. Есептің қойылымы.

1.1 Файлдар

10 Вариант:Келесі кілттер арқылы: мерзімі, соттық тексеріс затына,
фирма даугер аты бойынша, фирма-жауапшы бойынша жазба массивтін
элементтерінің өрісіне арналған мәндерін шығаруын ескеру.
Сұраныстар:Қай жылы дискриминацияға байланысты істердің саны ең
жоғарғы болғанын анықтау.

1.2 Жолдар

13 Вариант:2 ден 30 дейін сөзден құралған тізбек берілген, онда 2 ден
10 дейін кіші әріппен жазылған орыс әріптері бар; көршілес сөздердің
арасында – үтір, соңғы созден кейін нүкте. Сол тізбекрегі барлық сөздерді
соңғы сөзге ұқсас болмауы керек, сонымен бірге әр сөздің соңғы әріпін
алдына жаза отырып шығару.

1.3 Жазбалар

19Вариант: Келесі кілттер арқылы: тауарлардың атына байланысты,
фирманың аты бойынша, таза табыс бойынша, шығын бойынша, қызыметтің типі
жазба массивтін элементтерінің өрісіне арналған мәндерін шығаруын ескеру.
Сұранысы: Қай фирманың қызыметі халықтың тұтыну тауарларды сақтауға
арналғанын анықтау.

2. Қолданылған әдістер.

2.1Файлдар және оның түрлері.

Оыған дейін, біз мәліметтерді пернетақтадан енгізіп, олады экранға
шығардық, программа жұмысы кезінде олар компьютердің оперативті жадында
сақталатын да, есептелер біткеннен кейін бұл мәліметтер жоғалып кететін.
Жұмыс нәтижесін келешекте пайдалана алу үшін, мысалы, оларды есептеуге
пайдалану үшін немесе жаңа мәліметтерді алу үшін, оларды есте сақтап қалу
керек. Осындай тәсілдердің бірі мынадай: нәтиже экранға шыққан соң қолға
қаламсап және бір бет қағаз алып, бұл мәліметтерді жазып алу. Дербес
компьютерлер дәуірінің басында оларды үй тапсырмасы деп атаған да, шын
мәнінде солай болған. Қазіргі кездегі дебес компьютерлердің барлығы
ақпаратты сақтауға арналған арнайы құрылғылырмен жабдықталған.
Қызыметтеріне қарай оларды: магниттік ақпарат тасымалдаушылар немесе
жазылатын СD-дискілер деп атайды. Ақпаратты сақтау осы тасымалдаушыларда
ұйымдастырылады, бұл жағдайда біз алған нәтижелерді солардың жадында
сақтаймыз. Барлық мәліметтер осы тасымалдаушыларда файлдар түрінде
сақталады.
Файл дегеніміз – мәліметтерді сақтауға арналған сыртқы
тасымалдаушыдағы жадының ат қойылған аймағы (бөлігі).
File (ағылшын тілінен аударылғанды) бума, іс қағаздар жинағы, сонымен
қатар ақпаратты сақтау деген мағынаны бідіреді.
Turbo Paskal-да файлдарды екі негізгі белгісі бойынша топтастыруға
болады:
а) файлдың типі бойынша ( оның логикалық құрылымына)

б) файл элементтеріне қатынау тәсілі бойынша.
Типтері бойынша файлдар шартты түде үш түрге бөлінеді:
- мәтіндік файл;
- типтік файл;
- типтік емес файл.
Біз көбінесе мәтіндік және типтік файлдармен жұмыс
істейміз.
Қатынау тәсілі бойынша файлдар келесідей бөлінеді:
- Тікелей қатынау файлдары
- Кезекпен қатынау файлдары.
Олардың айырмашылығы тікелей қатынау файлдрында арнайы процедуралар және
функцияларды пайдалана отырып, мәліметтерді, олардың файлдағы орнына
тәуелсіз, оқуға немесе жазуға болады, ал кезекпен қатынау файлында оның
ортасында немесе соңында тұрған мәліметті оқу үшін, оның алдындағы
мәліметтердің барлығын оқуға тура келеді. Мәтіндік файлдар кезекпен қатынау
файлдарына жатады, ал типтік файлдар тікелей қатынау файлдарына жатады.
Файлдың массивтен айырмашылығы:
- Мұнда жазылатын ақпараттың саны көрсетілмейді.
- Әр элементінің өзінің индексі бойынша анықталмайды, сондықтан қажетті
элементоның алдындағы элементтерді алып болғаннан кейін ғана алынады.
Файлдың баяндалуы:
Паскальдің Type бөлімінде файл типі келесі жалпы түрде баяндалады:
TYPE NTYPE = FILE
NTYPE – файл типінің идентификаторы.
Файлдың типін немесе файлдық типті айнымалыны келес үш әдістің
біреуі арқылы анықтайды:

1. NTYPE = FILE OF TC;
2.NTYPE = TEXT;
3.NTYPE = FILE;
Мысалы,
TYPE STUD = RECORD
FIO: STRING[20];
ADR:STRING[30];
GOD:INTEGER;
END;
VAR F1:FILE OF STUD; {типтелген}
F2:TEXT; {текстік}
F3:FILE; {типтелмеген}

Файлдармен жұмыс жасау.
Паскальда мәліметтер типінің бірі болып сыртқы жады құрылғысында
орналасқан бірдей типті компоненттер тізбегін құрастырылған файлдық
айнымалылар ақпаратты енгізу-шығару үшін қолданылады.
Енгізу – шығару іс-әрекетін орындамас бұрын файлдық айнымалыны
ASSIGN стандартты прцедурасының көмегімен нақты қандай да бір сыртқы файл
байланысу қажет.
Мұндай файл ретінде магниттік дискідегі файл, сондай-ақ есептеу
кешеніндегі құрылғы (клавиатура, дисплей экраны, принтер және т.с.с.)
қолданылады.
Сосын ол файл оқуға немесе жазуға ашық болуы керек. Осыдан кейін
енгізу-шығаруды ұйымдастыруға болады.
Файлмен жұмыс жасап біткеннен кейін оны CLOSE стандартты
процедурасы арқылы жабу керек.
Файлдармен жұмыс жасау үшін келесі жалпы стандартты процедуралар
мен функцияларды қолданамыз:
1.ASSIGN(f, Name) – f файлдық айнымалыны Name сыртқы файлмен
байланыстыру үшін пайдаланылады. Егер Name орнына ешқандай ат жазылмаса,
онда енгізу немесе шығарудың стандартты файлдармен байланыс орнатылады
(Input – енгізу стандартты файл, Output - шығару). Мұндағы f – файлдық
айнымалы, Name – файлдың тоық атын анықтайтын текстік өрнек.
2.RESET(f) – файлдан ақпаратты оқу үшін бар файлды ашу. f –
файлдық айнымалысы, бұрын ASSIGN процедурасы арқылы бар сақтаушы файлмен
берілген.
3.REWRITE(f) – файлға ақпартты жазу үшін жаңа бос файлды ашу. f –
файлдық айнымалысы, бұрын стандартты ASSIGN процедурасы арқылы жаңа файлмен
берілген. Егер REWRITE процедурасында бұрыннан бар файл аты көрсетілген
болса, онда файл жойылады.
4.APPEND(f) – текстік файлдың соңына ақпарат қосу үшін файлды ашу.
f – файлдық айнымалысы, бұрын ASSIGN процедурасы арқылы бар текстік файлмен
байланыстырылған.
5.EOF(f) – файл соңын анықтайтын стандартты функция. f файлдың
соңы кездессе EOF(f) функциясы True.

6.CLOSE(f) – ашылған файлды жабу үшін қолданылады.

Типтелген файлдар
Типтелген файлдардың кез-келген компоненттерінің ұзындығы тұрақты
болады. Сондықтан типтелген файлдың компоненттерін олардың реттік нөмірі
бойынша өңдеуге болады (файлдың компоненттері 0-ден бастап нөмірленеді).
Енгізу-шығару стандартты процедураға бірінші рет қатынас жасағанда
файлдың көрсеткіші файлдың басында тұрады және ол файлдың бірінші
компонентіне сілтейді. Әрбір енгізу-шығару стандартты процедураға қатынас
жасаған кезде файлың көрсеткіші осы файлдың келесі компонентіне жылжиды.
Енгізу-шығару тізімдеріндегі айнымалының типтері файл компоненттерінің
типтерімен бірдей болуы керек.
Келесі стандартты процедуралар мен функциялар арқылы типтелген
файлдармен жұмыс жасаймыз:
READ процедурасы – көрсетілген типті компоненттерді оқу үшін
пайдаланылады.
READ(f, енгізу тізімі);
Мұндағы f – файлдық айнымалы, енгізу тізімі - бір немесе бірнеше
айнымалылар болуы мүмкін, олардың типтері файл компоненттерінің титперімен
бірдей болуы керек.
WRITE процедурасы – көрсетілген типті компоненттерді файлға жазу
үшін қолданылады.
WRITE(f,шығару тізімі);
Мұндағы: f – файлдық айнымалы, шығару тізімі - бір немесе бірнеше
өрнектер болуы мүмкін. Олардың типтері файлдың типтерімен бірдей болуы
керек.
SEEK процедурасы – көрсетілген нөмірі бар файлдың қажетті
компонентіне байланыс орнатуға пайдаланылады (яғни файлдың көрсеткіші
қажетті компонентке жылжиды).
SEEK(f,NUM);
Мұндағы: NUM - файл компонентінің нөмірі.
FILESIZE функциясы – файл компоненттерінің санын анықтайды.

FILESIZE(f);
Файл көрсеткішін типтелген файлдың соңына орнату үшін SEEK
процедурасын келесі түрде қолдануға болады:
SEEK(f, FILESIZE(f));
FILEPOS функциясы – файлдың ағымдағы компоненттерінің нөмірін
қайтарады.
FILEPOS(f);

Текстік файлдар.
Текстік файлдар текстік ақпаратты сақтау үшін пайдаланылады және
осындай файлдың компоненттерінің ұзындығы айнымалы болуы мүмкін (текстік
файл ұзындығы айнымалы болатын жолдардың жиыны деп санауға болады).
Текстік файлдар жолдарға бөлінген символдар жиынын құрастырады. Әр
жолдың сонында жол соңының белгісі тұрады, тестік файлдармен жұмыс істеу
үшін келесі стандартты процедура мен функцияларды қолдануға болады:
1.READ процедурасы – файлдан символдарды, жолдарды және сандарды
енгізу үшін пайдаланылады.
READ(f, енгізу тізімі);
Мұндағы f – текст титпі файлдық айнымалы, енгізу тізімі - SHAR,
STRING типімен бірге кез келген бүтін немесе нақты типті айнымалылар
тізімі.
2.READLN процедурасы – файлдан жолды оқу үщін пайдаланылады.
READLN(f, енгізу тізімі);
енгізу тізімі - SHAR, STRING, бүтін, немесе нақты типті айнымалыдан
тұратын жол.
3.WRITE процедурасы – ақпаратты текстік файлға жазу үшін
қолданылады.
WRITE(f,шығару тізімі);
шығару тізімі - SHAR, STRING типімен бірге BOOLEAN және кез келген бүтін
немесе нақты типті өрнектердің тізімі.
4.WRITELN процедурасы – файлға жолды жазу үшін пайдаланылады.
WRITELN(f,шығару тізімі);
шығару тізімі - WRITE-қа ұқсас, ерекшелігі – WRITELN процедурасын
қолданғанда текстік файл жолдар бойынша өңделеді.
5.EOLN логикалық функциясы TRUE қайтарады, егер енгізілген
текстік файлдың жол соңының белгісі кездессе, ал қарсы жағдайда – FALSE.
EOLN(F)=TRUE;
EOLN(F)=FALSE;
6.SEEKEOLN логикалық функциясы – TRUE қайтарады, егер файлдың
жолының соңы кездессе және файл жолының соңы кездескенше бос орын пробел,
табуляция символдарын қарастырмайды.
SEEKEOLN(F)=TRUE;
7.SEEKEOF логикалық функциясы – TRUE қайтарады, егер текстік
файлдың соңының белгісі кездессе және файл соңының белгісі кездескенше бос
орын пробел, табуляция символдарымен EOLN жол соңының белгілерін
қарастырмайды.
SEEKEOF(F)=TRUE;

Тителмеген файлдар
Типтелмеген фалдарды баяндағанда файл компоненттерінің типтері
көрсетілмейді. Сондықтан типтелмеген файлдар кез-келген файлдармен
үйлесімді болып саналады және дискімен жады арасындағы мәліметтер ауысуының
жылдамдығын арттыруға мүмкіндік пайда болады.
Типтелмеген файлдарды RESET және REWRITE процедураларының көмегімен
инициалдағанда типтелмеген файлдар жазбалардың ұзындығын байт арқылы
көрсетуге болады.
ESET және REWRITE процедураларыда жазбаның ұзындығы ІІ- ші
параметр ретінде көрсетіледі. Егер жазбаның ұзындығы көрсетілмесе, онда
жазбаның ұзындығы 128 байтқа тең деп алынады. Мәліметтер ауысуының
жылдаимдығы максималды болуы үшін жазбаның ұзындығын 512 байт деп алу
қажет.
RESET(F, 512);
Типтелмеген файлдармен жұмыс жасау үшін типтелген файлдарға
пайдаланылатын барлық стандартты процедура мен функциялар қолданылуы
мүмкін. Типтелмеген файлдар үшін READ, WRITE процедураларының орнына
жылдамдығы жоғары BLOCKREAD, BLOCKWRITE стандартты процедуралары
пайдаланылады.
Осы процедуралардың жалпы түрі:
BLOCKREAD(F, BUF, N, [ ,RES]);
BLOCKWRITE(F, BUF, N, [ ,RES]);
Мұндағы: F – типтелмеген файлдық айнымалы. BUF- дискілердегі
мәліметтердің ауысуына қатысатын айнымалының аты. N – дискіге бір рет
қатынас жасағанда оқылатыфн немесе жазылатын жазбаның саны. RES –
BLOCK(READ, WRITE) процедуралар орындалғаннан кейін нақтылы өңделген
жазбалардың саны (бұл параметрді жазбаса да болады).

Мысалы, Текстік файл берілген. 4 немесе одан да көп сөздерден
тұратын жолдарды басқа файлға жазу керек.
PROGRAM Ftext;
VAR F1, F2:TEXT;
ST:STRING;
I, K, KOL:INTEGER;
BEGIN
ASSIGN(F1,’FILE1.TXT’);
RESET(F1);
ASSIGN(F2,’FILE2.TXT’);
REWRITE(F2);
WHILE NOT(EOF(F1)) DO
Begin
READLN(F1, ST);
KOL:=0;
FOR I:=1 TO LENGTH(ST) DO
IF (ST[I-1]= ‘ ’) OR (I=1) THEN
Begin
K:=0;
REPEAT
INC(K);
UNTIL(ST[I+K]= ‘ ’) OR (I+K=LENGTH(ST));
IF K3 THEN INC(KOL);
IF KOL=4 THEN
WRITELN(F2, ST);
End;
End;
CLOSE(F1);
CLOSE(F2);
END.

2.2 Жолдар.

Айтып өткеніміздей, программаға мәліметтеренгізу үшін олардың
типтерін (осы мәліметтерді сақтауға бөлінген жады көлемін анықтау үшін)
және осы мәліметтердің программада сақталатын атауын (идинфикаторын)
анықтау керек.
Айталық, бізге пернетақтадан жолдық қатарды енгізіп, оны компилятор
экранына шығару керек болсын.
Жол – алфавиттер мен бос орын (прорбел) белгісінен тұратын қандай да
белгілі ... жалғасы

Сіз бұл жұмысты біздің қосымшамыз арқылы толығымен тегін көре аласыз.