Navigace: Hlavní stránka -> PASCAL -> 01 Jednoduché výpočty -> 01.19 Výšky trojúhelníku ze zadaných stran

MENU

01.19 Výšky trojúhelníku ze zadaných stran

Zadání:
Sestavte program, který vypočte ze zadaných délek stran trojúhelníku délku jeho výšek.
Řešení:
Řešení má dva kroky:
1. vypočítat obsah trojúhelníku pomocí Heronova vzorce
2. z obsahu a strany vypočítat délku výšek

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c,s,p,va,vb,vc:real;

begin

   write('Zadejte stranu a: ');
   readln(a);
   write('Zadejte stranu b: ');
   readln(b);
   write('Zadejte stranu c: ');
   readln(c);

   s:=(a+b+c)/2;
   p:=sqrt(s*(s-a)*(s-b)*(s-c));

   va:=2*p/a;
   vb:=2*p/b;
   vc:=2*p/c;

   writeln('Vyska va=',va:0:3);
   writeln('Vyska vb=',vb:0:3);
   writeln('Vyska vc=',vc:0:3);

   readln;

end.
program ke stažení