 nuzen sovet |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
| dina |
 11.02.2003 14:45
Сообщение
#1
|
|
Гость  |
pomogite razobratsja, kak v programe na vytsisslenie rasstojani mezdu 2 totskami virazenie dist:= sqrt(sqr(t2.x-t1.x)+sqr(t2.y-t2.x)) zamenit na funktsiju, dopustim Function Dist (P1, P2 : tPoint): real; ???
|
 
|
|
  |
Ответов(1 - 5)
| Vit |
11.02.2003 15:38
Сообщение
#2
|
|
Бывалый  Группа: Пользователи Сообщений: 156 Пол: Мужской Репутация:  0  |
Function Dist (t1, t2 : tPoint): real;
begin result:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.x)) end; -------------------- With the best regards Vit
Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой |
   |
|
| ___ALex___ |
11.02.2003 15:56
Сообщение
#3
|
 Бывалый Группа: Пользователи Сообщений: 282 Репутация: 0 |
Function Dist (t1, t2 : tPoint): real;
begin Dist:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.y)) end; |
|
|
|
| mj |
14.02.2003 3:22
Сообщение
#4
|
 Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Цитата Function Dist (t1, t2 : tPoint): real; begin result:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.x)) end; Забываешь потихоньку паскаль  |
|
|
|
| Vit |
14.02.2003 14:56
Сообщение
#5
|
|
Бывалый Группа: Пользователи Сообщений: 156 Пол: Мужской Репутация: 0 |
Цитата Забываешь потихоньку паскаль Не забываю, просто Result появился начиная с Turbo Pascal 6, и мне просто в голову не пришло что кто-то пользуется чем-то более древним -------------------- With the best regards Vit
Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой |
|
|
|
| mj |
14.02.2003 16:06
Сообщение
#6
|
|
Adminь Группа: Администраторы Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Цитата Не забываю, просто Result появился начиная с Turbo Pascal 6, и мне просто в голову не пришло что кто-то пользуется чем-то более древним Стока писал на паскале и не знал этого... блин блин блин... Я думал тока в Delphi это появилось... |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 15.11.2025 9:47 |