Navigace: Hlavní stránka -> PASCAL -> 02 Jednoduché výpočty s podmínkou -> 02.21 Strana rovnostranného trojúhelníku ze zadané výšky

MENU

02.21 Strana rovnostranného trojúhelníku ze zadané výšky

Zadání:
Sestavte program, který vypočte ze zadané výšky rovnostranného trojúhelníku délku jeho strany.
Řešení:
Strana a rovnostranného trojúhelníku se vypočte ze zadané výšky v podle vzorce:


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,vyska:real;

begin

   writeln('Zadejte vysku rovnostranneho trojuhelniku: ');
   readln(vyska);

   if vyska>0 then
   begin
      a:=2/sqrt(3)*vyska;
      writeln('Strana a=',a:0:3);
   end
   else
      writeln('Vypocet nelze provest');
      
   readln;

end.
program ke stažení