Составьте блок-схему и программу
на языке Pascal для вычисления длин высот треугольника, у которого длины
сторон a, b, c (a, b, c вводятся с клавиатуры).
на языке Pascal для вычисления длин высот треугольника, у которого длины
сторон a, b, c (a, b, c вводятся с клавиатуры).
More Questions From This User See All
Answers & Comments
begin
readln(a, b, c);
if ((a = 0) or (b = 0) or (c = 0)) then
writeln('Error')
else
begin
p := (a + b + c) / 2;
S := Sqrt(p*(p-a)*(p-b)*(p-c));
Ha := 2 * S / a;
Hb := 2 * S / b;
Hc := 2 * S / c;
writeln('Ha = ', Ha : 4 : 5);
writeln('Hb = ', Hb : 4 : 5);
writeln('Hc = ', Hc : 4 : 5);
end;
end.
---
Фух... Удачи:)