Контрольні питання

1. Що таке ініціалізація графіки?

2. Які параметри необхідно задати для ініціалізації графіки, що вони означають?

3. Якою процедурою заливають фон екрану?

4. Як задають кольори в графічному режимі?

5. Які параметри необхідно задати для процедури малювання еліпса, що вони означають?

6. Які параметри необхідно задати для процедури стилю шрифту, що вони означають? На які етапи можна розбити виконання функції?

7. Чим відрізняється робота процедури від роботи функції?

8. Коли варто використовувати процедуру, а коли – функцію?

Лабораторна робота № 20 (22) Тема: Вивчення особливостей процедур та функцій модуля crt.

Мета: Навчитися розробляти програми з використанням модуля CRT.

Хід роботи.

Обчислити на ЕОМ значення змінних, означених в таблиці за заданими формулами і набором вхідних даних поданих в табл..9 Додатку, згідно свого варіанту.

Приклад:

Розробити програму спадаючого меню, тобто в залежності від формул і заданих значень при виборі однієї з трьох строк меню обчислювалося відповідне значення і вікно мало заданий колір.

program Menu1;

uses crt;

label 1,2;

type stroka=array[1..3] of string[20];

const

Stor:stroka= (' Tape1 ',

' Tape2 ',

' Tape3 ');

var

x,k: byte;

a,b,y: real;

kod_keyb: char;

function s(x:real; t:byte): real;

begin

case t of

1: y:=x+a/sqr(x);

2: y:=sqrt(sin(x));

3: y:=ln(a+b*x)/ln(10);

end;

end;

begin

clrscr;

write('input x,b,a');

readln(x,b,a);

textmode (Co80);

clrscr;

window (31,11,50,15); /створення вікна меню/

TextBackGround (5); /встановлення кольору фону/

TextColor (0); /встановлення кольору тексту/

clrscr;

k:=1;

gotoxy (3,2); /перейти на позицію курсору з координатами по вісі Х У/

write ('Select the tape');

1: for x:=1 to 3 do begin /встановлення необхідних параметрів при виборі строки меню/

if t=k then begin

TextBackGround (0);

TextColor (5); end

else begin

TextBackGround (5);

TextColor (0);

end;

gotoxy (1,t+2);

write (stor [t]);

end;

while true do begin

Kod_keyb:=ReadKey;

Case kod_keyb of

#13: goto 2;

'A', 'a':begin if k>1 then k:=k-1 /літера переходу по строкам меню “вверх”/

else k:=3; goto 1;

end;

'Z', 'z': begin /літера переходу по строкам меню “вниз”/

if k<3 then k:=k+1

else k:=1;

goto 1;

end;

end;

end;

2: window (1,1,80,25); /створення вікна результатів/

clrscr;

sound(t*350);

delay(2000);

nosound;

gotoxy (30,10);

write ('Select tape=', k:1);

gotoxy (30,15);

write ('s=', s(x,t):6:3);

readln;

end.

Контрольні питання

1. Для чого призначений модульCRT?

2. Записати команду, яка підключить у роботу програми файл proba.exe.

3. Як під’єднуються до роботи програми стандартні модулі?

4. Записати команди, за допомогою яких текст «Добрий день!» виведеться зеленим кольором.

5. Для чого призначений модуль System?

6. Записати команду, яка означає затримку роботи програми в 1 хв.

7. Записати команду, яка запросить поточний час комп’ютера.

8. Записати команду, яка запросить поточну дату.