Задача на оператор Repeat.

[Dimak24]

Помогите пожалуйста доделать задачку. Почти сделал, но не могу применить оператор REPEAT! ..SoS!!

Нужно вычислить и вывести на печать в виде таблицы все значения аргумента X (положит., вещественное число) и функции при N=1, 2,...40;
где y=(x+1)^n.

[s.Creator]

Помогите пожалуйста доделать задачку

И где же это все почти сделанное - что доделывать?

[Dimak24]

вот недорешенная задача..
const
LB=1; MB=40; DX=1;
var x, y: real;
n:integer; i, a:integer;
begin
n:=40, write('x?');
readln(x);
writeln(' ');
writeln('x |y');
writeln(' ');
(y:=1;
repeat i:=i+1;
y:=y*(x+1);
until
n<=40; )
writeln('(',x+1,')^', i:2,'=', y:18:2);
end;
writeln(' ');
readln; end.

[Sazary]

Как-то так:

uses crt;
const
LB=1; MB=40; DX=1;
var x, y: real;
n:integer;
i:integer;
begin
clrscr;
n:=40;
write('x? ');
readln(x);
writeln(' ');
writeln(' x | y');
writeln(' '); 
y:=1;
i := 1;
repeat
i:=i+1;
y:=y*(x+1);
writeln('(',(x+1):3:1,')^', i:2,'= ', y:18:2);
until i>=40;
writeln(' ');
readln;
end.