задача-Задать катеты прямоугольного треугольника,потом найти его гепотенузу =)
итак вопрос: как дать понять Паскалю что я хочу извлечь квадратный корень из суммы квадратов катетов
СуммаКвКатетов:=SQR(катет1)+SQR(катет2);
КУДА ПИХАТЬ SQRT ???
var
kat1,kat2,gip:integer; {kat1-2 (катеты) gip(гипотенуза)}
begin
write(' 1katet= '); readln(kat1);
write(' 2katet= '); readln(kat2);
gip:=sqrt(sqr(kat1)+sqr(kat2)); {в этой строке ошибка 26}
writeln('gippotenuz_ravna=',gip);
end.
var
kat1,kat2:integer; {kat1-2 (катеты) gip(гипотенуза)}
gip: real; { т.к. SQRT возвращает Real а не Integer }
begin
write(' 1katet= '); readln(kat1);
write(' 2katet= '); readln(kat2);
gip:=sqrt(sqr(kat1)+sqr(kat2)); {в этой строке ошибка 26}
writeln('gippotenuz_ravna=',gip);
end.