Navigace: Hlavní stránka -> PASCAL -> 01 Jednoduché výpočty -> 01.17 Délka tečny kružnice vedené z bodu

MENU

01.17 Délka tečny kružnice vedené z bodu

Zadání:
Sestavte program, který vypočte ze zadané hodnoty poloměru r kružnice a vzdálenosti v bodu od středu kružnice délku tečny, vedené z tohoto bodu ke kružnici.
Řešení:
Řešení využívá Pythagorovu větu.



program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var polomer,vzdalenost,tecna:real;

begin

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

   tecna:=sqrt(sqr(vzdalenost)-sqr(polomer));

   writeln('Delka tecny: ',tecna:0:3);

   readln;

end.
program ke stažení