Алгоритм вычисления площади треугольника по формуле герона

Вид материала

Документы

Подобный материал:

• Блиц (матан и триг.) блиц (геометрия) Вопросы по планиметрии, 56.04kb.
• Герон(1 век н э.), 17.45kb.
• Вопросы к экзамену Задача линейного программирования и её графическое решение, 9.5kb.
• Урок геометрии в 8 классе по теме «Площади многоугольников», 52.25kb.
• Доклад на тему: «Геометрия вокруг нас», 166.76kb.
• Iv-я Всероссийская научная конференция «Нечеткие системы, мягкие вычисления и интеллектуальные, 92.67kb.
• Расширенный алгоритм Евклида, 78.19kb.
• План урока: Организационный момент. Рассказ сказка о медианах, высотах и биссектрисах., 161.11kb.
• Примерный перечень вопросов, выносимых на зачет, 22.43kb.
• Тема программы, 124.38kb.

АЛГОРИТМ ВЫЧИСЛЕНИЯ ПЛОЩАДИ ТРЕУГОЛЬНИКА ПО ФОРМУЛЕ ГЕРОНА.

Площадь вычисляется по следующей формуле

S=, где P= ;

A, B, C размеры сторон треугольника - аргументы;

S площадь треугольника - результат;

P полупериметр - промежуточная переменная;

Проверки:

если A<=0 или B<=0 или C<=0

то напечатать "размеры должны быть

положительные"

все


если A+B<=C или A+C<=B или C+B<=A

| то печать " нельзя составить треугольник"

все


Program GERON:

Uses crt;

Var A,B,C:real;

Begin

CLRSCR; TEXTCOLOR(1);

WRITELN(‘ПЛОЩАДЬ ТРЕУГОЛЬНИКА.’);

WRITELN(‘ПРОГРАММУ СОСТАВИЛА ИВАНОВА СВЕТА.’);

WRITE(‘ВВЕДИТЕ РАЗМЕРЫ ТРЕХ СТОРОН: ’);

READLN(A,B,C);

IF (A<=0) OR (B<=0) OR (C<=0)

THEN WRITELN (‘ЕСТЬ ОТРИЦАТЕЛЬНЫЕ РАЗМЕРЫ.’)

ELSE IF (A+B<=C) OR (B+C<=A) OR (A+C<=B)

THEN WRITELN(‘РАЗМЕРЫ НЕ ТРЕУГОЛЬНИКА.’)

ELSE BEGIN

P:=(A+B+C)/2;

S:=SQRT(P*(P-A)*(P-B)*(P-C));

WRITELN(‘ПЛОЩАДЬ РАВНА:’, S);

END;

End.