исправить код по простейщей блок-схеме. паскаль

[Renty]

Имеется простая блок-схема по ней пытаюсь написать программу. Все что пока получилось в архиве вместе с блок-схемой.
Помогите разобраться.

[Valio]

Цикл repeat подойдёт.

http://www.magnus.jr1.ru/?q=node/15

[Renty]

program z1;
var c,x,y:real;
begin
writeln('dannye c');
read(c);
writeln('dannye x');
read(x);
repeat
y:=x*x-1;
If y<0 then c:=c-y
else c:=c+y;
x:=x+1;
until x>-1.5;
writeln('данные C=', c);
writeln('данные X=', x);
writeln('данные Y=', y);
end.

Примерно так ??

[Valio]

Примерно да... но проверьте условие until x>-1.5; мне кажется что надо написать until not (x>-1.5);

Ибо если вы читали ссылку, которую я дал, то там написанно при каком условии идёт выход из цикла, а при каком идёт ещё одна итерация.

Инструкции тела цикла (операторы) выполняются в том случае, если значение логического выражения равно false, в противном случае осуществляется выход из цикла

[Renty]

Valio, если заменяю until x>-1.5; на until not (x>-1.5);
То после ввода значений ничего не происходит

[Valio]

У тебя ктомуже написано x:=x+1; а должно быть (по блоксхеме) x:=x-1;

var c, x, y : Real;

begin
Write('dannye c: '); Readln(c);
Write('dannye x: '); Readln(x);

Repeat
y := x * x - 1;
If y < 0 then c := c - y else c := c + y;
x := x - 1;
Until not (x > -1.5);

writeln('C=', c:2:1);
writeln('X=', x:2:1);
writeln('Y=', y:2:1);
Readln;
end.

Всё работает.. я проверил.