Процедуры и функции

[KiLLAS]

Помогите решить задачки на полпрограммы, не могу разобраться(
1. Вычислить сумму двух заданных матриц размером 3x3 ?
2. Два треугольника заданы своими сторонами a,b, и c. Вычислить площади треугольника по формуле Герона и определить, какой треугольник имеет большую площадь, Данные первого треугольника a=3, b=4, c=5; для второго треугольника a=2, b=корень из 37, с=корень из 37. Вычисление площади треугольника по формуле Герона оформить в виде функции.

[Sam Gold]

Какой язык-то хоть?

[ROMA2PVT]

полпрограммы

Ну я могу написать пол программы

[GetMax]

Код ко 2-ой задаче

Function Geron(a,b,c:Real):Real;
Var
   pp,Pl:Real;
Begin
   pp:=(a+b+c)/2;
   Pl:=Sqrt(pp*(pp-a)*(pp-b)*(pp-c));
   Geron:=Pl
End;
Begin
   Writeln('S = ',Geron(3,4,5):4:2);
   Writeln('S = ',Geron(2,sqrt(37),Sqrt(37));
    Readln
End.

Код не проверял

[KiLLAS]

Сообщение от ROMA2PVT

Ну я могу написать пол программы

ошибочка вышла, язык - Pascal
2.GetMax, Спасибо

[ROMA2PVT]

GetMax

Герона и определить, какой треугольник имеет большую площадь

Uses
 CRT;
Var
 a,b,c,s,a2,b2,c2:real;

Function Geron(Var x,y,z:real):real;
Var
 P:real;
begin
 P:=(x+y+z)/2;
 s:=sqrt(p*(p-x)*(p-y)*(p-z));
 Geron:=s;
end;

begin
 a:=3;
 b:=4;
 c:=5;
 writeln('Площадь первого:=',geron(a,b,c));
 a2:=2;
 b2:=sqrt(37);
 c2:=sqrt(37);
 writeln('Площадь вторго:=',geron(a2,b2,c2));
 writeln;
 if geron(a,b,c)>geron(a2,b2,c2) then
  writeln('S первого больше')
   else
    if geron(a,b,c)<geron(a2,b2,c2) then
     writeln('S второго больше')
      else
       writeln('Равны');
 readkey
end.

первая: http://www.cyberforum.ru/pascal/thread22156.html

[GetMax]

Опа,сорри, не разобрался с заданием

[KiLLAS]

ROMA2PVTспасибо большое, все отлично расписано, теперь ясно стало.

[ROMA2PVT]

Не за что.