02.16 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.
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. Zadaný poloměr nesmí být větší než vzdálenost, nejednalo by se o tečnu.
Řešení využívá Pythagorovu větu. Zadaný poloměr nesmí být větší než vzdálenost, nejednalo by se o tečnu.
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);
if (polomer>0) and (vzdalenost>0) and (polomer<=vzdalenost) then
begin
tecna:=sqrt(sqr(vzdalenost)-sqr(polomer));
writeln('Delka tecny: ',tecna:0:3);
end
else
writeln('Vypocet nelze provest');
readln;
end.
program ke stažení