Заняття № 3.
Розробка та виконання програм на мові Pascal.
Мета: систематизація знань, формування вмінь і навичок, розробки тавиконання на ЕОМ найпростіших програм на мові Pascal.
Теоретичні відомості.
Програма на мові Pascal складається:
розділ оголошень;
розділ текстів процедур і функцій;
розділ основного блоку.
Розділ оголошень
program заголовок програми:
($ ...) глобальні директиви компілятора : uses підключаємі бібліотеки: label розділ оголошення глобальних міток: const розділ оголошення глобальних констант: type розділ оголошення глобальних типів: var розділ оголошення глобальних змінних:
Розділ текстів процедур і функцій
procedure ( function) label розділ оголошення локальних міток: const розділ оголошення локальних констант: type розділ оголошення локальних типів: var розділ оголошення локальних змінних: begin основний блок процедури або функції: end;
Розділ основного блоку програми. begin основний блок програми: end.
Програми діляться на прості (лінійні), розгалужені та циклічні. Упростих програмах відсутні будь-які перевірки умов та використовуютьсялінійні оператори. В розгалужених можуть бути оператори умовного табезумовного переходу.
Умовні: скорочена форма IF умова THEN опер. повна форма IF умова THEN опер.1 ELSE опер. 2
Оператор безумовного переходу - GOTO «мітка».
Оператор множинного вибору:
CASE вираз OF мітка1: опер. 1; мітка2: опер. 2;
END;
Розрізняють три способи організації циклів:
1) цикл з параметром (FOR .. TO .. DO);
1) цикл з післяумовою (REPEAT UNTIL);
1) цикл з передумовою (WHILE .. DO).
Індивідуальне завдання.
Варіант № 3.
Скласти та виконати на ЕОМ програми розв'язування слідуючих задач:
Завдання 1.
Обчислити та вивести на очищений екран з К-ї позиції L-го рядка вформатованого вигляді значення вихідних даних та результатів обчисленнявиразу:
Обчислити значення виразу на ЕОМ для значень:
A =- 6, b = 6.4, c = 8.85, k = 20, l = 10
Завдання 2.
Обчислити значення даної функції, використовуючи оператори IF_THEN,
IF_THEN_ELSE (два варіанти програми):
Виконати для: a =- 2.3, b =- 8, t1 =- 4.5, t2 = 1.2 * 10-3, t3 = 4.3
Завдання 3.
Обчислити та вивести на екран в стовпчик таблицю значень функції:
Для значень Х із проміжку Х = [-3,5] з кроком h = 1.2
Скласти програми, використавши всі структури циклів.
Завдання 1:
program zanattia3;uses crt;const k = 20; l = 10; a =- 6; b = 6.4; c = 8.85;var f: real;begin clrscr; f: = (exp (a) +2 * ln (b + c))/(arctan (b)) + a * b; gotoxy (k, l); textcolor (2); write ( 'Вiдповiдь: '); textcolor (3); write (f: 7:5); textcolor (14); write (' при а =- 6, в = 6.4, с = 8.85 ');end.
Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И:
____________________________________________________________________________< br>__
Вiдповiдь: -34.54943 при а =- 6, в = 6.4, с = 8.85
____________________________________________________________________________< br>__
Завдання 2:
program zanattia3_variant1;uses crt;const a =- 2.3; b =- 8; t1 =- 4.5; t2 = 1.2e-3; t3 = 4.3;var y, t: real;function obch (t: real): real;begin if t> 3 then obch: = exp (t)/ln (t); if t3 then obch: = exp (t)/ln (t) else if t5;end.
Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И:
____________________________________________________________________________< br>__
y = 35.00000 при x =- 3.00000 y = 18.68000 при x =- 1.80000 y = 8.12000 при x =- 0.60000 y = 3.32000 при x = 0.60000 y = 4.28000 при x = 1.80000 y = 11.00000 при x = 3.00000 y = 23.48000 при x = 4.20000
____________________________________________________________________________< br>__
program zanattia3_variant2;uses crt;var y: real; x: real; h: real;begin clrscr; x: =- 3; h: = 1.2; while x
