Паскаль в примерах. Иринчеев А.А - 26 стр.

     Задача. Определить площадь треугольника по длине сторон.
     1. Математическая формулировка задачи. Для определения площади треугольника
воспользуемся формулой Герона

     s = p∗ ( p − a )∗ ( p − b)∗ ( p − c)) ,
     где a, b, c - длины сторон;
     p=(a+b+c)/2 - полупериметр треугольника,

     2. Алгоритм решения задачи.
        • Ввод исходных данных a ,b, c.
        • Вычисление р.
        • Вычисление s.
        • Вывод результата s.
     3.Блок-схема программы.

                   начало

                   ввод данных

                   вычисление Р

                   вычисление S

                   вывод результата
                   конец

     Рис. 2.2. Блок-схема примера.

     В приведенной программе сначала вычисляются значения полупериметра р, а затем
значение s, при вычислении которого используется р. Это позволяет избежать повторения
вычисления одной и той же величины, а следовательно, уменьшить время вычисления зада-
чи. На блок-схеме блоки расположены в той последовательности, в которой они должны вы-
полняться. Любая перестановка блоков приведет к невозможности решения задачи.
     4. Определение переменных участвующих в решении задачи.
     Исходные данные: a, b, c - стороны треугольника, см (REAL);
     Промежуточные данные:
     p- полупериметр треугольника (REAL);
     Выходные данные:
     s - площадь треугольника (REAL).
     5. Листинг программы:
     PROGRAM PR1;
       VAR
         a, b, c, p, s: REAL;
       BEGIN
         WRITE(‘Введите a,b,c в см’);
         READLN(a,b,c);
         p:=(a+b+c)/2;
         s:=SQRT(p*(p-a)*(p-b)*(p-c));
         WRITELN (‘ Площадь S= ’, s:8:3,‘ кв. см‘);
       END.



                                                                                    26