Navigace: Hlavní stránka -> PASCAL -> 02 Jednoduché výpočty s podmínkou -> 02.15 Délka tětivy z poloměru kružnice a vzdálenosti tětivy od středu

MENU

02.15 Délka tětivy z poloměru kružnice a vzdálenosti tětivy od středu

Zadání:
Sestavte program, který vypočte ze zadaného poloměru kružnice a vzdálenosti tětivy od středu délku této tětivy.
Řešení:
Řešení využívá Pythagorovu větu.
S = střed
r = poloměr
v = vzdálenost tětivy od středu
d = délka tětivy
Vzdálenost musí být menší než poloměr, jinak by se nejednalo o tětivu.



program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var polomer,vzdalenost,tetiva:real;

begin

   write('Zadejte polomer kruznice: ');
   readln(polomer);
   write('Zadejte vzdalenost tetivy od stredu: ');
   readln(vzdalenost);

   if (polomer>0) and (vzdalenost>0) and (polomer>=vzdalenost) then
   begin
      tetiva:=2*sqrt(sqr(polomer)-sqr(vzdalenost));
      writeln('Velikost tetivy: ',tetiva:0:3);
   end
   else
      writeln('Vypocet nelze provest');

   readln;

end.
program ke stažení