Практикум по решению задач на ЭВМ. Тарова И.Н - 48 стр.

                                 Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  procedure str1; {заголовок процедуры}
    begin {тело процедуры}
       p:=(a+b+c)/2;
       s:=sqrt(p*(p-a)*(p-b)*(p-c));
    end; {конец описания процедуры}
  begin {ввод исходных данных}
    clrscr;
    writeln('Введите длины сторон 4-х угольника и длину диагонали: ');
    readln(AB,BC,CD,DA,AC);
    a:=AB; b:=BC; c:=AC; str1; s1:=s;
    a:=DA; b:=AC; c:=CD; str1; s1:=s1+s;
    write('Площадь 4-х угольника равна: ',s1);
    readln;
  end.

   II. Процедура с параметрами – переменными
   program F1(input,output);
   var
      AB,BC,CD,AC,DA:real;
      s1,s2:real;
procedure str2(var a,b,c,s:real); {заголовок процедуры}
   var p:real;{объявление локальной переменной p}
   begin {тело процедуры}
      p:=(a+b+c)/2;
      s:=sqrt(p*(p-a)*(p-b)*(p-c));
   end; {конец описания процедуры}
   begin {ввод исходных данных}
      readln(AB,BC,CD,DA,AC);
str2(AB,BC,AC,s1); {первое обращение к процедуре}
str2(CD,DA,AC,s2); {второе обращение к процедуре}
      write(s1+s2);
      readln;
   end.

  III. Процедура с параметрами – значениями
  program F3(input,output);
  var y1,y2:real;
  procedure str3(a,b,c:real; var s:real); {заголовок процедуры}
  var p:real;{объявление локальной переменной p}
  begin {тело процедуры}
     p:=(a+b+c)/2;
     s:=sqrt(p*(p-a)*(p-b)*(p-c));
  end; {конец описания процедуры}


                                      48