5.1.4. Збереження програми.
Для збереження програми на диску виберіть команду Save as (Зберегти як …... ) з меню File. Turbo Pascal відкриває діалогове вікно Save File As для запису вмісту активного вікна редактори в дисковий файл під іншим ім'ям.
-
Save File As
Save file as
OK
Files
Cancel
Help
E:\KIT\913\*.PAS
Діалогове вікно містить вхідний бокс (Save file as), список файлів (Files), інформаційну панель, стандартні перемикачі OK, Cancel, Help і список передісторії. Переключення між елементами вікна здійснюється клавішею <Tab>.
В вхідному боксі Save file as записується ім'я, під яким Ви збираєтеся запам'ятати файл (або файлова маска для боксу Files). У нашому випадку необхідно набрати pr1.pas і натиснути Enter.
Якщо вибір не зроблений, для виходу зі списку передісторії натисніть клавішу Esc.
Перемикач ОК служить для підтвердження виконаних дій. Кнопка Cancel скасовує всі дії і виводить з діалогового вікна.
Кнопка Help виводить вікно з підказкою.
5.1.5. Компіляція програми.
Д
┌────────────────────┐ │
Compile
Alt+F9 │ │
Make
F9 │ │
Build
│ ├────────────────────┤ │
Target...
Real │ │
Primary
file... │ │
Clear
primary file │ ├────────────────────┤ │
Information...
│ └────────────────────┘
Після початку компіляції в центрі екрана з'являється вікно з інформацією про процес компіляції. Якщо під час компіляції не виявлено помилок, у цьому вікні з'явиться повідомлення «Compilation successful: press any key» (компіляція успішна: натисніть будь-яку клавішу) .
Вікно залишається на екрані доти, поки Ви не натиснете клавішу.
При виявленні помилки, Turbo Pascal зупиняє процес трансляції, установлює курсор на помилку в редакційному вікні і видає повідомлення про помилку. При натисканні будь-якої клавіші повідомлення зникає, а натискання <Ctrl+Q+W> забезпечує його показ доти, поки Ви не зміните файл або не перекомпілюєте його.
Не всі програми вдається написати без помилок.
Розрізняють три види помилок: 1) синтаксичні помилки (помилки компіляції). 2) помилки виконання. 3) помилки в алгоритмі програми.
СИНТАКСИЧНІ ПОМИЛКИ виникають при порушенні правил мови Turbo Pascal, їх виявляє компілятор. При цьому курсор буде вказувати на той оператор у програмі, де можлива помилка, а в першому рядку редагування, виділеної іншим кольором, з'явиться повідомлення про помилку. Повідомлення містить номер помилки і текст англійською мовою, що пояснює помилку.
ПОМИЛКИ ВИКОНАННЯ - це такі помилки, що не порушують синтаксис мови Turbo Pascal але приводять до помилкових операцій у процесі виконання програм ( наприклад, спроба ділення на нуль). У цьому випадку система видасть повідомлення про помилку з вказівкою оператора, але вже на етапі виконання програми.
ПОМИЛКИ В АЛГОРИТМІ ПРОГРАМИ - це такі помилки, котрі при вірних вхідних даних і безпомилковій роботі програми в системі Turbo Pascal приводять до невірних результатів. Такі помилки повинен виявляти сам програміст. Система Turbo Pascal допомагає йому в цьому, надаючи послуги системи від лагодження програм.
Зробивши виправлення, збережіть обновлений файл, і заново скомпілюйте його. Однак для запам'ятовування файлу цього разу немає необхідності викликати діалогове вікно Save as, досить натиснути клавішу F2.
5
┌────────────────────────┐ │
Run
Ctrl+F9 │ │
Step
over
F8
│ │
Trace
into F7 │ │
Go
to cursor F4 │ │
Program
reset Ctrl+F2 │ │
Parameters...
│ └────────────────────────┘
Д
ля
пуску програми виберіть секцію Run у
головному меню. Секція
містить підменю:
Команда RUN виконує дві дії :
1) компілює програму, що знаходиться в редакторі і, якщо в ній не виявлено синтаксичних помилок, посилає її на виконання!
2) якщо програма уже відкомпільована (для цього використовувалась команда Сомріlе з меню Сомріlе, синонім <Аlt+F9>), то команда RUN посилає програму на виконання, не повторюючи етап компіляції. Якщо в програмі використовуються оператори виводу на екран write або writeln, то ви зможете переглянути результати розрахунка, тому що вони виводяться у вікні Output. Для перегляду результатів у вікні Оutрut з активного вікна Еdіt натисніть одночасно клавіші <Аlt+F5>. Щоб повернутися знову у вікно редактора, натисніть будь-яку клавішу.
Отже, Ви в меню Run. Виберіть команду Run. Ви потрапите у вікно користувача, з'явиться повідомлення: Уведіть два числа
Наберіть два будь-яких цілих числа з пробілом між ними і натисніть Enter. З'являться два наступні повідомлення: n1/n2 = та n1/n2 = ,
а за ними - частки від ділення першого числа на друге. Перше ‑ в експонентному виді, а друге ‑ у форматі фіксованої крапки. У наступному рядку з'явиться повідомлення: Натисніть клавішу <Enter>
Програма буде очікувати натискання клавіші <Enter>.
Однією з особливостей Turbo Pascal є те, що неважливо, у якому регістрі набирається програма, у будь-якому випадку компілятор правильно її сприйме: BEGIN = begin = Begin
Мова програмування Turbo Pascal має набір убудованих функцій і процедур, названих стандартними.
|
Математичні функції | ||
|
Abs(x) |
– |
повертає абсолютне значення аргументу |
|
Pi |
– |
повертає значення числа π = 3.1415926535897932385 |
|
Sin(x) |
– |
повертає синус аргументу (аргумент у радіанах) |
|
Cos(x) |
– |
повертає косинус аргументу (аргумент у радіанах) |
|
ArcTan(x) |
– |
повертає арктангенс аргументу (аргумент у радіанах) |
|
Sqrt(x) |
– |
повертає квадратний корінь аргументу |
|
Sqr(x) |
– |
повертає аргумент у квадраті |
|
Exp(x) |
– |
повертає експоненту аргументу |
|
Ln(x) |
– |
повертає натуральний логарифм аргументу |
|
Trunk(x) |
– |
усікає значення x шляхом відкидання дробової частини |
|
Frac(x) |
– |
повертає дробову частину аргументу |
|
Int(x) |
– |
повертає цілу частину аргументу |
|
Round(x) |
– |
округляє значення x убік найближчого цілого |
|
Random |
– |
повертає випадкове число (0…1) |
|
Random(x) |
– |
повертає випадкове число (0…х) |
|
Odd(x) |
– |
повертає True, якщо х – непарне число |
|
Математичні процедури |
| ||
|
Randomize |
– |
забезпечує неспівпадання послідовності випадкових чисел, видаваних функцією Random | |
|
Inc(var x:ціле) |
– |
збільшує значення х на 1 | |
|
Dec(var x:ціле) |
– |
зменшує значення х на 1 | |
Видно, що в Turbo Pascal визначені тільки три стандартні тригонометричні функції. Для обчислення інших функцій необхідно використовувати відомі співвідношення:
|
tg(x) = Sin(x)/Cos(x) |
ctg(x) = Cos(x)/Sin(x) | |
|
ArcSin(x)
= ArcTan( |
ArcCos(x) = Pi/2 - ArcSin(x) | |
|
ArcCtg(x) = Pi / 2 – ArcTan(x) |
sеc(x) = 1/Cos(x) cоsеc(x) = 1/Sin(x) | |
|
sh(x) = 0.5*(Exp(x) – Exp(-x)) |
ch(x) = 0.5*(Exp(x) + Exp(-x)) | |
|
log a(x) = Ln(x) / Ln(a) |
Вираз z = xy записується як z = Exp(y * Ln(x)) | |
)
Нижче приведений текст програми pr_1a, що забезпечує обчислення значення F(x) по наступній розрахунковій формулі.
Для забезпечення можливості контролю правильності кінцевого значення в програмі передбачені обчислення і вивід на екран проміжних значень розрахункової формули.
Program pr_1a;
uses crt;
var n1,x,x2,x4,x5,chis,znam,y,y0,y1,y2,f : real;
Begin
clrscr;
write('x='); readln(x);
n1:=sqrt(2);
x2:=sqr(x);
x4:=sqr(x2);
x5:=x4*x;
writeln('x=',x:6:2,' x2=',x2:6:2,' x4=',x4:6:2,' x5=',x5:6:2);
chis:=x5+x4-x2*n1+2;
znam:=x4-x2*n1+1;
y:=chis/znam;
y0:=sqrt(y);
writeln('chis=',chis:6:2,'znam=',znam:6:2,'y=',y:6:3,'y0=',y0:6:3);
y1:=sin(pi/2)+abs(sin(x/6)/cos(x/6));
y2:=exp(0.1*x);
f:=y0+y1+y2;
writeln('y0=',y0:6:3,'y1=',y1:6:3,'y2=',y2:6:3,' f=',f:6:3);
readln;
End.
{ Протокол роботи програми
для трьох запусків на виконання з різними значеннями х
x=5
x= 5.00 x2= 25.00 x4=625.00 x5=3125.00
chis=3716.64 znam=590.64 y= 6.293 y0= 2.508
y0= 2.508 y1= 2.101 y2= 1.649 f= 6.258
x=10
x= 10.00 x2=100.00 x4=10000.00 x5=100000.00
chis=109860.58 znam=9859.58 y=11.143 y0= 3.338
y0= 3.338 y1=11.399 y2= 2.718 f=17.455
x=20
x= 20.00 x2=400.00 x4=160000.00 x5=3200000.00
chis=3359436.31 znam=159435.31 y=21.071 y0= 4.590
y0= 4.590 y1= 1.194 y2= 7.389 f=13.173}