Вернуться   Форум Рубцовска > Городской Интернет > Программирование > Pascal/Delphi
+25°Давление 743
Влажность 32%
Ветер 2 м/с Ю-В
Комфорт +25°

Ответ
 
Опции темы Опции просмотра
  #1  
Старый 11.03.2012, 20:19
Аватар для AbNorMal_Oleg
AbNorMal_Oleg AbNorMal_Oleg вне форума
Ефрейтор
 
Регистрация: 08.12.2009
Сообщений: 43
Спасибо: 1
По умолчанию Проверка на бесконечность

Cos(90°)=∞
Для делфи ∞=6,12303176911189E-17
Как можно проверить, что результат дал бесконечность и написать "∞"???
__________________
Ответить с цитированием
  #2  
Старый 12.03.2012, 13:57
Аватар для Чужой
Чужой Чужой вне форума
Капитан
 
Регистрация: 28.07.2006
Сообщений: 1,358
Спасибо: 417
Отправить сообщение для Чужой с помощью ICQ
По умолчанию

угол проверить перед передачей к кос
__________________

9231624540
Ответить с цитированием
  #3  
Старый 13.03.2012, 00:56
Аватар для MiDoS
MiDoS MiDoS вне форума
Старший лейтенант
 
Регистрация: 12.02.2006
Сообщений: 930
Спасибо: 647
Отправить сообщение для MiDoS с помощью ICQ
По умолчанию

Должен в exception вываливаться, соответственно можно через try ... except перехватить
__________________
За последнее десятилетие людям нашей страны навешали такое количество лапши на уши, что она уже больше там не помещается — соскальзывает.
Ответить с цитированием
  #4  
Старый 13.03.2012, 01:05
CJIOH CJIOH вне форума
Капитан
 
Регистрация: 19.09.2006
Адрес: Новосибирск
Сообщений: 1,879
Спасибо: 1,719
По умолчанию

uses Math;

IsInfinite(A)

и вообще, для начала подучи математику. cos(Pi/2) = 0
ты наверное про тангенс
__________________
Ответить с цитированием
  #5  
Старый 15.03.2012, 01:35
Аватар для AbNorMal_Oleg
AbNorMal_Oleg AbNorMal_Oleg вне форума
Ефрейтор
 
Регистрация: 08.12.2009
Сообщений: 43
Спасибо: 1
По умолчанию

Цитата:
Сообщение от CJIOH Посмотреть сообщение
uses Math;

IsInfinite(A)

и вообще, для начала подучи математику. cos(Pi/2) = 0
ты наверное про тангенс
такто да) знач в коде косяк) спс
__________________
Ответить с цитированием
  #6  
Старый 15.03.2012, 21:23
Аватар для AbNorMal_Oleg
AbNorMal_Oleg AbNorMal_Oleg вне форума
Ефрейтор
 
Регистрация: 08.12.2009
Сообщений: 43
Спасибо: 1
По умолчанию

Чёрт знает что(
Пишу:
Код:
var
   x :real;
 begin
   x:= Cos(PI/2);
   edit1.Text:=FloatToStr(x);
 end;
Выдаёт: -2,71050543121376E-20
Где ошибка?
__________________
Ответить с цитированием
  #7  
Старый 15.03.2012, 21:40
Аватар для AbNorMal_Oleg
AbNorMal_Oleg AbNorMal_Oleg вне форума
Ефрейтор
 
Регистрация: 08.12.2009
Сообщений: 43
Спасибо: 1
По умолчанию

Нашёл выход) как всегда через задний проход:
Для X в градусах:
Код:
floattostr(RoundTo(Cos(DegToRad(strtofloat(X))),-4))
Для Х в радианах:
Код:
floattostr(RoundTo(Cos(X),-4)))
__________________
Ответить с цитированием
Ответ

Опции темы
Опции просмотра

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +7, время: 18:19.


Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd. Перевод: zCarot