корень числа Опции

[rash]

задача-Задать катеты прямоугольного треугольника,потом найти его гепотенузу =)
итак вопрос: как дать понять Паскалю что я хочу извлечь квадратный корень из суммы квадратов катетов
СуммаКвКатетов:=SQR(катет1)+SQR(катет2);
КУДА ПИХАТЬ SQRT ???

[volvo]

СуммаКвКатетов:=SQRT( SQR(катет1)+SQR(катет2) );

[Guest]

кароче ERROR 26:Mismatch.
пишу весь текст программы как ее написал я:

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.

Сообщение отредактировано: volvo - 7.11.2006 20:57

[volvo]

Guest, делай так:

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.

[Guest]

volvo читер ;)
thx