Решите пожалуйста ** Паскале задачу.Найти площади N-треугольников, для каждого из которых...

Question

Решите пожалуйста на Паскале задачу.

Найти площади N-треугольников, для каждого из которых известны длины сторон. N-ввести с клавиатуры, использовать процедуду, для вычисления площади треугольника по формуле Герона( для тех кто не знает формулу Герона вот: S=√(р(р-a)(р-b)(p-c))))))

Comments

Правильного много-угольника?

---

N-треугольника

---

А, понял...

---

Т.е N - кол-во треугольников? хитро придумано..

---

Нет, ко-во углов.

---

Я вас не понимаю! У треугольника только 3 угла.

---

Хотя... да вы правы. нам учитель ничего не объяснил..

Answer 1

program Area;
var
  a,b,c,p,S: real;
  i,N: integer;
begin
  WriteLn('Введите число треугольников:' );
  ReadLn(N);
  i := 1;
  while i <= N do</em>
  begin
      Write('Введите сторону a треугольника #' , i , ': ');
      ReadLn(a);
      Write('Введите сторону b треугольника #' , i , ': ');
      ReadLn(b);
      Write('Введите сторону c треугольника #' , i , ': ');
      ReadLn(c);
      p := (a+b+c)/2;
      S := sqrt(p*(p-a)*(p-b)*(p-c));
      WriteLn('S_',N, ' = ',S);
      i := i+1
  end;
end.