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

MENU

01.16 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



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);

   tetiva:=2*sqrt(sqr(polomer)-sqr(vzdalenost));

   writeln('Velikost tetivy: ',tetiva:0:3);

   readln;

end.
program ke stažení