Прочие стандартные процедуры

Процедура Ехit – позволяет немедленно выйти из текущего блока (процедуры, функции или программы).

Процедура Раndомizе – инициализирует генератор случайных чисел.

Функция Random [ (Range: Word)]: word – возвращает случайное число, равномерно распределённое в диапазоне от 0 до значения Range. Если генератор случайных чисел не инициализирован, то при последовательном обращении к данной функции будет возвращаться псевдослучайная последовательность значений (т. е. при каждом новом запуске программы эта последовательность не изменится).

Рассмотренного в предыдущих разделах достаточно, чтобы составить полноценную программу решения задачи.

В качестве примера разработаем программу для решения следующей задачи:

Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P.

Для решения задачи необходимо припомнить формулы вычисления гипотенузы с и периметра Р:

,

.

Текст программы на языке Pascal выглядит следующим образом:

program Lin;

var

a,b,c:real;

P:real;

begin

writeln('введите длины двух сторон треугольника');

readln(a,b);

c:=sqrt(sqr(a)+sqr(b));

P:=a+b+c;

writeln('гипотенуза-',c,' периметр-',P);

end.