Еnd;

В цій конструкції службові слова begin (початок) і end (кінець) називаються операторними дужками.

2.5 Арифметичні вирази

Арифметичні вирази будуються з арифметичних констант, змінних, функцій і операцій над ними. Обчислення виконуються зліва направо в відповідності з таким старшинством операцій:

1 Стандартні функції.

2 Множення (*), ділення (/), ділення без остачі (div) та остача від ділення (mod).

3 Додавання (+) й віднімання (–).

Вирази в круглих дужках виконуються в першу чергу.

Примітки:

1 В стандарті мови Паскаль немає операції піднесення до степеня. За необхідності її використання застосовують стандартні функції

а^Х= exp (x*ln (a) ).

Можна використовувати спеціальну функцію power(x,n), підключивши бібліотеку підпрограм Math.

2 В списку стандартних функцій відсутнє обчислення десяткового логарифма, тому за необхідності треба користуватися співвідношенням:

lg b = ln (b)/ln (10).

3 Для даних рядкового типу визначено операцію об¢єднання (+). Наприклад,

S1: =’Одеса – ‘;

S2: =’курортне місто’;

S: =S1+S2;

Значенням S буде рядок ‘Одеса – курортне місто’.

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

2.6 Підпрограми

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

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

Структура процедури подібна до головної програми, лише в неї інший заголовок й наприкінці після слова End замість крапки ставиться крапка з комою (End;).

Приклад. Скласти підпрограму-процедуру й схему алгоритму обчислення такого виразу: y = a² + + lg c,

де a= k+t²+x; х = 2. 3 ^Р; b= ; c= е^к+а; k=7; t= 1.5; p= 2.2

Текст процедури:

Procedurefun (var у:real);

Var a,b,c,x:real;