01.10 Délka uhlopříčky obdélníku
Zadání:
Sestavte program, který vypočte ze zadaných stran obdélníku délku jeho úhlopříčky.
Sestavte program, který vypočte ze zadaných stran obdélníku délku jeho úhlopříčky.
Řešení:
Použitím Pythagorovy věty lze ze zdaných stran a,b obdélníku vypočítat jeho úhlopříčku podle vzorce:
Použitím Pythagorovy věty lze ze zdaných stran a,b obdélníku vypočítat jeho úhlopříčku podle vzorce:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var a,b,u:real;
begin
write('Zadejte stranu a: ');
readln(a);
write('Zadejte stranu b: ');
readln(b);
u:=sqrt(sqr(a)+sqr(b));
writeln('Uhlopricka obdelniku=',u:0:3);
readln;
end.
program ke stažení
Pro studenty:
Funkce sqrt vrací hodnotu druhé odmocniny, funkce sqr hodnotu druhé mocniny.
Funkce sqrt vrací hodnotu druhé odmocniny, funkce sqr hodnotu druhé mocniny.