Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.09.2012, 18:16   #1
(Нафаня)
Пользователь
 
Аватар для (Нафаня)
 
Регистрация: 08.03.2011
Сообщений: 56
По умолчанию Проверьте программу. Мне кажется я что-то упустила

Даны 2 многочлена. Построить многочлен как сумму 2-х многочленов
Код:
type 
  TList=^Node;
  Node=record
             degree:integer;
             koef:real;
             next:TList;
           end;
var 
  z,r,p,q,p1,q1:TList;
begin
  p1:=p;
  q1:=q;
  while (p1<>nil) and (q1<>nil) do
     begin
       new(z);
       if (p1^.degree=q1^.degree) then 
         begin
           z^.degree:=p1^.degree;
           z^.koef:=p1^.koef+q1^.koef;
           z^.next:=r;
           r:=z;
           p1:=p1^.next;
           q1:=q1^.next;
         end
       else
         if p1^.degree>q1^.degree then
           begin 
             z^.degree:=p1^.degree;
             z^.koef:=p1^.koef;
             p1:=p1^.next;
             z^.next:=r;
             r:=z;
           end;
    end;
end.
Если бы люди,вдруг,узнали,о чем я думаю... Со мной бы сначала перестали здороваться,а потом,вообще,на костре сожгли бы нафиг
(Нафаня) вне форума Ответить с цитированием
Старый 30.09.2012, 19:37   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

1) Нет случая когда
Код:
p1^.degree<q1^.degree
2) Первоначально переменную r надо инициализировать в nil
3)
Код:
while (p1<>nil) and (q1<>nil) do
может не дать ответ, если один из многочленов уже кончился
На первый взгляд вроде всё...
eoln вне форума Ответить с цитированием
Старый 30.09.2012, 19:46   #3
(Нафаня)
Пользователь
 
Аватар для (Нафаня)
 
Регистрация: 08.03.2011
Сообщений: 56
По умолчанию

спасибо большое))
Если бы люди,вдруг,узнали,о чем я думаю... Со мной бы сначала перестали здороваться,а потом,вообще,на костре сожгли бы нафиг
(Нафаня) вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Мне кажется или я неправильно связал таблицы) Bogdand Помощь студентам 0 07.05.2012 08:55
Как мне кажется это основы Delphi7 dimusiko Помощь студентам 2 01.01.2012 20:26
Проверьте пож программу. Не запускается что-то (Нафаня) Помощь студентам 1 29.12.2011 02:36
Мне кажется, или... theos О форуме и сайтах клуба 17 18.12.2008 22:50
Шрифты. Мне кажется или я долго не был? AngelOfDeath О форуме и сайтах клуба 1 26.09.2008 17:24