Помощь - Поиск - Пользователи - Календарь
Полная версия: корень числа
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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
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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.