Escreva aqui a sua pergunta!Urgente! alguem me explica como este programa funciona?

Program anda;
uses crt;
var x,f,y:integer;
begin

f:=0;
x:=40;
y:=5;

repeat

delay(100);
clrscr;
gotoxy(1,1);
writeln(x,',',y);

if x=1 then f:=+1;
if x=40 then f:=-1;

x:=x+f;

gotoxy(x,y);
writeln('x');

Until x=50;
end.

1

Respostas

2013-11-16T21:07:38-02:00
If x=1 then f:=+1;
if x=40 then f:=-1;

Se x for igual a 1 ele adiciona o valor 1 na variável f.
Se x for igual a 40 ele retira o valor 1 da variável f.
sim isso ja percebi mas depois quando volta a repetir o x vai valer 39 mas mesmo assim a condiçao é executada, e nao compreendo porque