Текст програми:

Program MY_CASE;

Var

c : char;

BEGIN

Writeln('Enter symbol :’);

Readln(c);

Case c of

'A'..'Z','a'..'z' : writeln('Letter');

'0'..'9' : writeln('Digit');

'+','-','*','/' : writeln('Operator')

else writeln('Special character);

end;

END.

Завдання 1

Скласти блок-схему та програму обчислення значення функції. Ввести вхідні дані та вивести на екран вхідні дані та значення функції.

№ В.	Обчислити значення функції.	Вхідні дані
В.1.		x = 0,785
В.2.		a = 8,3; = 0,25
В.3.		x = 0,31; y = 1,8
В.4.		a = -0,5; b = 0,25; t = 1,5
В.5.		a = 0,785; x = 0,583
B.6.		a = 6,5; = 0,27
B.7.		x = 0,781; a = 0,358
B.8.		a = 2,8; = 0,35
В.9.		a = 5; x = 0,781
В.10.		а = 7; b = 3
B.11.		a = 6,75; = 0,25
В.12.		a = 27; x = 0,28
В.13.		y = 35
В.14.		x = 5,7; y = 2,8
В.15.		x = 7,5; y = - 1,28
В.16.		a = 2,3; x = 0,871
B.17.		a = 2,81; x = 0,95
B.18.		a = 4,5; b = 1,8; c = -20,5; i = 5
В.19.		a = -0,5; b = 0,25; t = 1,5
B.20.		a = 6,8; = 0,3
B.21.		x = 25; y = 5
B.22.		a = 2; b = - 1
B.23.		a = 3,7; = 0,8
B.24.		x = 0,781; y = 0,51; z = 1,25
B.25.		x = 0,381; y = 1,05
B.26.		x = 0,381; y = 1,05

Завдання 2

Скласти блок-схему та програму обчислення значення виразу. Ввести вхідні дані та вивести на екран вхідні дані та значення виразу.

№ В.	Обчислити значення виразу.	Вхідні дані
B.1.		а = 0,8; b = 0,85; c = 2,56
В.2.		а = 0,5; b = 0,75; c = 1,38
В.3.		x = 0,7; y = 2,81; z = 3,38
В.4.		x = 0,78; y = 1,81; z = 1,35
В.5.		а = 7,35; b = 6,51; c = 5,871
B.6.		x = 0,781
B.7.		x = 0,875
В.8.		а = 5,75; b = 3,59; c = 4,95
B.9.		x = 0,781
В.10.		а = 8,25; b = 4,24; c = 6,56
В.11.		а = 3; b = 5
B.12.		x = 3,781
B.13.		а = 0,8; b = 0,85; c = 2,56
B.14.		а = 0,38; b = 0,785; c = 1,35
B.15.		a = 0,54; b = 2,55
B.16.		а = 1,56; b = 2,15; c = 1,95
B.17.		а = 2,76; b = 3,05; c = 2,36
B.18.		a = 0,381; b = 1,75
B.19.		a = 0,3; b = 0,71
B.20.		а = 0,38; b = 0,785; c = 1,35
B.21.		а = 1,98; b = 2,75; c = 2,35
B.22.		a = 0,9; b = 0,86
B.23.		a = 0,781; b = - 0,5
B.24.		a = 0,56; b = - 0,9
B.25.		x = 3,781
B.26.		x = 3,781

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

1. Які особливості використання оператора безумовного переходу goto?

2. У яких випадках використовується порожній оператор?

3. Як утворюється порожній оператор?

4. Коли виникає необхідність організації розгалужень?

5. Як записуються на мові Pascal операції відношення?

6. Яких значень можуть набувати логічні змінні?

7. Що таке кон’юнкція, диз’юнкція, виключна диз’юнкція?

8. Як записується на Pascal операція “заперечення”?

9. Запишіть таблиці істинності для всіх логічних операцій.

10. Які види умовних операторів використовуються у мові Pascal?

11. Який синтаксис має умовний оператор If?

12. Для чого потрібен вкладений оператор If?

13. Що таке оператор варіанту і навіщо він використовується?

14. Які особливості використання та синтаксис має оператор варіанту Case?

15. Якого типу може бути керуюча змінна в операторі Case?

12