Navigace: Hlavní stránka -> PASCAL -> 01 Jednoduché výpočty -> 01.23 Strany a výšky pravoúhlého trojúhelníku z úseků přepony c

MENU

01.23 Strany a výšky pravoúhlého trojúhelníku z úseků přepony c

Zadání:
Sestavte program, který ze zadaných úseků přepony c trojúhelníku vypočte strany a výšku tohoto trojúhelníku.
Řešení:
Strany a výška trojúhelníku ze zadaných úseků přepony c se vypočtou pomocí následujících vzorců:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var ca,cb,v,a,b,c:real;

begin

   write('Zadejte usek ca: ');
   readln(ca);
   write('Zadejte usek cb: ');
   readln(cb);

   c:=ca+cb;
   v:=sqrt(ca*cb);
   a:=sqrt(ca*c);
   b:=sqrt(cb*c);

   writeln('Strana a=',a:0:3);
   writeln('Strana b=',b:0:3);
   writeln('Strana c=',c:0:3);
   writeln('Vyska v=',v:0:3);

   readln;

end.
program ke stažení