Turbo Pascal

Пример 9 Контроль корректности данных. Составить программу расчета площади треугольника S по трем сторонам a, b, c, значения которых запрашиваются с клавиатуры, по формуле Герона

, где .

Var a, b, c, p, S: real;

Begin

Write(‘Ввести сторону а=’); ReadLn(a);

Write(‘Ввести сторону b=’); ReadLn(b);

Write(‘Ввести сторону c=’); ReadLn(c);

IF (a> 0) and (b> 0) and (c> 0) {проверка положительности}

and (a+b> c) and (a+c> b) and (c+b> a) {каждая сторона должна быть меньше суммы двух других сторон}

THEN begin p: =(a+b+c)/2;

S: =sqrt(p*(p-a)*(p-b)*(p-c));

WriteLn(‘Площадь: ’, S: 15: 5) end

ELSE Writeln(“Неверные входные данные! ’);

ReadLn

END.

Пример 10 Программа случайного предсказания одного из десяти вариантов ближайшего будущего с вероятностью 1/20, в остальных случаях – Вы «неудачник».

Var N: word;

Begin

WriteLn(‘Предсказание будущего! ’);

Randomize; N: =Random(20)+1; {N-случайное число от 1 до 20}

WriteLn; Write(‘Вас ожидает_’);

Case N of

1: WriteLn(‘счастье’); 6: WriteLn(‘здоровье’);

2: WriteLn(‘пятерка’); 7: WriteLn(‘деньги’);

3: WriteLn(‘дорога’); 8: WriteLn(‘любовь’);

4: WriteLn(‘двойка’); 9: WriteLn(‘встреча’);

5: WriteLn(‘болезнь’); 10: WriteLn(‘мама’)

Else WriteLn(‘неудача’) end;

WriteLn(‘Нажми клавишу Enter’);

ReadLn

END.

Здесь функция Random(x) генерирует случайное число, с равномерной плотностью распределения на заданном интервале. Для инициализации распределения в начале программы необходимо вызвать процедуру Randomize.