Решите пожалуйста на Паскале задачу.Найти площади N-треугольников, для каждого из которых известны длины сторон. N-ввести с клавиатуры, использовать процедуду, для вычисления площади треугольника по формуле Герона( для тех кто ...
Решите пожалуйста на Паскале задачу.
Найти площади N-треугольников, для каждого из которых известны длины сторон. N-ввести с клавиатуры, использовать процедуду, для вычисления площади треугольника по формуле Герона( для тех кто не знает формулу Герона вот: S=√(р(р-a)(р-b)(p-c))))))
Гость
Ответ(ы) на вопрос:
Гостьprogram Area;
var
a,b,c,p,S: real;
i,N: integer;
begin
WriteLn('Введите число треугольников:' );
ReadLn(N);
i := 1;
while i <= N do
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.
Не нашли ответ?
Похожие вопросы