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

MENU

01.22 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

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

   a:=2/sqrt(3)*vyska;

   writeln('Strana a=',a:0:3);

   readln;

end.
program ke stažení