 nuzen sovet |
Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
  |
| dina |
Сообщение
#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; ???
|
 
|
|
| Vit |
Сообщение
#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___ |
Сообщение
#3
|
 Бывалый Группа: Пользователи Сообщений: 282 Репутация: 0 |
Function Dist (t1, t2 : tPoint): real;
begin Dist:=sqrt(sqr(t2.x- t1.x)+sqr(t2.y-t2.y)) end; |
|
|
|
| mj |
Сообщение
#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 |
Сообщение
#5
|
|
Бывалый Группа: Пользователи Сообщений: 156 Пол: Мужской Репутация: 0 |
Цитата Забываешь потихоньку паскаль Не забываю, просто Result появился начиная с Turbo Pascal 6, и мне просто в голову не пришло что кто-то пользуется чем-то более древним -------------------- With the best regards Vit
Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой |
|
|
|
| mj |
Сообщение
#6
|
|
Adminь Группа: Пользователи Сообщений: 803 Пол: Мужской Реальное имя: Евгений Репутация: 5 |
Цитата Не забываю, просто Result появился начиная с Turbo Pascal 6, и мне просто в голову не пришло что кто-то пользуется чем-то более древним Стока писал на паскале и не знал этого... блин блин блин... Я думал тока в Delphi это появилось... |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 19.04.2024 6:21 |
Связь с администрацией: bu_gen в домене octagram.name