Дана площадь(S) равнобедренного треугольника и боковая сторона (b). Составить прогу вычисления длинны наименьшей высоты данного треугольника - Pascal(Паскаль) - Справочник юного программиста Pascal/Delphi

Площадь треугольника — половина основания на высоту. То есть
S = b*h1/2, отсюда находится одна высота.
Аналогично S = a*h2/2. Здесь два неизвестных. Чтобы сделать систему уравнений, необходимо добавить сюда формулу Герона, воспользовавшись теоремой Пифагора (b^2=(a/2)^2+h2^2) и решить биквадратное уравнение.

program Visoti;

{$APPTYPE CONSOLE}
uses
  SysUtils;
type
   str3=string[4];
var
  h1,h2,b,s:real;
  st:str3;
begin
write('Enter Amount of ploshad'':  ');readln(s);
write('Enter Amount of side:  ');readln(b);
h1:=sqrt((sqr(b)+sqrt(abs(sqr(sqr(b))-sqr(S)*4)))/2);
h2:=2*s/b;
write('Menshaya visota ravna: ');
if h1<h2 then begin str(h1:2:1,st); writeln(st); end else begin str(h2:2:1,st); write(st);  end;
readln;
end.

Дана площадь(S) равнобедренного треугольника и боковая сторона (b). Составить прогу вычисления длинны наименьшей высоты данного треугольника — Pascal(Паскаль)

Похожие записи/страницы:

Leave a Comment