Navigace: Hlavní stránka -> PASCAL -> 01 Jednoduché výpočty -> 01.18 Výška pravoúhlého trojúhelníku z odvěsen

MENU

01.18 Výška pravoúhlého trojúhelníku z odvěsen

Zadání:
Sestavte program, který ze zadaných odvěsen pravoúhlého trojuhelníku vypočte jeho výšku.
Řešení:
Výšku vc pravoúhlého trojúhelníku lze vypočítat pomocí dvou kroků:
1. výpočet strany c pomocí Pythagorovy věty
2. výpočet výšky 
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c,vc:real;

begin

   write('Zadejte odvesnu a: ');
   readln(a);
   write('Zadejte odvesnu b: ');
   readln(b);

   c:=sqrt(sqr(a)+sqr(b));
   vc:=a*b/c;

   writeln('Vyska trojuhelnika: ',vc:0:3);

   readln;

end.
program ke stažení