![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
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.
|