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

   14 Вывод a,b,c (2 3 5)
   15 Выход из pro1

Различные примеры с изменением параметров представлены в приложении (Трассировка).

Рассмотрим еще один пример. Определить площадь, если известны все его стороны.
Решение. Рассмотрим решение данной задачи с использованием формулы Герона.
PROGRAM PR41;
 VAR
  AB,DC,CD,DA,AC,S1,S,a,b,c,p: REAL;
  PROCEDURE SRT1;
   BEGIN
    P:=(A+B+C)/2;
    S:=SQRT(P*(P-A)*(P-B)*(P-C))
    END;
BEGIN
 WRITE(‘ Введите данные AB,BC,CD,DA,AC’);
 READLN(AB,BC,CD,DA,AC);
  a:=AB; b:=BC; c:=AC, SRТ1; S1:=S;
  a:= DA, b:=AC, c:=CD; SRT1; S1:= S1+S;
 WRITELN(‘ Площадь равна = ’,S:8:3)
END.

Рассмотрим тот же пример, но переменные a,b,c,s вынесены из основной программы в про-
цедуру.

PROGRAM PR42;
VAR
 AB,DC,CD,DA,AC,S1,S: REAL;
 PROCEDURE STR2 (VAR a,b,c,s: REAL);
  VAR
   P: REAL;
    BEGIN
     P:=(A+B+C)/2;
     S:=SQRT(P*(P-A)*(P-B)*(P-C))
     END;
BEGIN
 WRITE(‘ Введите данные AB,BC,CD,DA,AC’);
 READLN(AB,BC,CD,DA,AC);
STR2(AB,BC,AC,S1);
STR2(DA,AC,CD, S2);
 WRITELN(‘ Площадь равна = ‘,(S1+S2):8:3)
END.

                                           N            M

                                      ∏a + ∑c
                                          i =1
                                                 b             d


Пример. Определить значения y =                   L
                                                        i =1


                                                 ∏e
                                                 i =1
                                                        f



program pr43;
var
 a,b,x,y1,y,p,y2,y3,y5,y6,p1,p2,s:real;
                                                                                     60