02.08 Délka uhlopříčky čtverce
Zadání:
Sestavte program, který ze zadané strany a čtverce vypočte délku jeho úhlopříčky.
Sestavte program, který ze zadané strany a čtverce vypočte délku jeho úhlopříčky.
Řešení:
Úhlopříčku u lze ze zadané strany čtverce a vypočítat podle vzorce (užívá Pythagorovu větu):
Úhlopříčku u lze ze zadané strany čtverce a vypočítat podle vzorce (užívá Pythagorovu větu):
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,u:real;
begin
write('Zadejte stranu ctverce: ');
readln(a);
if a>0 then
begin
u:=sqrt(2*sqr(a));
writeln('Uhlopricka=',u:0:3);
end
else
writeln('Vypocet nelze provest');
readln;
end.
program ke stažení
Pro studenty:
Funkce sqrt vrací hodnotu druhé odmocniny, funkce sqr hodnotu druhé mocniny.
Pro učitele:
V programu je použit neupravený vzorec k procvičení funkcí sqr a sqrt.
Funkce sqrt vrací hodnotu druhé odmocniny, funkce sqr hodnotu druhé mocniny.
Pro učitele:
V programu je použit neupravený vzorec k procvičení funkcí sqr a sqrt.