IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> корень числа
rash
сообщение 3.11.2005 21:22
Сообщение #1


Гость






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


Гость






кароче 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
 К началу страницы 
+ Ответить 

Сообщений в этой теме
rash   корень числа   3.11.2005 21:22
volvo   RE: корень числа   3.11.2005 21:23
Guest   кароче ERROR 26:Mismatch. пишу весь текст программ...   3.11.2005 21:38
volvo   Guest, делай так: var kat1,kat2:integer; {kat1-2...   3.11.2005 21:42
Guest   volvo читер ;) thx   3.11.2005 21:48


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.07.2025 18:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"