Question

Podem-me explicar o que faz este programa passo a passo, nao percebo como o programa resulta pois na segunta repetiçao o x nao e 40 mas mesmo assim entra no if .


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.

Answer 1

Em C, os operadores são
== - para igualdade
= - atribuição

Então escreva:
if x==1 then f:=+1;
if x==40 then f:=-1;

se você fizer
if x= 40 then

Irá atribuir 40 para a variável x.
E o if será avaliado da seguinte forma:
se x for diferente de zero será executado.
se x for igual a zero não será executado.