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

var x1, y1, x2, y2, d1, d2, d3, m : real;

function dd(a1, b1, a2, b2: real):real;

begin

dd:=sqrt( sqr(a1-a2)+sqr(b1-b2) )

end;

begin

writeln('введіть координати двох точок:');

readln(x1, y1, x2, y2);

d1:=dd(x1, y1, x2, y2);

d2:=dd(x1, y1, 1, 2);

d3:=dd(x2, y2, 1, 2);

if d1
if d3
writeln('найменша відстань: ', m)

end.

При виконанні цієї програми після читання значень змінних виконується виклик функції dd: значення змінних x1, y1, x2, y2 присвоюються відповідним параметрам a1, b1, a2, b2 як звичайним змінним і потім обчислюється значення dd. Воно і є значенням виразу dd(x1, y1, x2, y2), що присвоюється змінній d1.Так само, тільки з іншими аргументами, виконуються другий і третій виклики функції, і інші значення присвоюються змінним d2 і d3.

Отже, ми бачимо, що мова Паскаль дозволяє не тільки користуватися викликами "стандартних" функцій, наприклад, odd або sin, але й створювати свої власні.

Функція має такий загальний вигляд:

function ім'я(означення параметрів) : ім'я типу;

означення

begin

послідовність операторів

end;