Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Помогите пожалуста умоляю...  (Прочитано 8220 раз)
0 Пользователей и 1 Гость смотрят эту тему.
DSDBONUS
Гость
« : 22-12-2005 22:36 » 

Мне нуно написать программу:

Зачение полинома
Найти значение полинома

                                        Pn(x) = A0*X^n + A1*X^(n-1) + ... + An
с вещественными коэфицентами A0, A1, ..., An в комплексной точки x = c + id.
   Первая строка входного файла содержит степень полинома n и целые значения c, d,
вторая коэффициенты A0, A1, ..., An в целом формате.
   Выходной файл должен содержать два вещественных числа p и q - вещественную и
мнимую части полученного комплексного значения полинома, округленные до трех знаков после точки.

Пример с днными:
3 1 -1
-1 -1 1 3                                6.000 3.000
Помогите плизз...
Записан
Igel
Опытный

ru
Offline Offline
Пол: Мужской

« Ответ #1 : 24-12-2005 17:10 » 

А в чем проблема? Я правда не помню уже что такое полином, и чем разнятся у него вещественные часть и мнимая, но вроде ничего особо сложного нету...
Записан

Ёжики, это не только ценные шкурки...
sega
Гость
« Ответ #2 : 24-01-2006 06:48 » 

Вычислить значение полинома в данной точке
Код:
type
   TPolynomArray = array of Double;

 procedure Horner(Polynom: TPolynomArray; X: Extended; var FX, derivation: Extended);
 var
   i: Integer;
   H: Integer;
 begin
   H := High(Polynom);
   FX := Polynom[H];
   derivation := 0.0;
   for i := H - 1 downto 0 do
   begin
     derivation := derivation * X + FX;
     FX := FX * X + Polynom[i];
   end;
 end;





procedure TForm1.Button1Click(Sender: TObject);
  var
   X, FX, derivation: Extended;
 begin
 
   (* f(x) = 3 x^5 + 4 x^4 + 13 x^3 - 59 x^2 + 19 x - 97 *)

   X := 2.5;
   Horner(VarArrayOf([-97, 19, - 59, 13, 4, 3]), X, FX, derivation);
   ShowMessage(Format('x = %n'#13#10'f(x) = %n'#13#10'f''(x) = %n'    , [X, FX, derivation]));
 end;
« Последнее редактирование: 20-12-2007 17:20 от Алексей1153++ » Записан
Igel
Опытный

ru
Offline Offline
Пол: Мужской

« Ответ #3 : 24-01-2006 07:33 » new

Цитата
FX := FX * X + Polynom;
Тут ошибочка у тебя. Polynom - массив, а ты его складываешь.
Записан

Ёжики, это не только ценные шкурки...
sega
Гость
« Ответ #4 : 24-01-2006 08:40 » 

пардон натоть так:
Polynom
Записан
sega
Гость
« Ответ #5 : 24-01-2006 08:43 » 

чета квадратневые скобари не отображаются короче к Polinom индекс добавить надо в скобарях
Записан
PooH
Глобальный модератор

ru
Offline Offline
Пол: Мужской
... и можно без хлеба!


« Ответ #6 : 24-01-2006 08:57 » 

OFFTOPIC:
чета квадратневые скобари не отображаются короче к Polinom индекс добавить надо в скобарях
чтобы отображались "скобари" в ответах код программы отделяй тэгами "code"
[ code]<код программы>[ /code] (только без пробелов внутри)
Записан

Удачного всем кодинга! -=x[PooH]x=-
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines