Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней. Закрыто  Сообщений: 6 
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
 

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
Код:
G:=-SIGN(SQRT(S),F)

G, S, F: real;
Что это за функция такая, SIGN ??

Ну что такое SQRT - ясно, это корень, а вот SIGN - что-то непонятное.

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)



Партнер
 

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Мдя уж и до Фортрана доползли :)
Вот что делает твоя фкнуция
SIGN(A,B)
____________
if(B>=0) then X=ABS(A)
else X=-ABS(A)


 

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
Ray Adams
Цитата:
Мдя уж и до Фортрана доползли

Просто исходник на нем, а я на паскаль перебиваю

Цитата:
Вот что делает твоя фкнуция
SIGN(A,B)

Так что она делает-то? Может я туплю к ночи?? Объясни словами.

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)


 

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Ну написал же, если второй параметр больше или равен 0, то она возвращает первый абсолютное значение первого параметра, если же нет, то минусовое значение от абсолютного параметра.
Код:
function SIGN(a,b:real):real;
begin
if (b>=0) then result:=abs(a) else result:=-abs(a);
end;


 

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
А-а-а... а я - то подумал, что-то подпись у тебя какая-то странная :lol:
Да-а-а, пора спать... Уфф, полный LOL

_________________
Здесь так мало тех, с кем легко говорить,
Еще меньше тех, с кем не страшно молчать (c)


 

Advanced member
Статус: Не в сети
Регистрация: 23.10.2003
Откуда: Иркутск/Майкоп
:)

Закрыто.

_________________
Края каждого совершенно нового крышка процессора не на 100% гладкая. Это связано с тем, что следов мастерства не избежать. (c) Али.


Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней. Закрыто  Сообщений: 6 
-

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan