Модераторы: volvo877, Snowy, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Математика в паскале 
V
    Опции темы
Dobermann
Дата 22.8.2008, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



Кто-нибудь знает как вычислить:
1) корень n-степени из произведения
2) возвести в n-степень (больше чем в квадрат)
exp(ln(sin(b))*3) - это правильное возведение (синуса(b)) в 3-ю степень?!?!?!
Так вот главный вопрос: как вычислить, например корень 3-й степени из произведения a*b
Надеюсь вопрос понятен  smile , т.е. не просто sqrt, а из степени выше чем 2
help 
PM   Вверх
UserNet
Дата 22.8.2008, 13:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 226
Регистрация: 13.12.2006
Где: Новосибирск

Репутация: нет
Всего: 3



Просто надо  возвести   в   степень  1/ n 

Код

function TForm1.MySqrt(x, n: Double): Double;
begin
   if x <= 0 then
   begin
      Result := 0;
      Exit;
   end;
   Result := exp( 1 / n * ln( x ) );
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form1.Caption := FloatToStr( MySqrt( 64, 3 ) );
end;


Это сообщение отредактировал(а) volvo877 - 23.8.2008, 00:47
PM MAIL   Вверх
Dobermann
Дата 22.8.2008, 13:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



Спасибо мэн!!!  smile  smile  smile 
PM   Вверх
Dobermann
Дата 22.8.2008, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



тут паскаль, не делфи...
otvet:=(sin(pi*d)/cos(pi*d))/(a*exp(1/3*ln(2*a*c))); - Invalid floating point operation;
как эту ошибку обойти?! не пойму за какие пределы, что выходит...

PM   Вверх
BaD_SeCt0R
Дата 22.8.2008, 13:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: нет
Всего: 18



Цитата(Dobermann @  22.8.2008,  13:38 Найти цитируемый пост)
Invalid floating point operation

у тебя otvet - целое, сделай его real.


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
Dobermann
Дата 22.8.2008, 19:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



оно real !!! Я и в help'e паскалевском ничего не нашел =(
PM   Вверх
BaD_SeCt0R
Дата 22.8.2008, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: нет
Всего: 18



Цитата(Dobermann @  22.8.2008,  19:26 Найти цитируемый пост)
Я и в help'e паскалевском ничего не нашел

О типах переменных в каждой книжке про паскаль написано.


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
Dobermann
Дата 22.8.2008, 21:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



Я хорошо знаю паскаль! Может потому, что переменные a,b,c,d - целочисленные константы?!
PM   Вверх
volvo877
Дата 23.8.2008, 00:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116



Цитата(Dobermann @  22.8.2008,  13:38 Найти цитируемый пост)
не пойму за какие пределы, что выходит...

Телепаты в отпуске. Приводи значения A и C как минимум. Возможно ты пытаешься вычислить Ln от отрицательного числа?
PM MAIL   Вверх
Dobermann
Дата 23.8.2008, 10:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



volvo877,  =)
C=-23 A=5 
Надо наверное в модуль! А куда его вставить? Взять в модуль логарифм или 2*а*с ?!

Добавлено через 5 минут и 59 секунд
Код

e3:=arctg(a*sqrt(1-sqr(x))/15*x)/ln(d/3);

А разве для вычисления арктангенса нужно подключать какой-нибудь модуль, кроме crt ?! А то пишет unknown indifinder 
PM   Вверх
BaD_SeCt0R
Дата 23.8.2008, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: нет
Всего: 18



Цитата(Dobermann @  22.8.2008,  19:26 Найти цитируемый пост)
оно real !!!


Цитата(Dobermann @  23.8.2008,  10:42 Найти цитируемый пост)
C=-23 A=5


это должно работать
Цитата(Dobermann @  23.8.2008,  10:42 Найти цитируемый пост)
А разве для вычисления арктангенса нужно подключать какой-нибудь модуль, кроме crt ?!

функция ArcTan


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
Dobermann
Дата 23.8.2008, 11:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



Цитата(BaD_SeCt0R @  23.8.2008,  12:26 Найти цитируемый пост)
Цитата(Dobermann @  22.8.2008,  19:26 )оно real !!!

Переменная otvet типа real !!!

Цитата(BaD_SeCt0R @  23.8.2008,  12:26 Найти цитируемый пост)
Цитата(Dobermann @  23.8.2008,  10:42 )C=-23 A=5

А это -
Цитата(Dobermann @  22.8.2008,  22:51 Найти цитируемый пост)
переменные a,b,c,d - целочисленные константы?!


BaD_SeCt0R, спасибо! действительно ArcTan =)

Еще вопрос:
Как в цикле найти количество одинаковых элементов в строке матрицы??
Пример:
строка - (4, 6, 34, 4, 4) и ответ счетчика получить 3 ?!?!?! Я то это сделал, но слишком громоздкий код...мож кто знает как покороче?!
PM   Вверх
BaD_SeCt0R
Дата 23.8.2008, 11:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: нет
Всего: 18



Цитата(Dobermann @  23.8.2008,  11:45 Найти цитируемый пост)
Как в цикле найти количество одинаковых элементов в строке матрицы??Пример:строка - (4, 6, 34, 4, 4) и ответ счетчика получить 3 ?!?!?! Я то это сделал, но слишком громоздкий код...мож кто знает как покороче?!

У тебя тут три раза "4", а если кроме будут еще дубли??? Например: (4, 5, 4, 4, 11, 5, 5)? Какого ответа ты хочешь в этом случае?

Это сообщение отредактировал(а) BaD_SeCt0R - 23.8.2008, 11:55


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
Dobermann
Дата 23.8.2008, 11:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0



Не, без дублей!!!  smile 
PM   Вверх
BaD_SeCt0R
Дата 23.8.2008, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: нет
Всего: 18



Цитата(Dobermann @  23.8.2008,  11:54 Найти цитируемый пост)
Не, без дублей!!!

Еще раз. Тебе нужно узнать, сколько раз элемент Х входит в числовой ряд??


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.0515 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.