Turbo pascal программалау жүйесі туралы ақпарат

Кіріпе . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 2
1. Программалау тілдері. . . . . . . . . . . . . . . . . . . .3
2. Turbo Pascal жайлы жалпы мағұлматтар. . . . . . . . . 5
3. Қолданылған программалар . . . . . . . . . . . . . . . .6
3.1Файлдар және оның түрлері . . . . . . . . . . . . . . . .6
3.2Жазбалар және жазба типі . . . . . . . . . . . . . . . . .7
3.3Жолдар . . . . . . . . . . . . . . . . . . . . . . . . . . . 8
3.4Процедуралар. . . . . . . . . . . . . . . . . . . . . . . .9
3.5Функциялар . . . . . . . . . . . . . . . . . . . . . . . . 10
3.6.Қосалқы программа. . . . . . . . . . . . . . . . . .12
4.Есептердің қойылымы . . . . . . . . . . . . . . . . . . .13
Қорытынды . . . . . . . . . . . . . . . . . . . . . . . . . .25
Пайдаланған әдебиеттер . . . . . . . . . . . . . . . . . . 26
Қазіргі кезде кеңінен қолданылатын программалау жүйесінің бірі – Turbo Pascal. Американың Borland корпорациясының бұл өнімі сол корпорацияның қызметкері Андерсон Хейлсбергтің жетекшілігімен құрастырылған. Turbo Pascal – дың түп нұсқасы швейцария ғалымы Никлаус Вирт жасаған Паскаль тілі программалау тілінен тарайды. Бастапқыда паскаль тілі программалауды алғаш үйренушілер үшін өте тиімді құрал болып табылған. Қарапайым Паскальды өңдеудегі А.Хейлсбергтің үлкен еңбегінің нәтижесінде Turbo Pascal – жоғарғы деңгейлі программалау жүйесі. Оның логикалық құрылымы әр түрлі есептерді дәл шешуге көмегін тигізеді. Сондықтан, оқушылар мен студенттерге программалаудың негізін Turbo Pascal тілін оқып – үйретуден бастап, программалаудың қыр – сырын меңгерудің маңызы зор. Turbo Pascal – жоғары деңгейлі программалау жүйесі. Оның тұңғыш нұсқасын 1970 жылы швейцария физигі Никлаус Вирт (Nicklaus Virt) ұсынған. Автор тілді алғашқы арифметикалық есептеу машинасын жасаған француздың ұлы ғалымы Блез Паскалбдың құрметіне Паскаль деп атап, тіл атауын үнемі бас әріппен жазылуын сұраған. Кейіннен тілдің көптеген нұсқалары жарық көреді.Солардың ішінде, 1983 жылы Borland корпорациясының талантты қызметкері Андерсон Хейлсбергтің жасаған жаңа үлгісі – Turbo Pascal программалаушылар арасында үлкен сұранысқа ие болды. Оның бұл нұсқасы СР/М операциялық жүйесіне негізделген. 1984 жылдың басында MS DOS жүйесіне ауыстырылғалы бері пайдалану қарқыны бұрынғыдан да арта түсті. Turbo Pascal – дың жоғарғы деңгейлі логикалық құрылымы әр түрлі есептерді дәл шешеуге көмегін тигізеді. Turbo Pascal жүйесінде қарапайым есептерді шешудің программасынан бастап, күрделі мәліметтер қорын құрудың сан қырлы жұмыстары жүргізіледі
1) А.Б.Дәулетқұлов, С.С.Алғазы
«Паскаль» тілінде программалау негіздері (Алгоритмдеу және программалау) Алматы, 2004ж.
2) Н.Ы Омарова К.У. Тұрмағамбетова К.Н. Нуркенова
«Паскаль тілінде программалау кездері», Алматы, Білім 1996ж.
3) Ғ.Ш. Тойкенов «Паскаль тілінде прогрпммалау»,
Алматы, «Дәнекер», 2001ж.
4) Е.Ж.Ынтымақов, Ә.Ө.Мұртазина «Паскаль тілінің
негіздері» Алматы, 1998ж.
5) Ж.Қ. Масанов, Б.А. Бельгибаев А.С. Бижанова, Қ.Қ.
Мақұлов «Turbo Pascal», Алматы, 2004ж.
6) Бөрібаев «Информатика және компьютер», Алматы,
1995ж.
        
        Мазмұны:
Кіріпе _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ 2
1. ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... Turbo Pascal ... ... мағұлматтар_ _ _ _ _ _ _ _ _ 5
3. Қолданылған программалар _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... және оның ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... және жазба типі _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... ... _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ ... кезде кеңінен қолданылатын программалау жүйесінің бірі –
Turbo Pascal. Американың Borland ... бұл ... ... ... ... ... ... Turbo Pascal – дың түп нұсқасы швейцария ғалымы ... ... ... тілі ... ... ... Бастапқыда паскаль тілі
программалауды алғаш үйренушілер үшін өте тиімді құрал болып ... ... ... ... ... ... нәтижесінде
Turbo Pascal – жоғарғы деңгейлі программалау жүйесі. Оның логикалық
құрылымы әр ... ... дәл ... ... тигізеді. Сондықтан,
оқушылар мен студенттерге программалаудың ... Turbo Pascal ... оқып ... ... программалаудың қыр – сырын меңгерудің маңызы зор. Turbo
Pascal – жоғары деңгейлі программалау жүйесі. Оның ... ... ... ... ... ... Вирт (Nicklaus Virt) ұсынған. Автор тілді
алғашқы арифметикалық есептеу машинасын жасаған француздың ұлы ғалымы ... ... ... деп ... тіл ... ... бас әріппен
жазылуын сұраған. Кейіннен тілдің ... ... ... ... 1983 жылы Borland ... ... қызметкері Андерсон
Хейлсбергтің жасаған жаңа үлгісі – Turbo Pascal ... ... ... ие болды. Оның бұл нұсқасы СР/М ... ... 1984 ... басында MS DOS жүйесіне ауыстырылғалы бері
пайдалану қарқыны бұрынғыдан да арта түсті. Turbo Pascal – дың ... ... ... әр ... ... дәл ... көмегін
тигізеді. Turbo Pascal жүйесінде қарапайым есептерді шешудің программасынан
бастап, күрделі мәліметтер қорын ... сан ... ... ... Программалау тілдері
ЭЕМ-нің дамуымен қатар оған қажетті базалық ... ... ... ... ... ... бұл прогммалау тәсілдеріне қатысты, олардың
көмегімен адамбар есептерді ЭЕМ-де шешу үшін кодтауды ... ... ... ... ... ... кезең – 50 жылдардың соңына қарай программалау құрылымы, дәл
кодтау тәсілі ... ұзын ... ... ... ... ... сандар қолданылды. Бұл қызметтің ... ... деп ... да, оның ... – алгоритмді құрастыру міндеті қойлды.
Екінші кезең – оларға Ассемблер тілдері ... ... ... ... ... ... ... болады. Оларды нақтылы ... ... ... ... ... жадылы, жылдам есептеуіш машиналардың пайда ... ... ... өсіреді, олармен адамдардың жұмыс істеуі
тиімсіз бола бастады.
Бір машинадан екінші екінші машинаға ... ... ... кезінді алгоритмдердің көбінесе аударуға келмейтіні бақыланды,
сондықтан нақтылы машиналарға аппараттық есеп жүргізуге қажеттілік туды.
Бөтен программалардың құрылу ... ... ... ... ... тілінде жазылған программаларда, ... емес ... ... ... ... ... ... программаларды
түрлі техникалық жөндеуге келмейтін естен тандыратын, ... ... ... ... оларды ашу мүмкін болмайды. Болашақ студент
оның себебін іздеумен апталап отыратын болған, ал ... іс ... ... не ... ... ... қиыншылықтан шығудың жолы «жоғарғы деңгейлі» программалау тілдерін
жазылуына себепші болды.
Үшінші кезең – тілдердің мең «көлемді» кезеңі. Ол1955 жылы ... ...... ... ... пайда болуынан
басталды. Бұл тілдің пайдаланылуы осы күнге дейін жалғасып келді.
1960 жылы АЛГОЛ (ALGOritmic Languare – ... тіл) тілі ... Ол да ұзақ ... бойы программалаушылар шеңбеінде белгілі
танымашылықпен пайдаланылды.
1965 жылы және ... де ... ... ... ... тілі
жасалынды. (BASIC Beginners Allpurpose Instructions Code – ... ... ... ... ... ... коды»).
БЕЙСИК-тің таралуы дербес компьютерлерде кеңінен қалданыс тапты. Қазіргі
кезде бұл ... ... ... ... бар.
1970 жылы Никлаус Вирт PASCAL тілін жасады.Бұл тіл ... ... ... ... ... ... құралдармен жабдықталған
болып саналады.
1980 жылы қазіргі тілдердің ішіндегі қуаттылардың бірі болып саналатын
ADA (Ада) ... тілі ... Ол АҚШ ... министрлігінің
есептеу орталықтарының негізгі тілі ретінде қабылданды.
Қазіргі кезде тағы да бір қуатты тіл –С (Си) ... ... ... ... кезеңі – бұл программалық ... ... және ... ... ... деп те атайды. ... ... dBase, ... ... ... ... болады.
Барлық аталған тілдер, ресми болып табылатын «бесінші ... ... ... ... табылады. Бұл кезеннің негізгі тілдерінде
– LISP ... ... тілі ... және PROLOG – логикалық терминдерді
программалау тілдері жатады /ПРОЛОГ/.
ЛИСП 1961 жылы (АҚШ-та, ... ... ал ... жылы ... ... ... жасалынды. Бұл тілдерде
есептер шығарылғанда программалаушыға, оны ... ... ... емес, НЕ істеу
керек екенін жазуды ғана ... ... Ал ... жүйе ... және ... ... асырады.
Оылайша барлық программалау тілдерін үш деңгейге бөлуге ... ... ... ... ... ... яғни бірінші және екінші кезең
тілдері; ЖОҒАРҒЫ деңгейлі тілге – барлық процедуралық тілдер, яғни үшінші
және төртінші кезең ... және ӨТЕ ... ... ...... кезең
тілдері жазылады.
Кез-келген программалау тілінде жазылған программа бар ... ... бір ... ... мәтән болады. Жазылған программа мәтіні бойынша
орындалатын әрекеттерді машина орындай алу үшін, ол мәтінді ... ... тіл ... яғни ... ... ... машиналық тілге ауыстыру
қажет. Және бұл программалар шындығында ... ... ... ... Нақтылы аудармашы-программаларды ТРАНСЛЯТОРлар деп атайды.
Ағылшынның ... сөзі ... ... мағынаны
береді.Трансляторлар өз ... ... және ... ... түрлерге бөлінеді. Орындалу екі түлі тәсілмен жүзеге асады.
Біріншіден, программа ... көре ... ... ... жіберуге
болады. Оны интерпретанция деп атайды. Басқа жағынан айтқанда балама тілде
басқа түрін ... ... ... Машиналық код түрінде мүндай программаны
орындауға ... Бұл ... ... деп аталады. ... ... ... аудармашылығымен салыстырсақ, ... ... ... ... ал копиляторларды-
кітап аудармашыларымен салыстыруға болады.
2.Turbo Pascal жайлы жалпы мағұлматтар.
Turbo Pascal – жоғайлы деңгейлі ... ... Оның ... 1970 жылы швецария физигі Никлаус Вирт ұсынған. Автор тілді
алғашқы арифметикалық есептеу машинасын ... ... ұлы ... Блез
Паскальдің құрметіне Паскаль деп атап, тіл ... ... бас ... ... тілдің көптеген нұсқаулары жарық көреді. Солардың ішінде,
1983 жылы Борланд ... ... ... ... ... жаңа үлгісі – Turbo Pascal прогламмалаушылар арасында
үлкен сұранысқа ие болады. Оның бұл ... CP/M ... ... 1984 ... ... MS DOS ... ауыстырылғалы бері
пайдалану қарқыны бұрынғыдан да арта түсті. Turbo Pascal-дің ... ... ... әр ... ... дәл ... ... тигізді.
Turbo Pascal жүйесінде қарапайым есептерді шешудің ... ... ... ... ... сан ... ... жүргізіледі.
3. Қолданылған программалар
3.1Файлдар және оның түрлері.
Оыған дейін, біз мәліметтерді пернетақтадан енгізіп, олады ... ... ... кезінде олар компьютердің оперативті жадында
сақталатын да, есептелер біткеннен кейін бұл мәліметтер ... ... ... келешекте пайдалана алу үшін, мысалы, оларды ... үшін ... жаңа ... алу ... оларды есте сақтап қалу
керек. Осындай тәсілдердің бірі мынадай: нәтиже экранға ... соң ... және бір бет ... ... бұл мәліметтерді жазып алу. «Дербес
компьютерлер» дәуірінің басында оларды «үй тапсырмасы» деп атаған да, ... ... ... ... ... ... ... барлығы
ақпаратты сақтауға арналған арнайы құрылғылырмен ... ... ... ... ақпарат тасымалдаушылар немесе
жазылатын СD-дискілер деп атайды. Ақпаратты сақтау осы ... бұл ... біз ... ... солардың жадында
сақтаймыз. Барлық мәліметтер осы тасымалдаушыларда файлдар ... ...... ... ... ... жадының ат қойылған аймағы (бөлігі).
File (ағылшын тілінен аударылғанды) бума, іс қағаздар жинағы, ... ... ... деген мағынаны бідіреді.
Borland Paskal-да файлдарды екі негізгі белгісі бойынша топтастыруға
болады:
а) ... типі ... ( оның ... ... файл ... ... тәсілі бойынша.
Типтері бойынша файлдар шартты түде үш түрге бөлінеді:
- мәтіндік файл;
- типтік файл;
- типтік емес файл.
Біз ... ... және ... файлдармен жұмыс
істейміз.
Қатынау тәсілі бойынша файлдар ... ... ... ... ... ... қатынау файлдары.
Олардың айырмашылығы тікелей қатынау файлдрында арнайы ... ... ... отырып, мәліметтерді, олардың файлдағы орнына
тәуелсіз, оқуға немесе жазуға болады, ал ... ... ... ... ... ... ... мәліметті оқу үшін, оның алдындағы
мәліметтердің барлығын оқуға тура ... ... ... кезекпен
қатынау файлдарына жатады, ал типтік файлдар тікелей ... ... және ... ... қамтуды біздер «Информатика» курсы бойынша сабақтарда оқып
үйренгенбіз. Ал программалық қамтудың қалай ... біз ... ... оқып ... Ал ... деректердің қалай
берілетінін қарыстырайық. Қысқаша мысал қарастырайық: Сіздің ... ... ... бір стакан шырын сатыпалып беруді сұрады. Сіз ... ... ... ... ... ... жазып алдыңыз.
Компьютердегі барлық деректер жазба ретіндесақталады.
Жазба – сол немесе ... ... не ... ... ... ... ... жиынтығы. Деректкрге байланысты жазба
элементарлық (бөлінбейтін ) объект ретінде қарастырылады.
Егер сіздің ... ... ... қоса ... ... әпер деген
болса, сіз мұны да есіңізде сақтап, екі жазбадан тұратын тізім жасайсыз.
Файлдар туралы сұрақтарды талқылағанда айтылғандай, файл ... бір ... ... ... ... Олай ... әр түрлі типтегі
элементтерді бір типке – жолдық типке айналдырып, мәтіндік файлдармен жұыс
істеуіміз керек.
Мәліметтерді сақтай ... ... ... бұл ... жұмыс
істеу жеткілікті қиындық туғызады.
Бұл қиыншылықтан шығу үшін мәліметтердің құрама типі қолданылады.
Мәліметтердің бұл типі ... деп ... ... әр түрлі типтегі
элементтер жиынтығынан тұрады. Жазба ... ... өріс ... да ... ... ... атауы болады.
Жазбаны өңдеу элементтері объекті түрінде шығады. ... ... типі ... ... деп ... Олай ... мәліметтердің типтеріне байланысты
шектеулер алынып тасталады.
Жазбаларды сипаттау үшін, оның атауы, берілген ... ... ... және типі ... ... Жазбалардың жалпы түрде
сипатталуы көрсетілгендей:
Type =Record
:;
:;
........................
:;
end;
3.3Жолдар.
Айтып өткеніміздей, программаға ... үшін ... (осы ... ... ... жады ... анықтау үшін)
және осы мәліметтердің программада сақталатын ... ... ... ... ... ... ... енгізіп, оны компилятор
экранына шығару керек болсын.
Жол – алфавиттер мен бос орын ... ... ... ... ... тізбегі.
Жолдық типті мәліметттерді сақтауға жадыдан орын бөлу үшін, біріншіден,
осы жолды сақтайтын жады бөлігіне ат беру ... ... ... типін
көрсету. Бұрын да айтқанымыздай, шамаларға мағыналы атау бергеніңіз дұрыс.
Сондықтан атау ретінде «Jol» атын ... Егер ... ... ... ... белгісіз болса, онда оны ... ... ... айнымалысына жадыдан 255 символға дейін сақтау үшін орын
беріледі. Яғни енгізу кезінде ... саны 0 ден 255-ке ... бола ... жадыдан бөлінген орын 256 байтты құрайды.
Егер программада қолданылатын симводар тұрақты және ... ... ... онда оны ... ... сипаттауға болады:
Const
Jol=’Jol’;
Бұл жағдайда тұрақты өлшемнің атауы да «Jol» және ... де ... ... ... ... ... айнымалылардың мәні жалғыз тырнақшаға
(’’) алынады, ал атауы тырнақшасыз жазылады.
3.4 Процедуралар.
Біздің операцияларымыз – орындайтын әрекеттерді сипаттау үшін процедура
түсінігін қолданамыз.
Жоғарыда ... ... ... осы ... ... ... шешу арқылы орындалады. Сонымен қатар, кез-
келген есеп, бір жалпы (үлкен ) есептің бөлігі ... да ... ... ... ... ... біз оны үш ішкі ... бөлдік. Бірақ «шай
әзірлеу» тапсырмасының өзі «таңғы асты әзірлеу» тапсырмысының бір ... ... Осы ... ... ... процедура деген түсінік, негізгі
есебтің бір бөлігін орындауға арналған ішкі программа екенін анықтаймыз.
Процедура (ішкі ... – ішкі ... ... ... бір ... ... ... құрылымы келесідей болады:
Procedure Аты (формальді параметрлер тізімі);
{таңбаларды,
тұрақтыларды,
типтерді,
айнымалыларды,
процедураларды сипаттау блогы}
begin
{процедура денесі}
end;
Байқасаңыз программа құрылымы мен процедуралар ... ... ... ... ... ... түйінді (қызыметші) ... бос ... ... кейін процедура атауы (идинфикаторы)
жазылады. ... ... ... ... ... ... параметрлер
жазылып, соңынан үтірлі нүкте қойылады.
Содан соң жергілікті ... ... ... ... ... және ... ... блогы
жазылады. Ал осы айтылғандардың барлығы программаның аналогты блогында мда
бар, бірақ басты ... бұл ... ... ... ... ... яғни, олардың әрекеті берілген процедурада ғана
орындалады.
Келесі ... Begin ... ... кейін процедура опраторларының
мәтіні орналасады. Ол үтірлі ... бар end ... ... ... процедураға қатынасу берілген процедураның атына байланысты ... ... ... ... түрі ... болады:
Program misal;
Procedure Init;
Begin
end;
Procedure Work;
Begin
end;
Procedure Ext;
Begin
end;
Begin
Init; {мәліметтерді енгізу операциясы }
Work; {мәліметтерді өңдеу операциясы}
Ext; {нәтижелерді шығару операциясы}
End.
Программаны ... ... Ол үшін ... меню ... ... ... пайдаланамыз. Бір қарағанда ештеңе өзгерген
жоқ, дегенмен, компилятор орындалу файлын құрды, оны ... ... ... біз ... ... орындады да, өз жұмысын тоқтатты. Осылайша, біз
толық, жұмысқа жарамды программа жасадық. Әрине ол әзірше ештеңе істемейді,
бірақ ... осы ... ... ала ... ... арқылы
қажетті программа жасаймыз.
3.5 Функциялар
Функция деп - жұмыс нәтижесінде бір ғана мәнді ... ... ... ... ... немесе оның тақырыбы Function
(функция) едп аталатын түйінді сөз бен кейін ... ... ... деп аталатын аргументтер мен ... ... ... соңында нәтиженің типі, яғни ... ... ... ... ... ... ... программалардағы сияқты белгі
таңбаларының анықтамаларынан, тұрақтылардан және айнымалыларды сипаттаудан
тұрады. Функцияның негізгі қызметін BEGIN және END ... ... ... ... да, ең ... «;» қойылады.
Біздің айтып өткеніміздей кез-келген есепті шешу барысында, оны шешу
жолында, қарпайым есептерді шешу ... яғни ... ... ... қажет етеді.
Осы тәсілді қолданып, біз негізгі есептің (программаның) ішіндегі ішкі
есептерді орындауды баяндайтын, ішкі ... ... ... ... ... ... айнымаллармен орындалатын әрекеттерді
қарастырғанда біздер, стандартты процедуралармен және ... ... да, ... ... есепті ішкі есептерге
(бөліктерге) жіктейді. Төменде функцияларды Pascal ... жазу ... Имя ... ... ... типі;
{таңбалар,
тұрақтылар,
типтер,
айнымалылар,
процедуралар,
функцияларды сипаттау бөлімі}
begin
{функция денесі, нәтиже мәні жазылатын функция атына
міншіктелетін, ең болмағанда бір ... ... ... назар аударыңыз, функциялардың құрылымы және процедуралар өзара
өте ұқсас. Функцияны ... Function ... ... ... бос орын
арқылы функция атауы ... ... ... ... ... ... Функция тақырыбы, соңына нүктелі үтір қойылған қабылдайтын
мәтіннің типімен аяқталады. Функцияларда қабылдайтын типімен аяқталады.
Функцияларда ... ... ... оның ... ... ... Length (s:string) функциясын қоддануды еске
түсіріп көрелікші, бұл функцияның мәні S жолдық ... ... ... ... ... ... айнымалылар, процедуралар
және функцияларды сипаттау бөлімі жазылады. Негізгі программаның сипаттау
бөлімімен бұл ... ... оның ... ... функция
ауқымында ғана бола алады және ... ... ... деп те ... ... begin ... сөзінен кейін функцияның операторлары
мәтіні жазылады. Оператор мәтіні end ... ... ... ... үтір
қойылады. Функцияларды шақыру (орындау), оның негізгі (шын, фактическии)
параметрі көрсетілген, берілген ... ... ... ... ... ... ... барысында белгілі бір мақсатты шешу үшін керекті
операторлар тізбегін программаның ... ... ... ... тура ... Мұндай жағдайда программистің жұмысын жеңілдету үшін
бірінші рет 1957 жылы М. ... ... ... ... ... бері ... программа ұғымы барлық программалау тілдерінде кеңінен
қолданылып келеді. Қосалқы программа деп негізгі программаның кез ... ... ... болса да шақыруға болатын логикалық аяқталған
операторлар жиынын айтады. Turbo Pascal ... ... ... құру үшін ... мен ... қолданылады.
4.Есептердің қойылымы.
4.1 ТАҚЫРЫП: FILE.
10 Вариант
Eсептің берілуі:
Келесі кілттер арқылы: мерзімі, соттық тексеріс затына, фирма ... ... ... ... ... ... ... өрісіне
арналған мәндерін шығаруын ескеру.
Сұраныстар:Қай жылы ... ... ... саны ... болғанын анықтау.
Есептің блок схемасы:
иә
жоқ
иә
жоқ
жоқ
иә
Программаның листінгі:
1 Program Maksat;
2 uses crt;
3 const n=3;
4 type
5 Sot=record
6 ... ... ... ... ... ... dauger:record
13 tel:string;
14 at:string;
15 jauapshy:record
16 tel:string;
17 at:string;
18 end;
19 end;
20 end;
21 var
22 a:array[1..n]of sot;
23 i,t,max,j,s,k:integer; p:string;
24 x,y:array[1..n]of integer;
25 ... clrscr; ... for i:=1 to n ... with a[i] ... ... writeln(i,'Sot isi');
31 write('Sot tekserisinin sebebi=');readln(sebep);
32 with data,dauger,jauapshy do
33 begin
34 writeln(i,' data');
35 write('kuni='); readln(day);
36 write('ayi='); readln(month);
37 write('jili='); ... ... ... ... ... ... write('firmanin ati='); readln(at);
41 writeln(i,' jauapshy');
42 write('telefon nomeri='); readln(tel);
43 write('firmanin ati='); ... ... ... for i:=1 to n ... with a[i] ... ... if ... then
50 x[i]:=data.year;
51 end;
52 k:=0;
53 for i:=1 to n-1 do
54 begin
55 for j:=i+1 to n ... ... if ... ... ... ... ... t:=i;
62 end;
63 max:=y[1];
64 for i:=1 to n do
65 if y[i]>max then
66 begin
67 max:=y[i];
68 s:=i
69 ... ... jili ... ... isterdin ... kop ... ... енгізілуі:
1 Sot tekserisinin sebebi=discriminaciya
1 data
kuni=12
ayi=3
jili=1989
1 dauger
telefon noberi=934211
firmanin ati=foodmaster
1 jayapshy
telefon nomeri=439211
firmanin ati=atal
2 Sot ... ... ... ... noberi=453510
firmanin ati=sony
2 jayapshy
telefon nomeri=464928
firmanin ati=adidas
3 Sot tekserisinin 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
Eсептің шығарылуы:
1989 jili ... ... isterdin sani en kop ... ... ... ... берілуі:
2 ден 30 дейін сөзден құралған тізбек берілген, онда 2 ден 10
дейін кіші ... ... орыс ... бар; көршілес сөздердің
арасында – үтір, соңғы созден кейін нүкте. Сол тізбекрегі барлық ... ... ... ... ... ... бірге әр сөздің соңғы әріпін
алдына жаза отырып шығару.
Есептің блок схемасы:
жоқ
иә
иә
иә
иә
жоқ
иә
жоқ
иә
жоқ
иә
жоқ
Программаның листінгі:
1 Program Maksat;
2 uses ... ... ... ... ... ... ... engiz');
9 read(st);
10 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 do
19 begin
20 if ... ... if ... or ... ... 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 then
32 write('tizbektegi ',d,' sozi songi sozge ... ... ... barlik sozder songi sozge uksas ... ... ... for i:=1 to uz ... begin
39 if (st[i]',')or (st[i]'.')then
40 p:=p+1;
41 if (st[i]=',')or (st[i]='.')then
42 ... ... ... ... p:=0;
47 end;
48 end;
49 write(st);
50 end.
Eсептің енгізілуі:
aidar, arman,dinara,berik,anara.
Eсептің шығарылуы:
raida, narma,adinar,kberi,aanar.
ТАҚЫРЫП: ... ... ... ... ... ... байланысты, фирманың аты
бойынша, таза табыс бойынша,
Сұранысы: Қай фирманың қызыметі халықтың ... ... ... ... листінгі:
1 program Maksat;
2 const n=2;
3 type Shar_kiz=record
4 Tov:record
5 TA:string[20];
6 SH:real;
7 TT:real;
8 end;
9 Catkol:real;
10 ... ... ... ... ... ... Var a:array[1..n] of Shar_Kiz;
17 s,i:integer;
18 Begin
19 for i:=1 to n do
20 With a[i],Tov,Fir do
21 Begin
22 readln (TA);
23 readln (SH);
24 readln ... readln ... readln ... readln ... readln ... ... s:=0;
31 for i:=1 to n do
32 begin
33 if POS('haliktik tutinu', a[i]. Fir.KT)0
34 then writeln (a[i].Fir.FA);
35 s:=s+1;
36 ... if s=0 ... writeln ('bul salada jumis icteitin firmalar ... else writeln ('bul salada barligi ',s,' firma jumis ... ... ... шығарылуы:
Bul salada barligi 2 firma jumis isteidi
ҚОРЫТЫНДЫ.
ЭЕМ тарихында программалау тілдерінің ... ... ... да ... ... ... бiр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меттi оқып, Turbo Pascal-дің ... ... ... мен бұл ... өте ... ... ... А.Б.Дәулетқұлов, С.С.Алғазы
«Паскаль» тілінде программалау негіздері (Алгоритмдеу және программалау)
Алматы, 2004ж.
2) Н.Ы Омарова К.У. Тұрмағамбетова К.Н. ... ... ... кездері», Алматы, Білім 1996ж.
3) Ғ.Ш. Тойкенов «Паскаль тілінде прогрпммалау»,
Алматы, «Дәнекер», 2001ж.
4) Е.Ж.Ынтымақов, Ә.Ө.Мұртазина «Паскаль ... ... ... Ж.Қ. ... Б.А. ... А.С. Бижанова, Қ.Қ.
Мақұлов «Turbo Pascal», Алматы, 2004ж.
6) Бөрібаев «Информатика және компьютер», Алматы,
1995ж.
-----------------------
Сот ісі
Жауапшы
Даугер
Сот тексері- сінің себебі
Уақыты
Күні
Айы
Жылы
Фирманың
аты
Телефон
номері
Фирманың
аты
Телефон
номері
i=1,n
Шаруашылық қызымет
Тауар
Сауданың көлемі
Сатылған тауардың
өзіндік құны
Фирма
Аты
Шығындар
Таза ... ... ... ... ... ... ... jayapshy.at
i=1,n
a[s].data.year
k:=0
t:=1; 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 ... ... ... ... barlik sozder songi sozge uksas emes'
st
p>=1
p:=0
'tizbektegi ',d,' sozi songi sozge uksas'
uz=length(st) i:=uz k:=o
k:=k+1 ... or st ... ...

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









Ұқсас жұмыстар
Тақырыб Бет саны
Turbo Pascal - жоғары деңгейлі программалау жүйесі22 бет
Turbo Pascal 7.0 интегралдық программалау ортасын пайдалану43 бет
Turbo Pascal 7.0. программалау тілі10 бет
Turbo Pascal программалау жүйесі28 бет
Turbo Pascal программалау тілі10 бет
Turbo pascal программалау тілі туралы8 бет
Turbo Pascal программалау тілі туралы жалпы түсінік28 бет
Turbo Pascal программалау тілінің қосымша мүмкіндіктері24 бет
Turbo Pascal-да программалау13 бет
Turbo pascal6 бет


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


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

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

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

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

Email: info@stud.kz

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

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