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

1. Які оператори мови Turbo Pascal називаються структурними?

2. Що таке складений оператор мови Turbo Pascal і які функції він виконує?

3. Як працює умовний оператор IF?

4. Чи може символ “ ;” зустрічатись в структурному операторі і чому?

5. Які особливості при написання вкладених операторів IF ?

6. Задана кусочно-безперервна функція Y=F(X) . Обчислити значення функції в областях існування, в протилежному випадку вивести на друк повідомлення про відсутність рішення.

a)

у = x-1, x (- ; -5)

у = x²+2, x (5; + )

b)

у = x³-2x, x (-20; 0)

у = x - x², x (20; 40)

c)

у = x/2+5, x [-15;1] (15; 30)

у = x²+1/x, x [5;10] (40; + )

7. Написати програму для обчислення значення y :

8. Напишіть програму знаходження коренів квадратного рівняння ax²+bx+c=0 за нижче поданим алгоритмом:

• Введіть коефіцієнти рівняння: а, в, с , надавши їм довільних числових значень;

• Перевірте коефіцієнт а :

• Перевірте величину d :

Вимоги до оформлення лабораторних робіт

1. Титульний лист :

• - Міністерство освіти і науки КНТУ кафедра ОТ і ПМ;

• № лаб. роботи, назва теми роботи ;

• Мета роботи, завдання до роботи;

• ПІПб виконавця та № варіанту;

• дата виконання та дата оформлення звіту;

• ПІПб викладача, що перевірив.

2. 2-й лист

• Формалізація змісту задачі

• Блок-схема алгоритму;

3. 3-й лист

• Листинг програми (роздруківка, або від руки переписати з екрану ПК)

4. 4-й лист

• Протокол виконання програми та висновки.

5. 5-й лист

• Письмові відповіді на запитання по формі:

№ та зміст запитання

Коротка, але змістовна відповідь

Власний підпис Приклад : Знаходження найбільшого з двох чисел

• уведення первісних даних (два числа)

• перетворення первісних даних (виконання порівняння двох чисел) Якщо a>b, то обчислювальний процес піде по галузі max:=a і ніяк не піде по галузі max:=b.

• виведення результуючих даних (найбільше число)

Програма має слідуючий вигляд:

PROGRAM LAB3;

USES CRT;

VAR A,B, MAX:REAL;

BEGIN

WRITELN ('ВВЕДIТЬ ЗНАЧЕННЯ A');

READ (A);

WRITELN ('ВВЕДIТЬ ЗНАЧЕННЯ B');

READ (B);

IF A>B THEN MAX:=A

ELSE MAX:=B

WRITELN ('Максимальне з', А:8:5), ’та’, В:8:5, ’є’, МАХ:8:5);

END.

8