дана формула посчитать по ней сумму... Опции

[ROxY]

ПОМОГИТЕ с задачками
1. я сделала одну она на нахождение корней квадратного уравнения..НО препод сказал
что при условии когда все коэффициенты нули должны выводиться любые корни
скажите как это сделать??
2. а вторая вводятся переменные a,n,x
и дана формула S=1-a*x+a^2*x^2-a^3*x^3+a^4*x^4.....a^n*x^n
вот нужно посчитать по этой формуле сумму...
помогите пожалуйста очень надо!!!!![

[Lapp]

когда все коэффициенты нули должны выводиться любые корни
скажите как это сделать??

Так и пиши:
WriteLn('x -любое');

[Lapp]

Сумму вычисляй в цикле while или repeat. Останавливай, когда величина общего члена станет меньше заданной точности. Поскольку ряд знакопеременный, то точность суммы оценивается абсолютной величиной последнего члена.

[ROxY]

еще вопросик

var i,j,m,n,l,r : integer;
    tab         : array [1..50,1..50] of integer;
begin
  clrscr;
   readln(m);
   readln(n);
  repeat
    inc®;
    for i:=r   to n-r+1   do begin inc(l);tab[i,r]:=l     end;
    for i:=r+1 to m-r+1   do begin inc(l);tab[n-r+1,i]:=l end;
    for i:=n-r downto r   do begin inc(l);tab[i,m-r+1]:=l end;
    for i:=m-r downto r+1 do begin inc(l);tab[r,i]:=l     end;
  until l=m*n;
  for j:=1 to m do
  for i:=1 to n do
  begin
    write(tab[i,j]:4);
    if i=n then writeln;
  end;
  readln;
end.
это программа матрица по спирали..скажите что значит inc
вот...и ещё одна задачка вычисления корней квадратного уравнения

VAR A,B,C,D,X,Y:REAL;
  BEGIN
    WRITELN ('VVEDITE A B C');
    READLN (A,B,C);
    if a=0 then
      BEGIN
       if b=0 then
          begin
          if c=0 then
             begin writeln('korney net');
             readln;
             halt;
             end;
          end;
             X:=(-c)/(b);
             writeln('otvet X=',X:2:2,'');
             readln;
             Halt(0);
      END;
       D:=B*B-4*A*C;
       IF D>0 THEN
  BEGIN
    X:=(-B+SQRT(D))/(2*A);
    Y:=(-B-SQRT(D))/(2*A);
    WRITELN('OTVET X=',X:2:2,' OTVET Y=',Y:2:2,'');
  END;
    IF D<0 THEN
     begin
       if a>0 then
        writeln('otvet x=',-b/2*a:0:0,'+',sqrt(abs(d))/2*a:0:0,'i',
        '  ','otvet y=',-b/2*a:0:0,'-',sqrt(abs(d))/2*a:0:0,'i')
       else
        writeln('otvet x=',-b/2*a:0:0,'-',abs(sqrt(abs(d))/2*a):0:0,'i',
        '  ','otvet y=',-b/2*a:0:0,'+',abs(sqrt(abs(d))/2*a):0:0,'i')

     end;
       IF D=0 THEN
        BEGIN
          X:=(-B)/(2*A);
          WRITELN ('OTVET X=',X:2:2,'');
        END;
     READLN;
        END.

что значит halt X:2:2(что значит первая двойка а что вторая??) и последний вопрос
по этой же программе

  writeln('otvet x=',-b/2*a:0:0,'+',sqrt(abs(d))/2*a:0:0,'i',
        '  ','otvet y=',-b/2*a:0:0,'-',sqrt(abs(d))/2*a:0:0,'i')

что значат НУЛИ??
пожалуйста..подскажите!!

М

Тебе не кажется, что требование ставить тэги в каком-то смысле разумно?.. Lapp

[Archon]

1. Например inc(x); - увеличивает x на единицу.
2. Halt - завершения выполнения программы, аргумент - значение, возвращаемое программой системе (обычно код ошибки)
3. Запись числа по типу <переменная>:X:Y - это форматированный вывод, где X - число знаков, которые отводятся под число, Y - число знаков после запятой (для вещественных чисел).
4. Первый 0 значит, что под число будет отведено столько знаков, сколько в нём разрядов, второй - то, что выведена будет только целая часть.

PS Поставь теги