Тема: Порахувати вирази для десяти значень змінної
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 й уперше в своїй не довгій кар'єрі успішно зациклив програму.