Заняття №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.
Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :
____________________________________________________________________________
__
Вiдповiдь : -34.54943 при а=-6, в=6.4, с=8.85
____________________________________________________________________________
__
Задача 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.
Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :
____________________________________________________________________________
__
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
____________________________________________________________________________
__
program zanattia3_variant2; uses crt; var y:real; x:real; h:real; begin clrscr; x:=-3; h:=1.2; while x