Navigace: Hlavní stránka -> PASCAL -> 02 Jednoduché výpočty -> 02.14 Obsah šestiúhelníku vepsaného do kružnice

MENU

02.14 Obsah šestiúhelníku vepsaného do kružnice

Zadání:
Sestavte program, který vypočte ze zadané hodnoty poloměru r obsah pravidelného šestiúhelníku, vepsaného do této kružnice.
Řešení:
Obsah S pravidelného šestiúhelníku vepsaného do kružnice o známém poloměru r lze vypočítat podle rovnice:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var polomer,obsah:real;

begin

   write('Zadejte polomer kruznice: ');
   readln(polomer);

   if polomer>0 then
   begin
      obsah:=3/2*sqrt(3)*sqr(polomer);
      writeln('Obsah sestiuhelniku: ',obsah:0:3);
   end
   else
      writeln('Vypocet nelze provest');

   readln;

end.
program ke stažení