Елементи програми Delphi

Елементи програми – це мінімальні неділимі її часточки, які мають певне значення для компілятора. До них відносяться:

w Зарезервовані слова;

w Ідентфікатири;

w Типи;

w Константи;

w Змінні;

w Мітки;

w Підпрограми;

w Коментарі.

Зарезервовані слова – це англійські слова, що вказують компілятору на необхідність виконання певних дій. Таких слів кілька десятків. Знайомство з ними продовжиться при вивченні інших структурних елементів Delphi. Нам вже кілька з них відомі . Ці слова не можна використовувати в програмі крім їх прямого призначення. Наприклад, не можна використати слово BEGIN для назви константи, мітки, змінної, тощо.

Ідентифікатори - це конструкції, які програміст використовує як імена міток, змінних, процедур, тощо. Ідентифікатори Delphi можуть складатися з латинських літер, арабських цифр та знаку підкреслення.

Типи – це спеціальні конструкції мови, які компілятор розглядає як зразок для створення інших елементів програми. Будь-який тип визначає для компілятора дві речі: обсяг пам’яті, що треба виділити для елемента та набір допустимих дій, які допустимі для елемента.

Константи визначають області пам’яті, які не змінюють своє значення в ході виконання програми. Оголошення імен констант повинно починатись зарезервованим словом CONST. Наприклад:

Const Kbyte = 1024; Mbyte = Kbyte*1024; Gbyte = Mbyte*1024;

Змінні пов’язані з змінними областями пам’яті, тобто їх значення в ході виконання програми будуть змінюватись. Розділ оголошень змінних починається з зарезервованого слова VAR. Наприклад, в програмі ї змінні для зберігання значень суми покупки та величина скидки. Можна використати імена TotalSumm і Discount або ObSumma і Skidka.

На мові Delphi кожна змінна перед використанням повинна бути оголошена. В оголошенні визначається тип кожної змінної, з чого компілятор визначить довжину комірку ОП для значення змінної, а також правила її використання. Інструкція оголошення змінної має вигляд: Ім’я : тип; де

· Ім’я — ім’я змінної;

• тип — тип даних, для збереження яких використовується змінна.

Розділ оголошень змінних починається з зарезервованого слова VAR.

Стандартні типи даних:

Наприклад:Var a,b,c: real; i,k,n: word;

Числа звичайно записуються в десятковій системі числення. Вони можуть бути цілими і дійсними. Для додатних чисел знак (+) може бути відсутнім, як і в математиці: 217 -23 +107 8900.

Дійсні числа записуються з десятковою крапкою: 2.28 -0.02 10.5, чи в нормалізованій формі: 7.9Е9 1.008Е-12 5.0Е-23, де мантиса і порядок числа записуються через латинську літеру Е. (4.7Е-27 ~ 4,7• 10^-27).

Delphi допускає запис цілих чисел у 16-ричной системі числення: $7F2 $1A0…

Вираз складаються з констант, змінних, знаків операцій і дужок. Вираз визначає правило обчислення певного значення. Порядок обчислення визначається старшинством (пріоритетом) операцій, що містяться в ньому. На мові Delphi прийнятий наступний пріоритет операцій:

1. унарна операція not, взяття адреси @, обчислення функції;

2. операції *-помножити, /-поділити, div – ціла частина від ділення, mod – виділення залишку від цілочисельного ділення;

3. операції типу додавання +, - , or, xor;

4. операції відносин: =, <, >, <=, >=, <>, in {}.

Вирази входять до складу багатьох операторів мови Delphi, а також можуть бути аргументами вбудованих функцій.

Запис арифметичних виразів на будь-якій мові програмування відрізняється від математичного запису горизонтальним принципом побудови, тобто символи (складові виразу) записуються послідовно один за іншим.

Наприклад:

~ (a*a*a+2*x)/(4*a-x);. ~ ((a+1)*(a+1)-2)/(4*(a-x)).

У записі виразу мовою програмування з'являється багато додаткових дужок, тому що посилення пріоритету деяких операцій передбачається в математичному записі за рахунок вертикальності їхнього запису. Також, деякі операції в математиці передбачаються, а знак множення не пишеться між змінними та числами, чого не можна робити при оформленні запису вираження мовою програмування. Зведення в степінь заміняється багаторазовим множенням, чи записується за допомогою деяких стандартних функцій:

Стандартні функції Delphi:

Delphi	Коментарі, матем. форма		Delphi	Коментарі, матем. форма
Sin(x)	Sin x- аргумент в		Round(x)	Округлити до цілих
Cos(x)	Cos x - радіанах		Frac(x)	Дробна частина Х
Arctan(x)	Arctg x -		Ln(x)	Ln X
Abs(x)	| x | - абсол. величина х		Trun(x)	Ціла частина Х
Sqrt(x)	√x – квадр. корень з х		Int(x)	Обнулить дробну частину
Sqr(x)	x2 – квадрат числа		Random	Випадкове дійсне Î(0;1)
Exp(x)	eX – експонента е		Random(n)	Випадкове ціле Î[0;n]

Але як бути, якщо в математичній моделі присутні функції, які відсутні в приведеному переліку? Будьте певні, необхідний мінімум тут присутній. Треба виконати незначні математичні перетворення однієї функції. в іншу. Розглянемо приклади.

1. sin40°=sin(40∙p/180) ~~sin(40*pi/180);
2. tg(x+p/4) = ~~sin(x+pi/4)/cos(x+pi/4);
3. ~~ln(x)/ln(2);
4. ~~exp(x*ln(a));
5. ~~ exp(1/n*ln(a));
6. ~~ arctan(sqrt(1-sqr(x))/x);

Функції перетворення даних одного типу в інший найчастіше використовується в інструкціях, що забезпечують введення-виведення інформації. Наприклад, для того, щоб вивести значення змінної типу real, необхідно перетворити число в рядок символів, що відображає це число. Це можна зробити за допомогою функції FloatToStr, яка повертає рядкове відображення дійсного числа, вказаного як аргумент цієї функції.

Таблиця 10.Функції перетворення

Інструкція «Обчислити і присвоїти».

Формат :

По команді процесор виконує наступні дії:

1. Якщо в правій частині є змінні, їхні значення вводяться (читання) з ОП;

2. Якщо праворуч зазначені арифметичні дії, то процесор послідовно виконує їх.

3. Отримане значення записується в ОП в комірку, відведену для змінної, зазначеної в операторі ліворуч.

Наприклад:

a:= 3.056;- в ОП в комірку з умовною адресою а записується число 3,056;

f : = a; - з комірки а значення скопіювати в комірку f.

m : = (6*a-b)/3.8; - з ОП зчитати значення змінних а і b, обчислити вираз і результат записати в ОП в комірку для змінної m.

n := Round((x2-x1)/dx);

x1:= (-b + Sqrt(d)) / (2*а);

m := Random(10);

cena := StrToInt(Edit1.Text);

Edit2.Text := IntToStr(100);

mes := 'x1=' + FloatToStr(xl);