Ближний ближнему

[Natali.ru]

Доброй ночи, помогите, пожалуйста, написать програмный код к следующей задаче: Запросив у пользователя степень полинома, сгенерировать случайным образом целочисленные коэффициенты полинома (в диапазоне -5..+5) и вывести полином так, чтобы он смотрелся "нормально" с точки зрения записи "от руки" (не должно быть элементов вида: ...+ -2 х^2...; 1 x^3 +...; ...+ 0 x +... и т.п.). Исчислить и вывести "нормально" производную полинома. Помогите с кодом или подскажите где смогут помочь. Возможна оплата

[whatever]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  n,i,sign:integer;
  m:integer;
  S:string;
begin
  S:='';
  readln(n);
  randomize;
  for i:=n downto 2 do
    begin
      m:=random(5);
      if m<>0 then
        begin
          sign:=random(2);
          if sign=0 then
            begin
              m:=-m;
              if abs(m)<>1 then
                S:=S+IntToStr(m)+'x^'+IntToStr(i)
              else
                S:=S+'-x^'+IntToStr(i)
            end
          else
            if m<>1 then
              S:=S+'+'+IntToStr(m)+'x^'+IntToStr(i)
            else
              S:=S+'+x^'+IntToStr(i)
        end;
    end;
  sign:=random(2);
  m:=random(5);
  if m>0 then
    if sign=0 then
      S:=S+'-'+IntToStr(m)+'x'
    else
      S:=S+'+'+IntToStr(m)+'x';
  sign:=random(2);
  if sign=0 then
    S:=S+'-'+IntToStr(random(5)+1)
  else
    S:=S+'+'+IntToStr(random(5)+1);
  delete(S,1,1);
  writeln(s);
  readln;
end.

Опять писал на коленке перед сном, но вроде верно.

[Natali.ru]

На какие весы? я тут просто новенькая и не знаю что где) Программа работает замечательно) только не вычисляет производную, ну надеюсь преподавателю и так пойдет)

[whatever]

Про производную забыл, 4 утра было :D. Вечером гляну, там не сильно много доднлывать.

[Vanta11a]

Ну не только про производную. Еще

(не должно быть элементов вида: ...+ -2 х^2...; 1 x^3 +...; ...+ 0 x +... и т.п.).

Поддерживаю, ночью писать код вредно, но гораздо вреднее читать ТЗ =)

Или я не так код прочитал?

[Natali.ru]

Ну х^2 может быть, это коэффициенты должны выглядеть нормально

[whatever]

Поддерживаю, ночью писать код вредно, но гораздо вреднее читать ТЗ =)

не должно быть элементов вида: ...+ -2 х^2...; 1 x^3 +...; ...+ 0 x +... и т.п.

+ -2 х^2 имелся ввиду плюс минус;
1 x^3 + коэфицент 1 перед x
+ 0 x + элемент с коэфицентом ноль

У меня в проге этого нет, так что, думаю, я все верно написл.
P.S. ночью писать код полезно, если спать неохота, никто не отвлекает

[Natali.ru]

Как организовать нахождение производной от случайного полинома

[whatever]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type
  mass=array of integer;
procedure FindPR(var m:mass);
var
  i:integer;
  S:string;
begin
  S:='';
  for i:=high(m) downto 3 do
    if m[i]<>0 then
      begin
        m[i]:=m[i]*i;
          if m[i]>0 then
            S:=S+'+'+IntToStr(m[i])+'x^'+IntToStr(i-1)
          else
            S:=S+IntToStr(m[i])+'x^'+IntToStr(i-1);
      end;
    if m[2]>0 then
      begin
        m[2]:=m[2]*2;
        S:=S+'+'+IntToStr(m[2])+'x';
      end;
    if m[2]<0 then
      begin
        m[2]:=m[2]*2;
        S:=S+IntToStr(m[2])+'x';
      end;
    if m[1]>0 then
      S:=S+'+'+IntToStr(m[1]);
    if m[1]<0 then
      S:=S+IntToStr(m[1]);
    if s[1]<>'-' then delete(S,1,1);
    writeln(S);
end;

var
  n,i,sign:integer;
  m:mass;
  S:string;
begin
  S:='';
  readln(n);
  setlength(m,n);
  randomize;
  for i:=n-1 downto 2 do
    begin
      m[i]:=random(5);
      if m[i]<>0 then
        begin
          sign:=random(2);
          if sign=0 then
            begin
              m[i]:=-m[i];
              if abs(m[i])<>1 then
                S:=S+IntToStr(m[i])+'x^'+IntToStr(i)
              else
                S:=S+'-x^'+IntToStr(i)
            end
          else
            if m[i]<>1 then
              S:=S+'+'+IntToStr(m[i])+'x^'+IntToStr(i)
            else
              S:=S+'+x^'+IntToStr(i)
        end;
    end;
  sign:=random(2);
  m[1]:=random(5);
  if m[1]>0 then
    if sign=0 then
      begin
        m[1]:=-m[1];
        if abs(m[1])<>1 then
          S:=S+IntToStr(m[i])+'x'
        else
          S:=S+'-x';
      end
    else
      if m[1]<>1 then
        S:=S+'+'+IntToStr(m[i])+'x'
      else
        S:=S+'+x';
  sign:=random(2);
  if sign=0 then
    S:=S+'-'+IntToStr(random(5)+1)
  else
    S:=S+'+'+IntToStr(random(5)+1);
  if S[1]<>'-' then delete(S,1,1);
  writeln('polinom:');
  writeln(s);
  writeln('proizvodnaya:');
  FindPR(m);
  readln;
end.

Проверяй. Я ее изначально под массив писал, потом удалил за ненадобностью. Оказалось надо :D

@^%#$@^!!! Забыл еще одну проверку, +1х появляется. Сейчас поправлю.

Update: Вот теперь поправил.
Update2: Еще раз поравил. Кажется без косяков, но лучше посидеть и потыкать, может еще что забыл

[Mad_Cat]

Я ее изначально под массив писал, потом удалил за ненадобностью. Оказалось надо

Можно и без него
вот мой вариант

uses
  SysUtils;
 var  n:integer;
  i:integer;
  F,Fs,buf:string;
  C:Integer;
begin
  write('MAX N=');Readln(n);
  randomize;
  For i:=n downto 0 do
    begin
      buf:='';
      c:=Random(11)-5;
      if abs(c)>1 then buf:=buf+intTostr(c);
      if c=-1 then buf:=buf+'-';
      if (C<>0) and (i>0) then buf:=buf+'x';
      if (C<>0) and (i>1) then buf:=buf+'^'+inttostr(i);
      if (C>0) and (buf<>'') then F:=f+'+'+buf
        else F:=f+buf;
      buf:='';
      if abs(c*i)>1 then buf:=buf+intTostr(c*i);
      if (abs(C*i)>0)and (i>1) then buf:=buf+'x';
      if (abs(C*i)<>0) and (i>2) then buf:=buf+'^'+inttostr(i-1);
      if (C>0) and (buf<>'') then Fs:=fs+'+'+buf
        else Fs:=fs+buf;
    end;
  if f[1]='+' then delete(f,1,1);
  if fs[1]='+' then delete(fs,1,1);
  Writeln('F(x)='+f);
  Writeln('F''(x)='+Fs);
  Readln;
end.