Лабораторная работа 8.
Процедуры и функции
1. Описать процедуру, позволяющую произвести обмен значениями
переменных указанных в качестве аргумента.
Пример
var
x, y : Integer;
procedure swap(var a, b : Integer);
var
temp : Integer
begin
{...}
end;
begin
x := -23;
y := 45;
WriteLn('Befor Exchange: ');
WriteLn('x = ', x:5);
WriteLn('y = ', y:5);
WriteLn('After Exchange: ');
swap(x, y);
WriteLn('x = ', x:5);
WriteLn('y = ', y:5);
WriteLn;
end.
2. Написать функции вычисления длины отрезака
по заданным координатам его концов в плоскости
и пространстве.
3. Написать функцию вычисления факториала числа
методом итерации.
4. Написать рекурсивную функцию вычисления факториала числа.
5. Описать процедуру, имеющую три аргумента целого типа
и работающую по следующему принципу: значения трех
переменных целого типа, описанных выше точки вызова
и указанных в качестве аргументов процедуры,
должны быть расположены по возрастанию
в порядке указания аргументов в процедуре.