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.3. Жолдық қатарларға программа құру
2.4. Жолдық қатарлар мен ... ... ... ... ... ... шығуы мен түзілуі монитордың видеоадаптерінің
жұмысына байланысты болады. ... ... ... ... ... ... графиктік режимде шығаруға болады.
Көптеген программаларда текстік мәліметтерді Read, Readln, ... ... ... ... ... ... және
ыңғайлы болып шығуына жеткіліксіз болып табылады. ... Turbo ... ... ... ... үшін қолданылатын арнаулы функциялар мен
процедуралар қарастырылған. Олар арнаулы CRT (Cathode Ray Tube display ... ... ... ... ... ... Оларды
текстік режимде жұмыс істеуге пайдалану үшін программаның басында CRT
модулін USES қызметші ... ... кету ... ... ғана ... ... барлық процедуралаы мен функцияларын пайдалануға болады.
Текстік режим кодтық кестенің барлық символдарын экранға шығару үшін
қолданылады. Текстік ... ең ... ... ... символ болып
табылады. Символдар бірнеше пиксельдерден (нүкте) құралады. ... мен ... ... шығу ... ... орнатылған
адаптерлердің типтері анықтайды. Қазіргі ... ... ... да ... режимде жұмыс істеуге мүмкіндік береді.
2.1. CRT модулінің ... мен ... ... орнату үшін TEXTMODE процедурасы ... ... ... ... ... нөмірін LASTMODE функциясымен
білуге болады, мысалы:
TEXTMODE(X); // Х – ... ... // ... ... нөмірін шығару
Текстік режим нөмірлері мәндері монитор мен ... ... ... ... Х-ке 0, 1, 2, 3, 7 ... Bw40, Co40, ... Mono, Font8x8 ... ... болады).
Экрандағы көріністі өшіріп тазалау үшін CLSSCR ... Бұл ... ... немесе ағымдағы терезені тазалап,
курсорды экранның сол жақ жоғарғы жағына апарып қояды.
Курсор тұрған жерден ... ... ... ... ... өшіру
CLREOL процедурасы қолданылады.
DELLINE процедурасы курсор тұрған ... ... ... ... ... бір позиция төмен жылжиды.
INSLINE процедурасы курсор тұрған ... бір бос ... ... ... ... бір ... ... жылжиды.
Экранда курсорды керекті жерге апарып қою үшін GOTOXY ... Бұл ... ... ... ... ... Х және
Y мәндері болатын орынға апарып ... ... тек ... ... ... ... Текстік режимде координаттардың басы ретінде экранның сол
жақ жоғарғы ... X=1 және Y=1 деп ... ... ... солдан оңға
қарай, Y-тің мәндері жоғарыдан төмен қарай өседі. X және Y ең ... ... ... ... режиміне байланысты болады. Мысалы 80х25/CGA,
EGA, CO80 адаптерлері үшін ... ... Xmax=80; ... курсорды X=10, Y=15 позициясына апарып қояды.
Курсордың тұрған жерін анықтау үшін WHERE функциясы қолданылады,
жазылуы:
Write(WHEREX, WHEREY);
// ... ... ... ... ... мәндері шығады
Сондай-ақ текстік режимде клавиатураның жұмысын басқаратын KEYPRESSED
және READKEY ... ... ... – егер ... ... ... ... онда
функицяның мәні «ақиқат» болады, мысалы төмендегі ... ... ... клавиш басылғанша орындалады:
USES Crt;
Begin Clrscr;
Repeat
Writeln (‘TEXT’);
Until Keypressed; END.
READKEY – егер клавиатурадан берілген ... ... ... ... мәні ... ... мысалы төмендегі фрагментте цикл
клавиатурадан «g» символынан басқа символдар басылса ... ... ал «g» ... ... ... ... ... N:Char;
Begin Clsscr; N:=‘g’;
Repeat
Writeln (‘TEXT’);
Until N=Readkey; END.
2.2. TEXTBACKGROUND және ... ... ... ... ... ... немесе ағымдағы терезенің түстерін
орнатуға болады, жазылуы:
TEXTBACKGROUND(M);
// экранға М нөмерлі түспен ...... ... ... ... ... көмегімен символдардың экранға шығатын түсі
орнатылады, программада жазылуы:
TEXTCOLOR(M);
// тексті М нөмерлі түспен шығарады,
М – ... ... ... ... – Қара(Black), 1 – ...... 3 – ...... 5 – ... – Қоңыр(Brown), 7 – ...... ... 9 – Ашық ... – Ашық ... 11 – Ашық ... – Ашық ... 13 – Ашық ...... 15 – ...... ... ... ... символдардың жарығын азайтып шығару
режимін орнату үшін қолданылады, жазылуы:
LOWVIDEO;
Writeln(‘TEXT’);
// TEXT сөзі ... ең ... ... ... ... процедурасы символдардың қалыпты жағдайдағы жарық режимінде
шығу режимін ... үшін ... ... TEXT сөзі ... ... ... жарық режимінде шығады
HIGHVIDEO процедурасы экранға символдардың жарығын көбейтіп ... ... үшін ... ... TEXT сөзі экранға ең жоғарғыжарық режимінде шығады
Текстік режимде кей жағдайларда ... ... ... ... бір
кішкуене терезе шығарып алып, тек қана сол терезе аумағында жұмыс істеуге
болады. Ол үшін экранға ... ... WINDOW ... ... процедура орындалу нәтижесінде экранға өзінде берілген координаталар
бойынша терезе шығарады, жазылу түрі:
WINDOW(X1, Y1, X2, Y2);
Процедура ... ... ... ... сол жақ ... координаттары X1, Y1 болатын, ал оң жақ ... ... X2, Y2 ... тік ... ... ... Crt;
VAR X:String;
Begin Textbackground(6);
WINDOW(5, 8, 25, 21); Clrscr; Readln(X); END.
WINDOW процедурасы орындалысымен орнатылған терезе тазаланып, ол ... ... ... ... ... сол жақ жоғарғы позициясына
барып орналасады. Әрі ... ... ... оңға ... ... оң жақ шекарасына жеткеннен кейін курсор келесі қатарға өтеді. Ал
курсор соңғы қатардың оң жақ ... ... ... мазмұны жоғарыға
қарай бір орынға жылжиды да, курсор сол қатардың басына барып ... ... ... Кей ... бұл ... ... ... төмендегі стандартты функцияларды қолдануға болады:
X:=Lo(WindMin)+1;
Х терезенің сол жақ ең жоғарғы ... ... ... терезенің сол жақ ең жоғарғы нүктесіндегі мәнін меншіктейді.
X:=Lo(WindMax)+1;
Х ... оң жақ ең ... ... ... ... ... оң жақ ең ... нүктесіндегі мәнін меншіктейді.
Мысалы төмендегі процедураның орындалу нәтижесінде екінші шығатын
терезе параметрлері X1=15, Y1=2, X2=30, Y2=12 ... ... ... ... Clrscr; Textbackground(2);
WINDOW(15,2,60,24);
Clrscr; Textbackground(5);
Window(Lo(WindMin)+1, Hi(WindMin)+1, ... ... CRT ... ... ... ... ... модулінің құрамына дыбыс шығару үшін қолданылатын келесі
процедуралар ... бір ... ... ... үшін SOUND ... ... Х – жиілікті анықтайтын бүтін шама.
Нота дыбыстарының жиіліктері
Октавалар: Үлкен Кіші ... ... 131 262 523 ... 147 294 587 ... 165 330 659 ... 175 349 698 ... 196 392 785 ... 220 440 880 ... 247 494 988 ... дыбысты өшіру үшін параметрсіз NOSOUND ... ... ... ... бір ... бойы ... тұру үшін ... уақытша тежейтін DELAY процедурасы қолданылады, жазылуы:
DELAY(T);
мұндағы: Т – программаның орындалуы тежеу уақыты (милисекунд)
Жоғарыда берілген үш процедураның көмегімен ... ... ... эффектілер жасауға болады (сиреналар, құстар әні, музыкалық
шығармалар, т.б.), ... ... ... ... орындалу
нәтижесінде кез-келген клавишаны басқанша кезек-кезек жеті нотаның дыбысы
шығып тұрады:
PROGRAM Text3;
USES Crt;
CONST A:Array[1..7] Of Integer=(523, 587, 659, 785, 880, ... ... ... K:=1 To 7 Do ... ... ... ... Keypressed;
END.
Сондай-ақ DELAY процедурасы циклдік операторлардың көмегімен текстік
объектілерді жылжытуда қолданылады. Ол үшін алдымен текстік объект ... ... DELAY ... ... ... ... көрініп тұрады да CLRSCR процедурасымен өшіріледі. Циклдің келесі
мәнінде жаңа координаттарымен ол тағы да жаңа ... ... ... ... да қайтадан өшіріледі, цикл аяқталғанша осындай процестер ... ... ... ... ... бара ... ... көрінеді.
2.4. Текстік режимде программалау мысалдары
177. Экранның әртүрлі режимдерінде текст шығару.
PROGRAM Text1;
USES Crt;
BEGIN Clrscr; ... ... ... ... Readln;
TextMode(Bw80); Write(‘NN=’, LastMode);
Writeln(‘Rejim’); Readln;
TextMode(Co80); Write(‘NN=’, LastMode);
Writeln(‘Rejim’); Readln END.
178. Әртүрлі жарық режимдерінде текст шығару.
PROGRAM ... ... ... Writeln(‘Text’);
NormVideo; Writeln(‘Text’);
LowVideo; Writeln(‘Text’);
Readln END.
179. Тексті алдымен саты бойымен жазып шығарып, соңынан ... ... ... ... ... K, ... Clrscr; X:=1;
For K:=1 To 25 Do Begin
Gotoxy(X,K);
Write(‘TEXT’); Inc(X,3); Delay(1000); End;
Readln; X:=6;
For K:=1 To 25 Do Begin
Gotoxy(X,K); ClrEol; Inc(X,3); Delay(1000); End;
Readln ... ... фоны мен ... ... етіп шығару.
PROGRAM Text4;
USES Crt;
VAR K:Integer;
BEGIN For K:=0 To 7 ... ... ... ... End;
Readln END.
181. Бір-бірінің ішінде орналасқан әртүрлі түсті 5 ... ... ... ... K, X, ... X:=0; Y:=0;
For K:=1 To 5 Do Begin
Textbaclground(K);
Window(K+X,K+Y, Lo(WindMax)+1-X, Hi(WindMax)+1-Y);
Clrscr; Inc(X,3); Inc(Y,1);
Delay(30000) End;
Readln END.
182. Төртбұрыштың ішіне текст жазып, дыбыспен жылжыту.
PROGRAM ... ... K, X, ... ... Clrscr;
X:=5; Y:=10;
Delay(1000); ... ... K:=1 To 30 Do ... Textbackground(9);
Window(X,Y,X+18,Y+7); (*терезе шығару*)
Clrscr; Textcolor(9);
Writeln(‘NO PROBLEM’); (*жазу шығару*)
Sound(1000); ... ... ... ... ... ... өшіру*)
Textbackground(2);
Clrscr; ... ... ... ... Readln;
Clrscr; END.
183. Тексті саты бойымен жазып шығарып ... ... ... K, X, ... ... ... (*Үзіліс жасау*)
For K:=1 To 10 Do ... (*1 жазу ... ... ... ... ... ... (*жазу шығару*)
Delay(1500); End;
Readln; END.
184. Бинго ойыны программасын ... ... ... ... K, ... Of ... Clrscr; ... бастау үшін ENTER бас’);
Readln;
Randomize;
For K:=1 To 15 Do Begin
Textcolor(K); Gotoxy(15,K+5);
Write(K, ‘шардың нөмірі -’);
1:X[K]:=Random(90)+1; Delay(65000);
If K=1 Then Goto 2 Else
For I:=1 To K+1 Do If ... Then Goto ... ... ... соңы, келесі жексенбіге дейін’);
Repeat Until Keypressed; END.
185. Сөтке бойы өртке қарсы сигнал беретін қондырғының іске қосылуын
программалау.
PROGRAM Text9;
USES ... ... Of Integer; ... Signal;
Begin Writeln (‘Өрт қауіпі туды!!!’);
Repeat Sound(500); Delay(1000); Nosound;
Sound(700); Delay(1000); Nosound;
Delay(1000) Until Keypressed; End;
PROCEDURE Olshem;
Begin For K:=1 To 24*60 Do ... K:=1 To 24*60 Do If T[K]>70 Then ... ... ... ... машинасының сиренасының дыбысын шығару.
PROGRAM Text10;
USES Crt;
VAR K:Integer;
PROCEDURE Syrena;
Begin Repeat ... K=500 Do Begin ... ... Nosound; ... Keypressed; End;
BEGIN Clrscr; Syrena; END.
187. Су тасқыны программасының алғашқы көрінісін шығару.
PROGRAM Text11;
USES Crt;
BEGIN 1:Textbackground(2); Clrscr; {сыртқы фон түсін орнату}
Textbackgorund(3); ... 5, 76, 20); Clrscr; ... ... ... ... ... ... Writeln(‘Жұмыс режимін таңда:’);
Gotoxy(20,5); Writeln(‘1. Ендіру файлын жасау’);
Gotoxy(20,6); Writeln(‘2. Ендіру файлын көру’);
Gotoxy(20,7); Wrietln(‘3. Шығару файлын ... ... ... ... ... ... Программадан шығу’);
Gotoxy(1,12);
Write(‘Керек режимнің цифрын жазып ENTER клавишын бас:’);
Readln; END.
Қорытыңды
Сонымен қорыта келе біз ... ... ... мен түзілуі
монитордың видеоадаптерінің жұмысына ... ... ... ... ... ... көмегімен символдарды текстік немесе
графиктік режимде шығаруға болады.
Turbo Pascal-да текстік режимде жұмыс істеу үшін ... ... мен ... ... ... ... Соның ішіндегі
CRT (Cathode Ray Tube display) – ... ... ... ... режимді орнату үшін TEXTMODE процедурасы қолданылады. Текстік
режимнің көмегімен біз ... ... ... ... ... ... TEXTBACKGROUND және TEXTCOLOR процедуралары арқылы ... ... ... түс ... бар. CRT ... құрамынан тағы бір
процедура білдік, ол белгілі бір жиілікпен дыбыс шығару үшін қолданылатын
SOUND процедурасы, сол ... ... ... үшін ... ... қолданылады.
Текстік режимнің көмегімен DELAY процедурасы циклдік операторларының
көмегімен текстік объектілерді жылжытуға болады ... ... ... ... координаттарымен DELAY процедурасының көмегімен кішкене
уақыт экранда көрініп тұрады да, сонан соң CLRSCR ... ... келе біз CRT ... ... мен ... көпетеген есептер, программалар құра алады екенбіз.
Пайдаланылған әдебиеттер
1. В.В. Фаронов «Основы Турбо-Паскаля» - М., ... ... ... 1992 ... В.Ф. ... Л.М. Поддубная «Программирование на языке Паскаль», М.,
Высшая школа, 1991 г.
3. В.Г. Абрамов, Н.П. ... ... в язык ... М.. 1988 ... В.С. Зубов «Программирование на языке Паскаль», М., 1997 г.
5. С.А. Абрамов «Задачи по ... М., ... 1988 г., ... О.Н. ... ... на языке Паскаль», М.. Машиностроение,
1986 г.
7. Р. Форсайт «Паскаль для всех», М., Машиностроение, 1986 ... Г. ... ... по ... на ... ... 1988
г.
9. Клинт Хикс «Руководство пользователя», Ин.лит., 2000 г.
10. В.В. Подбельский «Язык СИ++», С-П, Питер, 2001 г.
11. М. ... С. ... Д. ... ... СИ», Изд.ин.лит., 2000г.
12. Н. Джехани «Программирование на языке СИ++» М., Мир, 2000 г.
13. В.К. ... ... на ... СИ», М., ... 2001 ... Б. Страуступ «Языки программирования», М. Изд.ин.лит., 2000 г.
15. Л.М. Романовская, Т.В. ... С.Г. ... ... ... СИ», С-П., ... Пресс, 2001 г.
16. Никита Культин «Самоучитель. Программирование в Turbo Pascal 7.0 ... 2-е изд, ... и доп., СПб, ... 2002 ... В.В. ... «Турбо Паскаль 7.0. Практика программирования. Учебное
пособие. Издание 7, перераб.» - М., ... ... ... ... А.И. Марченко, Л.А. Марченко «Программирование в среде Турбо
Паскаль», пятое ... ... ... ... «ВЕК+», 1999 – 464с.:ил.
19. Электронный учебник «СИ и Паскаль», Ким С.Т., Мырзаев Р.С., 2003 г.

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









Ұқсас жұмыстар
Тақырыб Бет саны
Turbo Paskal-да символдық ақпаратты өңдеу19 бет
Массивтер. Ашық типті жолдар20 бет
Turbo Pascal - дағы енгізу және шығару операторлары26 бет
Turbo Pascal бағдарламалау тілі8 бет
Turbo Pascal программалау тілі10 бет
Айнымалылар, файлдар атауларын таңдау және оларға берілетін түсініктеме. Программалау стилі, деректерді енгізу және шығару18 бет
В.С. Библердің мәдениет диалогы мектебі идеясын жоо-да оқытудың тәжірибесіне енгізу13 бет
Түрік қағанаты (551–603 жж.)4 бет
Тәттіні көп пайдалану неге алып келеді?4 бет
ҚР-дағы жекешелендіру мәні, кезеңдері және оны жүргізу әдістері3 бет


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


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

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

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

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

Email: info@stud.kz

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

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