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

MENU

02.17 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);

   if (a>0) and (b>0) then
   begin
      c:=sqrt(sqr(a)+sqr(b));
      vc:=a*b/c;
      writeln('Vyska trojuhelniku: ',vc:0:3);
   end
   else
      writeln('Vypocet nelze provest');

   readln;

end.
program ke stažení