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

Кірі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ж.
        
        Мазмұны:
Кіріcпе _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ _ ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ ... Жазбалар_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... және оның ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... және ... типі _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... Қосалқы программа_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... есеп _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... берілуі _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ ... ... блок ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... байандалулы _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... Eсептің берілуі _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ ... ... блок ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
_ ... Программаның листінгі_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... әдебиеттер _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... ... қазіргі кезде ... ... ... бірі – Турбо Паскаль тілінің құралдарын ... ... ... ... және есеп ... ... байланысты блок – схема мен программа мәтіні келтірілген.
Барлық ... ... ... түрінде сақталады.
Файл дегеніміз – мәліметтерді сақтауға арналған ... ... ат ... ... ... ... ... файлдар шартты түде
үш түрге бөлінеді: 1)мәтіндік файл, 2)типтік файл, 3)типтік емес ... ... және ... ... ... ... – сол немесе басқа объектті, не құбылысты сипаттайтын өзара
логикалық ... ... ... ... ... ... (бөлінбейтін ) объект ретінде қарастырылады.
Жол – алфавиттер мен бос орын (прорбел) белгісінен тұратын қандай
да белгілі тізбегі.
Бұл ... ... ... ... - ... құрылымы бойынша
сипаттама жүргізу және бұл тілді жете ... ... ... ... ... ... ... мерзімі, соттық тексеріс затына,
фирма даугер аты бойынша, фирма-жауапшы бойынша жазба массивтін
элементтерінің өрісіне арналған мәндерін шығаруын ... жылы ... ... ... саны ... ... ... Жолдар
13 Вариант:2 ден 30 дейін сөзден құралған тізбек берілген, онда 2 ден
10 дейін кіші әріппен ... орыс ... бар; ... ...... соңғы созден кейін нүкте. Сол тізбекрегі барлық сөздерді
соңғы сөзге ұқсас болмауы керек, ... ... әр ... соңғы әріпін
алдына жаза отырып шығару.
1.3 ... ... ... ... тауарлардың атына байланысты,
фирманың аты ... таза ... ... ... ... қызыметтің типі
жазба массивтін элементтерінің өрісіне арналған мәндерін шығаруын ескеру.
Сұранысы: Қай фирманың ... ... ... ... сақтауға
арналғанын анықтау.
2. Қолданылған әдістер.
2.1Файлдар және оның түрлері.
Оыған дейін, біз мәліметтерді пернетақтадан ... ... ... ... ... кезінде олар компьютердің ... ... да, ... ... ... бұл ... ... кететін.
Жұмыс нәтижесін келешекте пайдалана алу үшін, мысалы, оларды есептеуге
пайдалану үшін немесе жаңа ... алу ... ... есте ... ... ... ... бірі мынадай: нәтиже экранға шыққан соң қолға
қаламсап және бір бет ... ... бұл ... ... алу. ... дәуірінің басында оларды «үй тапсырмасы» деп атаған да, ... ... ... ... ... дебес компьютерлердің барлығы
ақпаратты сақтауға арналған ... ... ... ... оларды: магниттік ақпарат ... ... ... деп атайды. Ақпаратты сақтау осы тасымалдаушыларда
ұйымдастырылады, бұл жағдайда біз алған нәтижелерді ... ... ... ... осы ... файлдар түрінде
сақталады.
Файл дегеніміз – ... ... ... ... ... ат ... ... (бөлігі).
File (ағылшын тілінен аударылғанды) бума, іс қағаздар жинағы, сонымен
қатар ақпаратты сақтау ... ... ... ... файлдарды екі негізгі белгісі бойынша топтастыруға
болады:
а) файлдың типі ... ( оның ... ... файл ... ... ... бойынша.
Типтері бойынша файлдар шартты түде үш түрге бөлінеді:
- мәтіндік файл;
- типтік файл;
- типтік емес файл.
Біз көбінесе ... және ... ... ... ... бойынша файлдар келесідей бөлінеді:
- Тікелей қатынау файлдары
- Кезекпен қатынау файлдары.
Олардың айырмашылығы тікелей қатынау ... ... ... және
функцияларды пайдалана отырып, мәліметтерді, олардың файлдағы ... ... ... ... ... ал ... қатынау файлында оның
ортасында немесе соңында тұрған мәліметті оқу ... оның ... ... ... тура келеді. Мәтіндік файлдар кезекпен қатынау
файлдарына жатады, ал типтік файлдар тікелей қатынау ... ... ... ... ... ... ақпараттың саны көрсетілмейді.
- Әр элементінің өзінің индексі бойынша анықталмайды, сондықтан қажетті
элементоның алдындағы элементтерді алып болғаннан ... ғана ... ... Type бөлімінде файл типі келесі жалпы түрде баяндалады:
TYPE NTYPE = ... – файл ... ... ... ... файлдық типті айнымалыны келес үш әдістің
біреуі арқылы анықтайды:
1. NTYPE = FILE OF TC;
2.NTYPE = TEXT;
3.NTYPE = FILE;
Мысалы,
TYPE STUD = ... ... F1:FILE OF STUD; ... ... ... жұмыс жасау.
Паскальда мәліметтер типінің бірі болып ... жады ... ... ... ... ... құрастырылған файлдық
айнымалылар ақпаратты енгізу-шығару үшін қолданылады.
Енгізу – шығару ... ... ... ... айнымалыны
ASSIGN стандартты прцедурасының көмегімен нақты қандай да бір сыртқы файл
байланысу қажет.
Мұндай файл ... ... ... ... ... есептеу
кешеніндегі құрылғы (клавиатура, дисплей ... ... және ... ол файл ... ... ... ашық ... керек. Осыдан кейін
енгізу-шығаруды ұйымдастыруға болады.
Файлмен жұмыс жасап ... ... оны CLOSE ... ... жабу ... жұмыс жасау үшін келесі жалпы стандартты процедуралар
мен функцияларды қолданамыз:
1.ASSIGN(f, Name) – f ... ... Name ... ... үшін ... Егер Name ... ... ат жазылмаса,
онда енгізу немесе шығарудың стандартты файлдармен ... ...... ... файл, Output - шығару). Мұндағы f – ... Name – ... тоық атын ... ... ...... ... оқу үшін бар файлды ашу. f ... ... ... ASSIGN процедурасы арқылы бар сақтаушы ...... ... жазу үшін жаңа бос ... ашу. f ... айнымалысы, бұрын стандартты ASSIGN процедурасы арқылы жаңа файлмен
берілген. Егер REWRITE процедурасында бұрыннан бар файл аты ... онда файл ...... ... ... ақпарат қосу үшін файлды ашу.
f – файлдық айнымалысы, бұрын ASSIGN процедурасы арқылы бар ... ... – файл ... анықтайтын стандартты функция. f ... ... EOF(f) ... ...... ... жабу үшін қолданылады.
Типтелген файлдар
Типтелген файлдардың кез-келген компоненттерінің ұзындығы тұрақты
болады. Сондықтан типтелген файлдың ... ... ... ... өңдеуге болады (файлдың компоненттері 0-ден бастап нөмірленеді).
Енгізу-шығару стандартты процедураға бірінші рет қатынас жасағанда
файлдың ... ... ... ... және ол ... ... ... Әрбір енгізу-шығару стандартты процедураға қатынас
жасаған кезде файлың көрсеткіші осы файлдың келесі ... ... ... ... ... файл ... ... болуы керек.
Келесі стандартты процедуралар мен ... ... ... ... ... ...... типті компоненттерді оқу үшін
пайдаланылады.
READ(f, );
Мұндағы f – файлдық айнымалы, - бір ... ... ... ... олардың типтері файл компоненттерінің титперімен
бірдей болуы керек.
WRITE процедурасы – көрсетілген типті компоненттерді ... ... ... f – ... ... - бір ... ... болуы мүмкін. Олардың типтері файлдың типтерімен ... ... ...... ... бар ... ... байланыс орнатуға пайдаланылады (яғни ... ... ... ... - файл ... ... ... – файл компоненттерінің санын анықтайды.
FILESIZE(f);
Файл ... ... ... ... ... үшін ... ... түрде қолдануға болады:
SEEK(f, FILESIZE(f));
FILEPOS функциясы – ... ... ... ... ... файлдар текстік ақпаратты сақтау үшін пайдаланылады және
осындай файлдың компоненттерінің ұзындығы айнымалы болуы мүмкін ... ... ... болатын жолдардың жиыны деп санауға болады).
Текстік файлдар жолдарға бөлінген символдар жиынын құрастырады. ... ... жол ... ... ... ... файлдармен жұмыс істеу
үшін келесі стандартты процедура мен функцияларды қолдануға болады:
1.READ процедурасы – файлдан ... ... және ... үшін ... ... f – ... титпі файлдық айнымалы, - ... ... ... кез ... ... ... ... типті айнымалылар
тізімі.
2.READLN процедурасы – файлдан жолды оқу үщін пайдаланылады.
READLN(f, );
- SHAR, STRING, ... ... ... ... айнымалыдан
тұратын жол.
3.WRITE процедурасы – ақпаратты текстік файлға жазу ... - SHAR, STRING ... ... BOOLEAN және кез ... бүтін
немесе нақты типті өрнектердің тізімі.
4.WRITELN процедурасы – файлға жолды жазу үшін ... - ... ... ерекшелігі – WRITELN процедурасын
қолданғанда текстік файл жолдар бойынша өңделеді.
5.EOLN ... ... TRUE ... егер енгізілген
текстік файлдың жол ... ... ... ал ... ...... логикалық функциясы – TRUE қайтарады, егер файлдың
жолының соңы кездессе және файл ... соңы ... бос орын ... символдарын қарастырмайды.
SEEKEOLN(F)=TRUE;
7.SEEKEOF логикалық функциясы – TRUE қайтарады, егер ... ... ... кездессе және файл соңының белгісі кездескенше бос
орын «пробел», табуляция символдарымен «EOLN» жол ... ... ... фалдарды баяндағанда файл компоненттерінің типтері
көрсетілмейді. ... ... ... ... ... ... саналады және дискімен жады арасындағы мәліметтер ауысуының
жылдамдығын арттыруға мүмкіндік пайда болады.
Типтелмеген файлдарды RESET және REWRITE процедураларының көмегімен
инициалдағанда ... ... ... ... байт ... ... және REWRITE ... жазбаның ұзындығы ІІ- ші
параметр ретінде көрсетіледі. Егер ... ... ... ... ... 128 байтқа тең деп алынады. Мәліметтер ауысуының
жылдаимдығы ... ... үшін ... ... 512 байт деп алу
қажет.
RESET(F, 512);
Типтелмеген файлдармен жұмыс ... үшін ... ... ... ... ... мен функциялар қолданылуы
мүмкін. Типтелмеген ... үшін READ, WRITE ... ... жоғары BLOCKREAD, BLOCKWRITE стандартты процедуралары
пайдаланылады.
Осы процедуралардың ... ... BUF, N, [ ... BUF, N, [ ... F – ... файлдық айнымалы. BUF- ... ... ... ... аты. N – ... бір рет
қатынас жасағанда оқылатыфн ... ... ... саны. RES –
BLOCK(READ, WRITE) процедуралар орындалғаннан кейін ... ... саны (бұл ... ... да ... Текстік файл берілген. 4 немесе одан да көп сөздерден
тұратын жолдарды басқа файлға жазу ... ... F1, ... K, ... ... ... ... 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 ... K>3 THEN ... KOL>=4 ... ... ... өткеніміздей, программаға мәліметтеренгізу үшін олардың
типтерін (осы мәліметтерді сақтауға бөлінген жады ... ... ... осы мәліметтердің программада сақталатын атауын (идинфикаторын)
анықтау керек.
Айталық, бізге пернетақтадан жолдық қатарды ... оны ... ... ... ...... мен бос орын (прорбел) белгісінен тұратын ... ... ... ... ... сақтауға жадыдан орын бөлу үшін, біріншіден,
осы жолды сақтайтын жады бөлігіне ат беру қажет, екіншіден, «жол» ... ... да ... ... ... атау ... дұрыс.
Сондықтан атау ретінде «Jol» атын алайық. Егер ... ... ... енгізетініміз белгісіз болса, онда оны айнымалы ... ... ... ... 255 ... дейін сақтау үшін орын
беріледі. Яғни енгізу кезінде ... саны 0 ден 255-ке ... бола ... ... ... орын 256 байтты құрайды.
Егер программада қолданылатын симводар тұрақты және ... ... ... онда оны ... өлшеммен сипаттауға болады:
Const
Jol=’Jol’;
Бұл жағдайда тұрақты өлшемнің атауы да «Jol» және ... де ... ... ... ... Жолдық айнымалылардың мәні жалғыз тырнақшаға
(’’) алынады, ал атауы тырнақшасыз жазылады.
Турбо ... ... ... ала ... ... ... ... типі қолданылады. String типіне жататын айнымалылар келесі түрде
сипатталады:
VAR FIO:STRING[20];
ADR:STRING[30] ;
SPEC:STRING;
String типті айнымалыларға келесі операциялар анықталған ... ... Бұл ... бірнеше жолдарды біріктіріп
бір жол құру үшін ... ... ... + ... ... ... =, = . Жол мен жолды
салыстыру олардың символдарын салыстыру арқылы ... ... ... бір бірімен салыстырылғанда оларға сәйкес кодтар салыстырылады.
Жолдарды ... ... ... ... шама ... ... болып табылады.
Мысалы, abcmax then
begin
max:=h [i];
w:=w [i];
end;
insert (w,t, length (t) – length(w));
writeln (t);
End.
2.3 Жазбалар және ... ... ... ... ... курсы бойынша сабақтарда оқып
үйренгенбіз. Ал программалық қамтудың қалай жасалатынын біз ... ... оқып ... Ал ... ... ... ... Қысқаша мысал қарастырайық: Сіздің досыңыз сізден
мектеп асханасынын бір стакан шырын сатыпалып ... ... Сіз ... ... ... демек өзіңіздің жадыңызға жазып алдыңыз.
Компьютердегі барлық деректер ... ... – сол ... ... ... не ... сипаттайтын өзара
логикалық байланысқан деректердің жиынтығы. Деректкрге байланысты ... ... ) ... ретінде қарастырылады.
Егер сіздің досыңыз сізден шырынмен қоса пирог сатып әпер ... сіз мұны да ... ... екі ... ... ... жасайсыз.
Файлдар туралы сұрақтарды талқылағанда айтылғандай, файл элементтері
тер бір типті ... ... ... Олай болса әр түрлі типтегі
элементтерді бір типке – жолдық типке айналдырып, мәтіндік файлдармен ... ... ... аламыз, бірақ болашақта бұл мәліметтермен жұмыс
істеу жеткілікті қиындық туғызады.
Бұл қиыншылықтан шығу үшін ... ... типі ... бұл типі ... деп ... ... әр түрлі типтегі
элементтер жиынтығынан тұрады. Жазба элементтерін ... өріс ... да ... ... өзіндік атауы болады.
Жазбаны өңдеу элементтері объекті түрінде шығады. Мұндай объект типі –
record (жазба) деп аталады. Олай ... ... ... ... алынып тасталады.
Жазбаларды сипаттау үшін, оның атауы, берілген өрісте ... ... және типі ... ... Жазбалардың жалпы түрде
сипатталуы көрсетілгендей:
Type =Record
:;
:;
........................
:;
end;
Жазба - өріс деп ... ... ... ... ... саны ... өрістің мәліметтері бірдей типке
жатады, ал әртүрлі өрістерде олар әртүрлі болуы ... ... ең ... ... ...... тәрізді мәліметтердің күрделі типін құруға
аранлған, ... бір ... ... қамсиеттері туралы мәліметті
біріктіріп қолдануға арналған.
Жазбалардың екі түрі бар:
1. Тұрақты өрісті жазбалар
2. Таңдамалы ... ... ... ... типі ... ... ... NTYPE=RECORD
ID11, …, ID1N:TYPE_1;
IDK1,…,IDKN:TYPE_2;
END;
Мұндағы TYPE, RECORD,END Паскаль ... ... ...... ... немесе идентификаторы. ID11, …, ID1N және т.б. IDKN -
өрістердің идентификаторлары (атауы).
Мысалы, DAT жазбасы шектелген ... ... үш ... ... DAT=RECORD
KUN:1..31;
AI: 1..12;
JIL: 1900..2005;
END;
VAR D:DAT;
Жазба айнымалыларының өрісін программа денсінде пайдаланғанда жазба
айнымалыларының ... ... ... ... тілінде жазба ттпін басқадай күрделі типтерді ұйымдастыру
үшін қолдануға болады. мысалы, жазаб ... ... ... ... ... ... GRUP=(SRUD1, STUD2, STUD3, STUD4);
VAR MASSDAT:ARRAY[GRUP] OF DAT;
Мұндағы DAT жазбасы жоғарыда баяндалған жазба, ал MASSDAT бір ... және төрт ... ... массив қайсібір топ студеннттерінің туған датасын белгілеуге
пайдаланылады. Мысалы, бір студенттің туған ... ... үшін ... ... ... мысал.
Атестация нәтижелері туралы мәлімет берілген: студенттің аты-жөні, бес
пәнінің аты мен әр пәннен алған балдары. Барлық ... ... ... ... ... ... ... student=record
FIO:string;
subject,ball:array [1..5] of string;
end;
var
stud:array [1..n] of student;
i,j,k:integer;
begin
for i:=1 to n do
with stud[i] do
begin
readln(FIO);
for j:=1 to 5 do
begin
readln(subject[j]);
readln(ball[j]);
end;
end;
for i:=1 to n ... j:=1 to 5 ... ... then ... k=5 then ... ... программа.
Программалау барысында белгілі бір мақсатты шешу үшін ... ... ... ... ... ... ... тура келеді. Мұндай жағдайда программистің жұмысын жеңілдету үшін
бірінші рет 1957 жылы М. ... ... ... тұжырымдамасын ұсынды.
Содан бері қосалқы программа ұғымы барлық программалау тілдерінде кеңінен
қолданылып келеді. Қосалқы программа деп ... ... кез ... ... қажет болса да шақыруға болатын логикалық аяқталған
операторлар ... ... Turbo Pascal ... ... қосалқы
программаларды құру үшін процедуралар мен ... ... ... ... ... ... Келесі кілттер арқылы: мерзімі, соттық тексеріс затына, ... аты ... ... бойынша жазба массивтін элементтерінің
өрісіне арналған мәндерін шығаруын ... жылы ... ... істердің саны ең
жоғарғы болғанын анықтау.
3.2 Есептің блок схемасы:
иә ... ... ... Program Maksat;
2 uses crt;
3 const n=3;
4 type
5 ... ... ... day:integer;
9 month:integer;
10 year:integer;
11 end;
12 dauger:record
13 tel:string;
14 at:string;
15 ... ... ... end;
19 end;
20 end;
21 maks=file of Sot;
21 var
22 a:array[1..n]of sot; Sotis:sot;
23 i,t,max,j,s,k:integer; p:string;
24 x,y:array[1..n]of integer; ... ... clrscr; ... assign ... rewrite ... for i:=1 to n ... with ... do
31 begin
32 writeln(i,'Sot isi');
33 write('Sot tekserisinin sebebi=');readln(sebep);
34 with data,dauger,jauapshy ... ... ... data');
37 write('kuni='); readln(day);
38 write('ayi='); readln(month);
39 write('jili='); readln(year);
40 writeln(i,' dauger');
41 write('telefon nomeri='); readln(tel);
42 write('firmanin ati='); readln(at);
43 writeln(i,' jauapshy');
44 write('telefon nomeri='); ... ... ati='); ... ... write (f',a[i]);
48 close (f);
49 end;
50 reset (f);
51 read (f,Sotis);
52 for i:=1 to n do
53 with a[i] do
54 begin
55 if ... ... ... ... k:=0;
59 for i:=1 to n-1 do
60 begin
61 for j:=i+1 to n do
62 begin
63 if x[i]=x[j] then
64 k:=k+1;
65 end;
66 y[i]:=k;
67 ... ... ... for i:=1 to n ... if y[i]>max then
72 begin
73 max:=y[i];
74 s:=i
75 end;
76 writeln(a[s].data.year,' jili discriminaciyaga bailanisti isterdin sani
en kop boldi');
77 close (f);
78 end.
3.4 Программаның байандалулы:
3.4.1 ... ... ... ... ... іске қосу
3. Тұрақты n=5
4 Тип бөлімі
5-21 Тип бөлімін сипаттау
21 Айнымалыларды хабарлау
22-24 Айнымалыларды сипатау
25 Программа ... ... ... ... ... ... байланыстыру
29 Массивтің циклы
30 with операторы
31 Програма денесінің басалуы
32-45 Сөздерді шығару және ... a[i] ... f ... ... ... ... Бар файлды ашу
51 Файлға жолды жазу
53 Цикл қолдану
55 Егер sebep='diskriminaciya' болса
56 x[i]-ді data.year-ге меншіктеу
58 к-ны 0-ге меншіктеу
63 Егер if ... ... к-ны ... y[i] ... k-ға меншіктеу
67 к-ға i-ге меншіктеу
69 масситің бір элементін max-ға меншіктеу
71 max ... y[i] ... ... max-ге y[i] ... ... меншіктеу
74 s-ке i-ді меншіктеу
76 Мәліметтерді шығару
77 Файлды жабу
78 Программаның соңы.
3.4.2 Пайдаланған жабдықтар:
1 Пентиум 4 ... 1.70 GHz, ОЗУ 256 Mb
2 ... Windous XP ... ... Samsung M 1210
3.4.3 Eсептің енгілзіуі:
1 Sot ... ... ... ... noberi=934211
firmanin ati=foodmaster
1 jayapshy
telefon nomeri=439211
firmanin ati=atal
2 Sot tekserisinin sebebi=discriminaciya
2 data
kuni=24
ayi=5
jili=1989
2 dauger
telefon noberi=453510
firmanin ... ... ... ... Sot ... sebebi=discriminaciya
3 data
kuni=2
ayi=6
jili=1990
3 dauger
telefon noberi=462862
firmanin ati=nica
3 jayapshy
telefon nomeri=315309
firmanin ati=lg
3.4.4 Eсептің жауабы:
1989 jili discriminaciyaga bailanisti isterdin sani en kop boldi.
4.Жолдар есеп
4.1 ... ... 2 ден 30 ... сөзден құралған тізбек берілген, онда 2 ден
10 дейін кіші әріппен жазылған орыс әріптері бар; ... ...... соңғы созден кейін нүкте. Сол тізбекрегі барлық сөздерді
соңғы сөзге ұқсас болмауы керек, ... ... әр ... ... ... жаза ... ... Есептің блок схемасы:
жоқ
иә
иә
иә
иә
жоқ
иә
жоқ
иә
жоқ
иә
жоқ
4.3 Программаның листінгі:
1 Program Maksat;
2 uses crt;
3 var
4 ... ... ... ... ... ... ... uz:=length(st);
11 i:=uz; k:=0;
12 repeat
13 k:=k+1;
14 i:=i-1;
15 until st[i]=',';
16 d:=copy(st,uz-k+1,k-1);
17 p:=0;
18 for i:=1 to uz ... ... if ... ... if (st[i+k]'.') or (st[i-k]',') then
22 begin
23 c:=copy(st,i+1,k-1);
24 if (c=d)and (i+kuz) then
25 begin
26 p:=p+1;
27 i:=uz;
28 end;
29 end;
30 end;
31 if p>=1 ... ... ',d,' sozi songi sozge ... ... write('tizbektegi barlik sozder songi sozge uksas emes');
35 writeln;
36 p:=0;
37 for i:=1 to uz do
38 begin
39 if ... ... ... if (st[i]=',')or (st[i]='.')then
42 begin
43 s:=copy(st,i-1,1);
44 delete(st,i-1,1);
45 insert(s,st,i-p+1);
46 p:=0;
47 end;
48 end;
49 write(st);
50 end.
4.4 Программаның байандалулы:
4.4.1 Программаның сипатталуы:
1 Программаның аты
2 ... ... ... хабарлау
4-5 Жол типті айнымалыларды хабарлау
6 Программа денесінің басы
7 Экранды тазалау
8 'tizbekti engiz' сөзін енгізу
10 st жолының ... uz i-ге ... Цикл ... шарт ... егер ... болса
21 егер st[i+k]'.' немесе st[i-k]',' болса
26 р-ны санау
27 i-ге uz-ді меншіктеу
32 tizbektegi ',d,' sozi songi sozge uksas шығару
36 p-ге 0-ге ... ... st ... i-1 ... бір ... ... ... st жолындағы i-1 поз-ғы бір элементі элементті жою
46 p-ге 0-ді ... st ... ... ... ... жабдықтар:
1 Пентиум 4 Селерон 1.70 GHz, ОЗУ 256 Mb
2 ... Windous XP ... ... Samsung M ... ... ... ... Eсептің жауабы:
raida, narma,adinar,kberi,aanar.
5.Жазбалар есеп
3.1 Eсептің берілуі:
19есеп: Келесі кілттер арқылы: тауарлардың атына ... аты ... таза ... ... ... ... ... типі
жазба массивтін элементтерінің өрісіне арналған мәндерін ... ... Қай ... ... халықтың тұтыну тауарларды сақтауға
арналғанын анықтау.
5.2 Программаның листінгі:
1 program Maksat;
2 const n=2;
3 type ... ... ... ... ... ... ... CTOK:real;
11 Fir:record
12 FA:string;
13 KT:string;
14 end;
15 end;
16 Var a:array[1..n] of Shar_Kiz;
17 ... ... for i:=1 to n ... With a[i],Tov,Fir do
21 Begin
22 readln (TA);
23 readln (SH);
24 readln (TT);
25 readln (Catkol);
26 readln ... readln ... readln ... ... ... for i:=1 to n ... ... if POS('haliktik tutinu', a[i]. Fir.KT)0
34 then writeln (a[i].Fir.FA);
35 s:=s+1;
36 end;
37 if s=0 then
38 writeln ('bul salada jumis icteitin firmalar ... else writeln ('bul salada barligi ',s,' firma jumis ... ... ... байандалулы:
5.3.1 Программаның сипатталуы:
1 Программаның аты
2 Тұрақты n=2
3 Типті бөлімі
4-13 Shar_kiz ... ... ... With ... ... ... s-ке 0-ді ... егер 'haliktik tutinu', a[i]. Fir.KT позициясы 0-ге тең емес болса
34 a[i].Fir.FA жазу
37 егер s=0 ... 'bul salada jumis icteitin firmalar jok' ... ... 'bul salada barligi ',s,' firma jumis isteidi' ... соңы.
5.3.2 Пайдаланған жабдықтар:
1 Пентиум 4 Селерон 1.70 GHz, ОЗУ 256 Mb
2 Програма Windous XP ... ... Samsung M ... Eсептің енгізілуі:
Televizor
40
20
10
4
lg
haliktik tutinu
Televizor
150
60
30
5
sony
haliktik tutinu
5.3.4 Eсептің жауабы:
Bul salada barligi 2 firma jumis isteidi
ҚОРЫТЫНДЫ.
ЭЕМ тарихында ... ... ... ... ... да ... ... машиналарды бiрiктiруге, олар арқылы ... ... ... бiр-бiрiмен ақпарат алмасуға тырысқан.
Біз Turbo Pascal тілін ... ол ... ... есептер шығарып және программалар құруға болатынына көз ... ... ... жұмыс iстей бiлу өте қажеттi. Қазiр
кез-келген жақсы жұмыс орынға орналасу үшiн ... ... ... ағылшын
тiлiн және компьютермен, кем дегенде, қарапайым жұмыс iстеудi талап етедi.
Ал ... ... ... ... өте ... ... келеді. Ал
менiң мамандығымның компьютерге ... ... ... бiлу қажеттi деп санаймын. ... ... ... мен өзiм үшiн ... жаңалықтар аштым.
Алайда, бiраз мәлiметтi оқып, Turbo Pascal-дің ... ... ... мен бұл ... өте ... ... ... А.Б.Дәулетқұлов, С.С.Алғазы
«Паскаль» тілінде программалау негіздері (Алгоритмдеу және программалау)
Алматы, 2004ж.
2) Н.Ы Омарова К.У. ... К.Н. ... ... ... ... Алматы, Білім 1996ж.
3) Ғ.Ш. Тойкенов «Паскаль тілінде прогрпммалау»,
Алматы, «Дәнекер», 2001ж.
4) Е.Ж.Ынтымақов, ... ... ... ... ... Ж.Қ. ... Б.А. Бельгибаев А.С. Бижанова, Қ.Қ.
Мақұлов «Turbo Pascal», Алматы, 2004ж.
6) Бөрібаев «Информатика және компьютер», Алматы,
1995ж.
-----------------------
Сот ісі
Жауапшы
Даугер
Сот тексері- сінің себебі
Уақыты
Күні
Айы
Жылы
Фирманың
аты
Телефон
номері
Фирманың
аты
Телефон
номері
i=1,n
Шаруашылық қызымет
Тауар
Сауданың ... ... ... ... ... түрі
sebep ... ... ... ... ... ... k:=1
Соңы
a[i].sebep=
’discriminaciya’
k:=k+1
Басы
st[i]’,’ or st [i]=’,’
y[i]:=k t=i
max:=y[1]
summa(A)
:= 1
max:=y[i]
s:=1
y[i]>max
Басы
i=1,n-1
j=i+1,n
i=1,n
p:=p+1
st[i]=’,’
i=1,uz
d:=copy (st,uz-k+1,k-1) p:=0
i=n,uz
st[i]=’,’
c=d and
i+kuz
st[i+k]’,’
or st[i-k]’,’
d:=copy (st,uz-k+1,k-1)
p:p+1
i:=uz
summa(A)
:= ... barlik sozder songi sozge uksas ... ',d,' sozi songi sozge ... i:=uz ... ... or st [i]=’,’
Coңы
st
S:=copy(st,i-1,1)
delete(st,i-1,1) insert(s,st,i-p+1)
p:=0
23
cтр
24
cтр

Пән: Информатика
Жұмыс түрі: Реферат
Көлемі: 17 бет
Бұл жұмыстың бағасы: 300 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Паскаль-программалау тілі11 бет
Турбо паскаль курсы бойынша сауалнама сұрақтары34 бет
2 IAS халықаралық қаржы есептілігінің стандарты11 бет
72 пәтерлі тұрғын үй, дүкені мен офис және шаштараз жобасы60 бет
MS Excel функциялары мен формулалары30 бет
NGN желісі туралы мәліметтер22 бет
«АЗИЯ МАГИСТРАЛЬ»-ДЫҢ ҚОСЫЛҒАН ҚҰН САЛЫҒЫНЫҢ ЕСЕБІ32 бет
«атакент» бойынша туристік-экскурсиялық маршрутты өңдеу37 бет
«АТФБанк» АҚ банкі145 бет
«ОҚ Қазавтосервис» ЖШС жылжымалы құрамының агрегаттарды жөндеу учаскесінің технологиясын жетілдіру34 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь