1 Востаннє редагувалося Matematyk (30.10.2013 00:49:56)

Тема: Порахувати вирази для десяти значень змінної

                        program 1;
var eps, x, y, z, j, S, Poh: real;
    x1, x2, x3, x4, x5, x6, x7, x8, x9, x10: real;
    i, n, a: integer;

begin
     writeln ('vvedit'' chyslo, z tochnist''u do jakoho budemo obchysl''uvaty: 0<eps<1');
     readln (eps);
     writeln ('vvedit'' 10 chysel: -1<x<1');
     readln (x1, x2, x3, х4, х5, х6, х7, х8, х9, х10);
     writeln;
     x := x1;
     if (eps>=1) or (eps<=0) then writeln ('Nepravyl''ne znachennya epsylon')
     else
     if (x>=1) or (x<=-1) then writeln ('Nepravyl''ne znacennya x') else
    begin
          y := (1+6*x+x*x) / ((1-x)*(1-x)*(1-x));
          i := 1;
          j := 1;
          z := i*j;
          S := z;

          While z>=eps do
                         begin i := (i+2);
                               n := i*i;
                               j := j*x;
                               z := n*j;
                               S := S+z;
                         end;

          Poh := (abs(y-S)/y)*100;
          writeln (x:1:3,'   ',S:1:3,'   ',y:1:3,'   ',Poh:1:3,'%');
    end;
     writeln;
     writeln;
     readln;
end.

Перед рядком 34 потрібно зробити присвоєння x:=x2, тоді перекинути на рядок 13, після того зробити аналогічні дії для наступних восьми значень х. Як це зробити?

Простіше кажучи.  Зараз на початку я вводжу одне значення точності (епсилон), десять значень змінної (х) і програма мені видає табличку з одним рядком (див. рядок 32) лише для першого значення х. А треба, щоб видавала аналогічну табличку з десятьма рядками, тобто кожного із значень змінної.


P. S. Спочатку спробував це зробити за допомогою оператора goto й уперше в своїй не довгій кар'єрі успішно зациклив програму.  %)

2

Re: Порахувати вирази для десяти значень змінної

http://uk.wikibooks.org/wiki/Pascal/Базові_масиви

Подякували: Torbins1