Turbo Pascal-дағы жолдық қатарлар



Жоспары

І. Кіріспе

ІІ. Негізгі бөлім
2.1. Жолдық қатарлар
2.2. Жолдық процедуралар мен фукнциялар
2.3. Жолдық қатарларға программа құру
2.4. Жолдық қатарлар мен амалдар орындау

Қорытынды

Пайдаланылған әдебиеттер
Кіріспе
Текстік режимде жұмыс
Экранда символдардың шығуы мен түзілуі монитордың видеоадаптерінің жұмысына байланысты болады. Компьютерде орнатылған видеоадаптердің көмегімен символдарды текстік немесе графиктік режимде шығаруға болады.
Көптеген программаларда текстік мәліметтерді Read, Readln, Write, Writeln процедураларының көмегімен енгізу-шығару программаның көрнекі және ыңғайлы болып шығуына жеткіліксіз болып табылады. Сондықтан Turbo Pascal-да текстік режимде жұмыс істеу үшін қолданылатын арнаулы функциялар мен процедуралар қарастырылған. Олар арнаулы CRT (Cathode Ray Tube display – электронды-сәулелі дисплей) библиотекалық модулі құрамында жазылған. Оларды текстік режимде жұмыс істеуге пайдалану үшін программаның басында CRT модулін USES қызметші сөзінде жазып кету керек. Сонда ғана программалауда CRT модулінің барлық процедуралаы мен функцияларын пайдалануға болады.
Текстік режим кодтық кестенің барлық символдарын экранға шығару үшін қолданылады. Текстік режимнің ең кішкене өлшем бірлігі символ болып табылады. Символдар бірнеше пиксельдерден (нүкте) құралады. Экранда символдар мен терезелердің әртүрлі шығу режимдерін компьютерде орнатылған адаптерлердің типтері анықтайды. Қазіргі шығып жатқан видеоадаптерлердің барлығы да текстік режимде жұмыс істеуге мүмкіндік береді.
Пайдаланылған әдебиеттер
1. В.В. Фаронов «Основы Турбо-Паскаля» - М., Учебно-инженерный центр «МВТУ-ФЕСТО ДИДАКТИК», 1992 г.
2. В.Ф. Шаньгин, Л.М. Поддубная «Программирование на языке Паскаль», М., Высшая школа, 1991 г.
3. В.Г. Абрамов, Н.П. Трифонов «Введение в язык Паскаль», М.. 1988 г.
4. В.С. Зубов «Программирование на языке Паскаль», М., 1997 г.
5. С.А. Абрамов «Задачи по программированию», М., Наука, 1988 г., 225с.
6. О.Н. Перминов «Программирование на языке Паскаль», М.. Машиностроение, 1986 г.
7. Р. Форсайт «Паскаль для всех», М., Машиностроение, 1986 г.
8. Г. Светозарова «Практикум по программированию на языке Бейсик», 1988 г.
9. Клинт Хикс «Руководство пользователя», Ин.лит., 2000 г.
10. В.В. Подбельский «Язык СИ++», С-П, Питер, 2001 г.
11. М. Уэйт, С. Прата, Д. Мартин «Язык СИ», Изд.ин.лит., 2000г.
12. Н. Джехани «Программирование на языке СИ++» М., Мир, 2000 г.
13. В.К. Потоцский «Работаем на языке СИ», М., Наука, 2001 г.
14. Б. Страуступ «Языки программирования», М. Изд.ин.лит., 2000 г.
15. Л.М. Романовская, Т.В. Русс, С.Г. Свитковский «Программирование в среде СИ», С-П., Питер Пресс, 2001 г.
16. Никита Культин «Самоучитель. Программирование в Turbo Pascal 7.0 и Delphi», 2-е изд, перераб. и доп., СПб, БХВ-Петербург, 2002 г.–416 с.:ил.
17. В.В. Фаронов «Турбо Паскаль 7.0. Практика программирования. Учебное пособие. Издание 7, перераб.» - М., Нолидж, издатель Молгачева С.В., 2001–416с.:ил.
18. А.И. Марченко, Л.А. Марченко «Программирование в среде Турбо Паскаль», пятое издание, базовый курс, Киев, «ВЕК+», 1999 – 464с.:ил.
Электронный учебник «СИ и Паскаль», Ким С.Т., Мырзаев Р.С.,

Turbo Pascal-дағы жолдық қатарлар

Жоспары

І. Кіріспе

ІІ. Негізгі бөлім
2.1. Жолдық қатарлар
2.2. Жолдық процедуралар мен фукнциялар
2.3. Жолдық қатарларға программа құру
2.4. Жолдық қатарлар мен амалдар орындау

Қорытынды

Пайдаланылған әдебиеттер

Кіріспе
Текстік режимде жұмыс
Экранда символдардың шығуы мен түзілуі монитордың видеоадаптерінің
жұмысына байланысты болады. Компьютерде орнатылған видеоадаптердің
көмегімен символдарды текстік немесе графиктік режимде шығаруға болады.
Көптеген программаларда текстік мәліметтерді Read, Readln, Write,
Writeln процедураларының көмегімен енгізу-шығару программаның көрнекі және
ыңғайлы болып шығуына жеткіліксіз болып табылады. Сондықтан Turbo Pascal-да
текстік режимде жұмыс істеу үшін қолданылатын арнаулы функциялар мен
процедуралар қарастырылған. Олар арнаулы CRT (Cathode Ray Tube display –
электронды-сәулелі дисплей) библиотекалық модулі құрамында жазылған. Оларды
текстік режимде жұмыс істеуге пайдалану үшін программаның басында CRT
модулін USES қызметші сөзінде жазып кету керек. Сонда ғана программалауда
CRT модулінің барлық процедуралаы мен функцияларын пайдалануға болады.
Текстік режим кодтық кестенің барлық символдарын экранға шығару үшін
қолданылады. Текстік режимнің ең кішкене өлшем бірлігі символ болып
табылады. Символдар бірнеше пиксельдерден (нүкте) құралады. Экранда
символдар мен терезелердің әртүрлі шығу режимдерін компьютерде орнатылған
адаптерлердің типтері анықтайды. Қазіргі шығып жатқан видеоадаптерлердің
барлығы да текстік режимде жұмыс істеуге мүмкіндік береді.

2.1. CRT модулінің процедуралары мен функциялары
Текстік режимді орнату үшін TEXTMODE процедурасы қолданылады.
Программалау барысында соңғы орнатылған режим нөмірін LASTMODE функциясымен
білуге болады, мысалы:
TEXTMODE(X); Х – режим нөмірі
WRITE(LASTMODE); экранға режим нөмірін шығару
Текстік режим нөмірлері мәндері монитор мен адаптерлер типтеріне
байланысты қойылады (мысалы Х-ке 0, 1, 2, 3, 7 немесе Bw40, Co40, Bw80,
Co80, Mono, Font8x8 тұрақтыларын беруге болады).
Экрандағы көріністі өшіріп тазалау үшін CLSSCR процедурасы
қолданылады. Бұл процедура экранды немесе ағымдағы терезені тазалап,
курсорды экранның сол жақ жоғарғы жағына апарып қояды.
Курсор тұрған жерден бастап қатардың аяғына дейінгі символдарды өшіру
CLREOL процедурасы қолданылады.
DELLINE процедурасы курсор тұрған қатардың барлығын өшіреді,
нәтижесінде кейінгі қатарлар бір позиция төмен жылжиды.
INSLINE процедурасы курсор тұрған жерге бір бос қатар қояды,
нәтижесінде кейінгі қатарлар бір позиция төмен жылжиды.
Экранда курсорды керекті жерге апарып қою үшін GOTOXY процедурасы
қолданылады. Бұл процедура курсорды координаттары өзінде көрсетілген Х және
Y мәндері болатын орынға апарып қояды. Координаттарға тек бүтін сандар ғана
беруге болады. Текстік режимде координаттардың басы ретінде экранның сол
жақ жоғарғы бұрышын X=1 және Y=1 деп алады. Х-тің мәндері солдан оңға
қарай, Y-тің мәндері жоғарыдан төмен қарай өседі. X және Y ең үлкен мәндері
монитордың адаптерінің жұмыс режиміне байланысты болады. Мысалы 80х25CGA,
EGA, CO80 адаптерлері үшін текстік режимде Xmax=80; Ymax=25.
GOTOXY(10,15);
курсорды X=10, Y=15 позициясына апарып қояды.

Курсордың тұрған жерін анықтау үшін WHERE функциясы қолданылады,
жазылуы:
Write(WHEREX, WHEREY);
экранға курсор тұрған жердің координаттарының мәндері шығады

Сондай-ақ текстік режимде клавиатураның жұмысын басқаратын KEYPRESSED
және READKEY логикалық функциялары қолданылады.
KEYPRESSED – егер клавиатураның кез-келген клавишы басылса, онда
функицяның мәні ақиқат болады, мысалы төмендегі фрагментте цикл
клавиатурадан кез-келген клавиш басылғанша орындалады:
USES Crt;
Begin Clrscr;
Repeat
Writeln (‘TEXT’);
Until Keypressed; END.

READKEY – егер клавиатурадан берілген символ клавишы басылса, онда
функцияның мәні ақиқат болады, мысалы төмендегі фрагментте цикл
клавиатурадан g символынан басқа символдар басылса қайталанып орындала
береді, ал g символы басылған заматта тоқтайды:
USES Crt;
VAR N:Char;
Begin Clsscr; N:=‘g’;
Repeat
Writeln (‘TEXT’);
Until N=Readkey; END.

2.2. TEXTBACKGROUND және TEXTCOLOR процедуралары TEXTBACKGROUND
процедурасы көмегімен текстің, экранның немесе ағымдағы терезенің түстерін
орнатуға болады, жазылуы:
TEXTBACKGROUND(M);
экранға М нөмерлі түспен шығарады
М – 0(қара)-ден 7(ақсұр)-ге дейін өзгереді.

TEXTCOLOR процедурасының көмегімен символдардың экранға шығатын түсі
орнатылады, программада жазылуы:
TEXTCOLOR(M);
тексті М нөмерлі түспен шығарады,
М – 0(қара)-ден 15(ақ)-ге дейін өзгереді.

0 – Қара(Black), 1 – Көк(Blue),
2 – Жасыл(Green), 3 – Көгілдір(Cyan),
4 – Қызыл(Red), 5 – Күлгін(Magenta),
6 – Қоңыр(Brown), 7 – Ақсұр(LightGray),
8 – Қарасұр (DarkGray), 9 – Ашық көк(LightBlue),
10 – Ашық жасыл(LightGreen), 11 – Ашық көгілдір(LightCyan),
12 – Ашық қызыл(LightRed), 13 – Ашық күлгін(LightMagenta),
14 – Сары(Yellow) 15 – Ақ(White)
128 – Символдарды жыпылықтату(Blink).

LOWVIDEO процедурасы экранға символдардың жарығын азайтып шығару
режимін орнату үшін қолданылады, жазылуы:
LOWVIDEO;
Writeln(‘TEXT’);
TEXT сөзі экранға ең төмегі жарық режимінде шығады
NORMVIDEO процедурасы символдардың қалыпты жағдайдағы жарық режимінде
шығу режимін орнату үшін қолданылады, жазылуы:
NORMVIDEO;
Writeln(‘TEXT’);
TEXT сөзі экранға қалыпты жағдайдағы жарық режимінде шығады
HIGHVIDEO процедурасы экранға символдардың жарығын көбейтіп шығару
режимін орнату үшін қолданылады, жазылуы:
HIGHVIDEO;
Writeln(‘TEXT’);
TEXT сөзі экранға ең жоғарғыжарық режимінде шығады

Текстік режимде кей жағдайларда бүкіл экран қажет болмай, бір
кішкуене терезе шығарып алып, тек қана сол терезе аумағында жұмыс істеуге
болады. Ол үшін экранға терезе шығаратын WINDOW процедурасы қолданылады.
Бұл процедура орындалу нәтижесінде экранға өзінде берілген координаталар
бойынша терезе шығарады, жазылу түрі:
WINDOW(X1, Y1, X2, Y2);

Процедура орындалу нәтижесінде экранға диагоналының сол жақ жоғары
төбесінің координаттары X1, Y1 болатын, ал оң жақ төменгі төбесінің
координаттары X2, Y2 болатын тік төртбұрыш шығарады, мысалы:
USES Crt;
VAR X:String;
Begin Textbackground(6);
WINDOW(5, 8, 25, 21); Clrscr; Readln(X); END.

WINDOW процедурасы орындалысымен орнатылған терезе тазаланып, ол бүкіл
экран секілді қарастырылып, курсор терезенің сол жақ жоғарғы позициясына
барып орналасады. Әрі қарай енгізілген символдар оңға қарай шығарылады.
Терезенің оң жақ шекарасына жеткеннен кейін курсор келесі қатарға өтеді. Ал
курсор соңғы қатардың оң жақ шекарасына жеткенде текст мазмұны жоғарыға
қарай бір орынға жылжиды да, курсор сол қатардың басына барып орналасады
(текст айналып тұрады). Кей жағдайларда бұл процедураның параметрлерінің
мәндері ретінде төмендегі стандартты функцияларды қолдануға болады:
X:=Lo(WindMin)+1;
Х терезенің сол жақ ең жоғарғы нүктесінде мәнін меншіктейді.

Y:=Hi(WindMin)+1;
Y терезенің сол жақ ең жоғарғы нүктесіндегі мәнін меншіктейді.

X:=Lo(WindMax)+1;
Х терезенің оң жақ ең төменгі нүктесіндегі мәнін меншіктейді.

Y:=Hi(WindMax)+1;
Y терезенің оң жақ ең төменгі нүктесіндегі мәнін меншіктейді.

Мысалы төмендегі процедураның орындалу нәтижесінде екінші шығатын
терезе параметрлері X1=15, Y1=2, X2=30, Y2=12 мәндерін қабылдайды.

USES Crt;
VAR X:String;
Begin Clrscr; Textbackground(2);
WINDOW(15,2,60,24);
Clrscr; Textbackground(5);
Window(Lo(WindMin)+1, Hi(WindMin)+1, (Lo(WindMax)+1)Div2,
(Hi(WindMax)+1)Div2);
Clrscr;
Readln(X); END.

2.3. CRT модулінің құрамына дыбыс шығару процедуралары
CRT модулінің құрамына дыбыс шығару үшін қолданылатын келесі
процедуралар кіреді:
Белгілі бір жиілікпен дыбыс шығару үшін SOUND процедурасы
қолданылады, жазылуы:
SOUND(X);
мұндағы: Х – жиілікті анықтайтын бүтін шама.

Нота дыбыстарының жиіліктері

Октавалар: Үлкен Кіші Бірінші Екінші
До 131 262 523 1047
Ре 147 294 587 1174
Ми 165 330 659 1318
Фа 175 349 698 1396
Соль 196 392 785 1568
Ля 220 440 880 1760
Си 247 494 988 1975

Орнатылған дыбысты өшіру үшін параметрсіз NOSOUND процедурасы
қолданылады, жазылуы:
NOSOUND;
Дыбыстық сигналды белгілі бір уақыт бойы ұстап тұру ... жалғасы

Сіз бұл жұмысты біздің қосымшамыз арқылы толығымен тегін көре аласыз.
Ұқсас жұмыстар
Туре тип атауы тип мәндері
Массивтер. Ашық типті жолдар
Turbo Paskal-да символдық ақпаратты өңдеу
Жолдық процедуралар мен фукнциялар
Turbo pascal тілінің негізгі элементтері туралы
Алгоритм түсінігі
Турбо Паскаль тілінде бағдарламаларды құрастырудың тәселдері
Turbo Pascal тілі туралы
Турбо Паскаль бағдарламысының тарихы
Емхана
Пәндер