Не могу разобратся с постусловием

[ArteMAN]

понимаю что легко, но запутался
вот программа

программа вычисления значений функции y=f(t,x) при одновременном изменении аргумента t в диапазоне [t0 и t2] с шагом дельта t и x в диапазоне [x1 , x2] с шагом дельта x

написал программу

program iw6;
var
x, t, y:real;
i: integer;
// ---- Задаём константы-----
const deltaX = 0.2;
const deltaT = 2;
const a = 1.5;
Begin
x:=-3; //Задаём начальное значение X
t:=7; //Задаём начальное значение Y
for i:=0 to 5 do
Begin
y:=sqr(cos(Power(x,3))) - x/sqrt(sqr(t) + sqr(a));
writeln('y=',y,'; t= ',t,'; x=',x);
x:=x+deltaX;
t:=t+deltaT;
End;
END.


а нужно сделать с постусловием! помогите пожалуйста

[Grag]

Вместо цикла for to do применяй цикл с постусловием repeat...until.

[KOSS.AB]

ваабщето цикл с постусловием пишетьса так:


repaet
оператор 1;
оператор 2;
...
...
until условие

[Жека-старший]

то же яйцо, с ТОЙ же стороны :-D

[ArteMAN]

напишите пожалуйста !!!
просто я запутался в самих операторах (((((

[mifomen]

Сообщение от ArteMAN

for i:=0 to 5 do
Begin
y:=sqr(cos(Power(x,3))) - x/sqrt(sqr(t) + sqr(a));
writeln('y=',y,'; t= ',t,'; x=',x);
x:=x+deltaX;
t:=t+deltaT;
End;

примерно так

i:=0;
repeat
 y:=sqr(cos(Power(x,3))) - x/sqrt(sqr(t) + sqr(a));
              writeln('y=',y,'; t= ',t,'; x=',x);
              x:=x+deltaX;
              t:=t+deltaT;
 inc(i);
until i<=5;

[Don Karleone]

Сообщение от mifomen

примерно так

i:=1;
repeat
 y:=sqr(cos(Power(x,3))) - x/sqrt(sqr(t) + sqr(a));
              writeln('y=',y,'; t= ',t,'; x=',x);
              x:=x+deltaX;
              t:=t+deltaT;
until i<=5;

А кто переменную i в цикле наращивать будет??? И начальным значением должно быть i:=0.

[mifomen]

Сообщение от Don Karleone

А кто переменную i в цикле наращивать будет??? И начальным значением должно быть i:=0.

А самому лень помочь человеку?

Только и можешь что ошибки находить.

[Don Karleone]

я только подкоректировал. А помогать мне ему незачем. Ты сам все написал.