1100220
столько раз учителя, ученики и родители
посетили сайт «Инфоурок»
за прошедшие 24 часа
+Добавить материал
и получить бесплатное
свидетельство о публикации
в СМИ №ФС77-60625 от 20.01.2015
Дистанционные курсы профессиональной переподготовки и повышения квалификации для педагогов

Дистанционные курсы для педагогов - курсы профессиональной переподготовки от 1.410 руб.;
- курсы повышения квалификации от 430 руб.
Московские документы для аттестации

ВЫБРАТЬ КУРС СО СКИДКОЙ ДО 90%

ВНИМАНИЕ: Скидка действует ТОЛЬКО до конца апреля!

(Лицензия на осуществление образовательной деятельности №038767 выдана ООО "Столичный учебный центр", г.Москва)

ИнфоурокИнформатикаРабочие программыСтандартты модульдерді Turbo Pascal жүйесінде есеп шығаруда қолдана білу

Стандартты модульдерді Turbo Pascal жүйесінде есеп шығаруда қолдана білу

библиотека
материалов
Скачать материал целиком можно бесплатно по ссылке внизу страницы.

Стандартты модульдерді Turbo Pascal жүйесінде есеп шығаруда қолдана білу

Паскаль тілінде 8 стандартты модуль бар. Осы стандартты модульдерде көптеген әртүрлі типтер, тұрақтылар, процедурамен функциялары келтірілген. Турбо паскаль тілінде келесі стандартты модульдер пайдаланады: System, DOS, CRT, Printer.Graph,Overlay,turbo3,graph3. Graph,turbo3,Graph3 модульдер бөлек TPU- файлдарда орналасқан, ал қалған модульдер Turbo.tpl кітапханалық файлдың құрамына кіреді. Тек SYSTEM модулі ғана кез келген программаға автоматты түрде қосылады, ал қалған модульдерді қосу үшін олардың аттарын USES деген сөзден кейін көрсету қажет. Негізгі стандартты модульдерді қысқаша қарастырайық.

  1. SYSTEM модулі. Бұл модульге стандартты паскальдың барлық процедурамен функциялары және басқа стандартты модульдерге кірмеген стандартты процедурамен функциялар жатады (мысалы: inc,dec т.с.с.). Жоғарыда айтылғандай SYSTEM модулі кез келген программаға қосылады USES-те хабарланбасада. Сондықтан оның глобальды тұрақтылары, айнымалылары және қосалқы программалары Турбо Паскальдің стандартты функция мен процедуралары болып саналады.

  2. PRINTER модулі. Бұл модуль арқылы принтерге тексттерді баспаға шығаруға болады . Бұл модульде PRN логикалық құрылғымен байланысатын TEXT типті LST атты файлдық айнымалысы анықталады. PRINTER модулі қосылғаннан кейін келесі программа орындалады:

USES PRINTER;

Begin

Writeln (LST,’Турбо Паскаль 7.0’);

End.

  1. CRT модулі. Экранмен жұмыс істеу үшін тексттік режимнің басқаруын қамтамасыз ететін процедурамен функциялары осы модульге жатады. CRT модульдің қосалқы программалар көмегімен курсорды экранның кез келген позициясына жылжытуға, шығарылатын символдардың және олардың фонының түсін өзгертуге, терезелерді ұйымдастыруға болады. Мысалы:

а) GOTOXY (X,Y:byte)- курсорды экранның (терезенің) қажетті орнына жылжытады

б) TEXTCOLOR (color:byte)- символдың түсін анықтайды.

в) TEXTBackground(color:byte)-фонның түсін анықтайды.

г) clrscr- экранды (терезені) тазалайды және курсорды экранның сол жағ жоғарғы бұрышына орналастырады.

д) readkey- клавиатурадан символды оқиды. Кез келген клавиша басылғанға дейін программаның орындалуы уақытша тоқтатылады.

е) keypressed- TRUE- қайтарады егер клавиша басылған болса және FALSE-ті қарсы жағдайда қайтарады. Программаның орындалуы тоқтатылмайды.

ж) window (X1,Y1,X2,Y2:byte)-экранда тексттік терезені анықтайды.X1,Y1-терезенің сол жақ жоғарғы бұрышының координатасы, X2,Y2-оң жақ төменгі бұрышының координатасы.


{ Crt модулінің процедуралары және функцияларын қолдану }

program frame;

uses Crt;

procedure Frm(l:integer; t:integer; w:integer; h:integer);

var

x,y:integer;

i:integer;

c1,c2,c3,c4,c5,c6:char;

begin

c1:=chr(218);

c2:=chr(196);

c3:=chr(191);

c4:=chr(179);

c5:=chr(192);

c6:=chr(217);

GoToXY(l,t);

write(c1);

for i:=1 to w-2 do

write(c2);

write(c3);

y:=t+1;

x:=l+w-1;

for i:=1 to h-2 do

begin

GoToXY(l,y);

write(c4);

GoToXY(x,y);

write(c4);

y:=y+1;

End;

GoToXY(l,y);

write(c5);

for i:=1 to w-2 do

write(c2);

write(c6);

End;

begin

Frm(2,2,15,10);

End.


Краткое описание документа:
Стандартты модульдерді Turbo Pascal жүйесінде есеп шығаруда қолдана білу Паскаль тілінде  8 стандартты  модуль  бар. Осы стандартты  модульдерде  көптеген  әртүрлі  типтер, тұрақтылар, процедурамен  функциялары  келтірілген. Турбо паскаль  тілінде  келесі  стандартты  модульдер  пайдаланады: System, DOS, CRT, Printer.Graph,Overlay,turbo3,graph3. Graph,turbo3,Graph3 модульдер  бөлек TPU- файлдарда  орналасқан, ал  қалған  модульдер Turbo.tpl кітапханалық файлдың  құрамына  кіреді. Тек   SYSTEM  модулі ғана кез  келген  программаға  автоматты  түрде  қосылады, ал  қалған  модульдерді  қосу  үшін  олардың  аттарын USES  деген  сөзден  кейін  көрсету  қажет. Негізгі  стандартты  модульдерді  қысқаша  қарастырайық. 1)  SYSTEM  модулі. Бұл  модульге  стандартты  паскальдың  барлық  процедурамен  функциялары  және  басқа  стандартты  модульдерге  кірмеген  стандартты  процедурамен  функциялар  жатады  (мысалы: inc,dec т.с.с.). Жоғарыда  айтылғандай  SYSTEM  модулі  кез келген  программаға  қосылады USES-те  хабарланбасада. Сондықтан  оның  глобальды  тұрақтылары, айнымалылары  және  қосалқы  программалары Турбо  Паскальдің  стандартты  функция мен  процедуралары  болып  саналады. 2)  PRINTER  модулі.  Бұл  модуль арқылы  принтерге  тексттерді  баспаға  шығаруға  болады . Бұл  модульде  PRN  логикалық  құрылғымен  байланысатын  TEXT типті  LST атты  файлдық  айнымалысы  анықталады. PRINTER  модулі қосылғаннан  кейін  келесі   программа  орындалады: USES  PRINTER; Begin   Writeln (LST,’Турбо  Паскаль 7.0’);   End. 3)   CRT  модулі. Экранмен  жұмыс  істеу  үшін  тексттік  режимнің  басқаруын  қамтамасыз  ететін  процедурамен  функциялары  осы  модульге  жатады. CRT  модульдің  қосалқы  программалар  көмегімен  курсорды  экранның  кез  келген  позициясына  жылжытуға, шығарылатын  символдардың  және  олардың  фонының түсін  өзгертуге,  терезелерді    ұйымдастыруға  болады.  Мысалы: а) GOTOXY (X,Y:byte)- курсорды  экранның  (терезенің)  қажетті  орнына  жылжытады б) TEXTCOLOR (color:byte)- символдың  түсін  анықтайды. в) TEXTBackground(color:byte)-фонның  түсін  анықтайды. г) clrscr- экранды (терезені) тазалайды және  курсорды  экранның  сол  жағ  жоғарғы  бұрышына  орналастырады. д) readkey-  клавиатурадан  символды  оқиды. Кез  келген  клавиша  басылғанға  дейін  программаның  орындалуы  уақытша  тоқтатылады. е)  keypressed- TRUE- қайтарады  егер  клавиша  басылған  болса  және FALSE-ті  қарсы  жағдайда  қайтарады.  Программаның  орындалуы  тоқтатылмайды. ж) window (X1,Y1,X2,Y2:byte)-экранда  тексттік  терезені  анықтайды.X1,Y1-терезенің  сол  жақ  жоғарғы  бұрышының  координатасы, X2,Y2-оң  жақ  төменгі  бұрышының  координатасы.   { Crt модулінің процедуралары және функцияларын қолдану }                      program frame;                                                          uses Crt;                                                                          procedure Frm(l:integer; t:integer; w:integer; h:integer);                                                                      var                                                                             x,y:integer;                                                           i:integer;                                                              c1,c2,c3,c4,c5,c6:char; begin                                                                              c1:=chr(218);      c2:=chr(196);                        c3:=chr(191);                             c4:=chr(179);                             ­     c5:=chr(192);     c6:=chr(217);     GoToXY(l,t);                                                                write(c1);                                                                   for i:=1 to w-2 do                             write(c2);            write(c3);                 y:=t+1;                     x:=l+w-1;                for i:=1 to h-2 do                          begin                                                                          GoToXY(l,y);                                                       write(c4);                                                              GoToXY(x,y);                                                      write(c4);                                                              y:=y+1;                                                            End;                                                                   GoToXY(l,y);                                                       write(c5);                                                              for i:=1 to w-2 do          write(c2);                                                          ­      write(c6);                                                        End;                                                                              begin                                                                         Frm(2,2,15,10);                                              End.                                                                       
Общая информация

Номер материала: 126416061334

Вам будут интересны эти курсы:

Курс повышения квалификации «Методика преподавания информатики в начальных классах»
Курс повышения квалификации «Современные информационные технологии и их использование в работе преподавателей. Системы автоматизированного проектирования одежды и организация технологического процесса»
Курс повышения квалификации «Внедрение системы компьютерной математики в процесс обучения математике в старших классах в рамках реализации ФГОС»
Курс профессиональной переподготовки «Информатика: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Облачные технологии в образовании»
Курс «Фирменный стиль» (Corel Draw, Photoshop)
Курс «Оператор персонального компьютера»
Курс «1С: Предприятие 7.7»
Курс «3D Studio MAX»
Курс профессиональной переподготовки «Информационные технологии в профессиональной деятельности: теория и методика преподавания в образовательной организации»
Курс повышения квалификации «Применение MS Word, Excel в финансовых расчетах»
Курс повышения квалификации «Введение в программирование на языке С (СИ)»
Курс профессиональной переподготовки «Управление в сфере информационных технологий в образовательной организации»
Курс повышения квалификации «Современные тенденции цифровизации образования»
Курс повышения квалификации «Современные языки программирования интегрированной оболочки Microsoft Visual Studio C# NET., C++. NET, VB.NET. с использованием структурного и объектно-ориентированного методов разработки корпоративных систем»
Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.