| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Подчитать сумму цифр числа Ограничения ввода ! Число "Математико" - итальянская игра Дайте задание, пожалуйста Uninstall Key WinDos.tpu, WinCrt.tpu - помогите найти, WinDos.tpu, WinCrt.tpu - помогите найти запись в файл, кодировка не та что ли? Метод итерраций, The method Задача про календарь!!!, Помогите разобраться!;) Условие входа в тело Перечислимый тип данных определить какие буквы гласные соглассные, Помогите пожалуста разобраться Eror 15: File Not Found (GRAPH.TPU), как исправить Возведение в нецелую степень Паскаль и простые числа, Распределение расстояний между пр.числам Как проверить, есть ли строковое значение в реестр, Как проверить, есть ли строковое значени Имитация нажатий на кнопоки, Free Pascal Кнопка, как поменять цвет кнопки.. Строковый тип данных *.tpu Ошибка - файл не найден, всю голову сломал уже :( Задача последовательности. graph AnsiString в TStrings АБРАКАДАБРА Люди подскажите ссылку........, А то у нас в городе не найдешь ......... 2VIT, А где FAQ то? Давайте что-нить организуем..., тематика - Паскаль Делаем Утилиту d:) изменения числа Вопросы теории! free pascal, где взять? Помогите решить задачу, Плиз .Срочно нужно Тест, Помогите составить тест Функция? ФУНКЦИЯ!!!!!!!, вопрос жизни и смерти writeln( chr(s[2]) ); - Ошибка!, сори за элементарные вопросы Помогите пожалуйста написать программу! Крипто библиотеки, Где достать? OpenDialog в dll Создание курсора, Как в SVGA создать мышиную стрелку? Цикл с шагом или другое решение, Помогите решить, плиз Приктикум по Pascal, задачи, алгоритмы и решения... Как Вы относитесь к курящим девушкам? Помогите решить задачу на Pascal Плиз ,помогите решить, Умоляю Создание файла Помогите перевернуть бокалы, Курсовая дубль два Помогите с задачкой, плиз Кратчайший путь в матрице, нахождение кратчайшего пути в матрице Чё надо от меня Delphi? Замена sqrt, адресуется, в частности, к Aleche ОШШШИБКА - Нужна помощь, всякая фигня Задача, Посмотрите ... Поиск подстроки в строке по маске, Срочно! C++ to Turbo Pascal 7.0, help ПАСКАЛЬ - стэк - ФОРТРАН, вопрос экспертам Помогите решить задачу на ГРАФЫ или инфы подкиньте, Графы Подсчет кол-ва дней, пАмАгитИ! %) Рогатая гусеница. Проблема с компиляцией. Полезная документация, Где найти? Как сделать на дельфях прогу типа ХуперТерминал?, Как сделать на дельфях прогу типа ХуперТ Turbo Pascal For Windows, рекумендую! Где скачать Turbo Pascal 7 или Pascal for Windows БИЛЕТ Легкая задача на строки как проверить двудольность графа? Построение магического квадрата, любой размерности Особенности Pascal, GNU COMPAQ Метод покоординатного спуска, очень нужен алгоритм проги!!! |
Платные хостинги Раскрутка сайта Книги по программированию Возведение в нецелую степень
- Возведение в нецелую степеньКак реализовать? - A^N = Exp(N * Ln (A)) {для A>0} - Как будет для А<0? - А для отрицательных чисел операции возведения в степень не существует (кроме частных случаев). Это уже пойдёт переход в комплексную плоскость. - Makaroff!!! ВОТ кое-что написала: function power(b:real;n:integer):real; begin if b=o then power:=0 else if b<0 then power:= neg(n)*exp(n*ln(-b)) else power:=exp(n*ln(b)) end;(возведение в степень ,n-степень) function neg( exponent: integer):integer;begin if odd(exponent) then neg:=-1 else neg:=1end;(возведение в степень -1 ) - У ти какая умная!!! + пользуйся тегами кода!!!!P. S.Sorry за оффтоп, не удержался! - Да,да такая!!!!!!!!!!Какие теги????Уже второй раз на форуме спрашиваю -никто не отвечает!!!!А за оффтоп непростительно!!!!!! - [code@=delphi]сам код[/code@]Без символа @ Это сообщение отредактировал Pakshin A. S. - 27.2.2005, 18:57 - Тэги code.Нажми на кнопку "КОД", и в поле ввода появятся тэги [ code ][ /code ] (без пробелов у квадратных скобок, сейчас вставил пробелы, чтобы форум их не обработал).Можно тэги вводить просто руками.Если пользоваться тэгами [ code ][ /code ], то форум подсветит код в соответствии с правилами того языка программирования, которому посвящён форум.Можно также явно указать язык программирования (стиль подсветки).Например, [ code=cpp ][ /code ] подсветит код в стиле C++,[ code=delphi ][ /code ] - в стиле pascal/delphi.Пример:Код program t;begin write ('Hello, world!');end.highlightSyntax('delphiMmZhOT','delphi'); - Код if b=0 then power:=0else power:= (n/abs(n))*exp(n*ln(abs(b)));highlightSyntax('delphi0NjI5M','delphi'); - А ещё можно было написать русские символы кое-где...[cоde=delphi][/code] - Ну праильно... давайте придумывать как писать примеры... Для комодеров и выше можно использовать коды [mod][/mod] - По теме:А как начет того, что отрицательные числа, возведенные в четную степень становятся положительными?А числа, возведенные в отрицательную степень равны обратному значению положительной степени?В коде я этого не заметил... - Понял, сам слепой.Просто без тэгов плохо видно.Только, чтобы од соответствовал теме и работал, его нужно чуть подправить:Код function power(b,n:real):real;begin if b=0 then power:=0 else if b<0 then power:= neg(n)*exp(n*ln(-b)) else begin power:=exp(n*ln(b)); if odd(Round(b)) then power:=-power; end;end;highlightSyntax('delphihMDA=','delphi');Вот так он работает и возводит в в нецелую степень. Это сообщение отредактировал Snowy - 27.2.2005, 20:14 - Вот это и есть те исключения Лучше уж сразу тогда в комплексной плоскости решение искать, чем все возможные варианты решения в действительных числах перебирать.Что-то типа так:Код angle := 180 * Ord (base < 0) * power;t_angle := Trunc (angle);Result := Exp (power * Ln (Abs (base)));if t_angle mod 360 = 180then Result := -Result;if (t_angle mod 180 <> 0.0) or (t_angle - angle <> 0.0)then ShowMessage ('Решение существует только в комплексное плоскости');highlightSyntax('delphiMTY4Mz','delphi');Могут быть погрешности, но они примерно равны погрешностям определения целости числа power...base - основание степени.power - показатель. Добавлено @ 20:26 Snowy, ну это не серьёзно У тебя код не совсем корректен. Это сообщение отредактировал dm9 - 27.2.2005, 20:38  |