2015-06-05
282
Процедура Ех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.
