Jump to content

Estou com um problema de logica (Resolvido).


Kriptosgeek

Recommended Posts

Boas!

Eu estou com um problema ao usar o ciclo While.

Eis um exemplo que eu testei em Javascript e em pascal e que desconheço este erro:

program teste;
uses wincrt;
var a:Integer;
Begin
a:=0;
While (a<50) Do
Begin
a:=a+5;
Write (' ',a);
end;
Write (a);
end.

Resultado deste programa na tela:

5 10 15 20 25 30 35 40 45 5050

Reparem que o 50 so deveria aparecer uma vez e aparece duas vezes e na segunda não foi respeitado o espaço.

A minha questão é: Porque que isto acontece? O 50 foi repetido e ainda mais o espaço não apareceu! Porque?

Melhor browser game do Mundo!---> Travian Regista-te!

Link to comment
Share on other sites

lol...tu pedes duas vezes para escrever o 50 LOL.... tipo..

program teste;
uses wincrt;
var a:Integer;
Begin
a:=0;
While (a<50) Do
Begin
a:=a+5;
Write (' ',a);
end;
Readln;
end.

tenta assim...

Não peças ajuda por PM! A tua dúvida vai ter menos atenção do que se for postada na secção correcta do fórum!Queres estar na moda? Utiliza a pesquisa e evita criar um tópico desnecessário.

Link to comment
Share on other sites

program teste;
uses wincrt;
var a:Integer;
Begin
a:=0;
While (a<50) Do
Begin
a:=a+5;
Write (' ',a);
end;
Write (a);
end.

Resultado deste programa na tela:

5 10 15 20 25 30 35 40 45 5050

Já está esclarecido a tua dúvida, mas já agora deixo aqui uma nota:

Não deves fazer isto por esta ordem:

While (a<50) Do
Begin
a:=a+5;
Write (' ',a);
end;

Mas sim nesta:

While (a<50) Do
Begin
Write (' ',a);
a:=a+5;
end;

O incremento deve aparecer no fim do ciclo while, porque como estás a fazer é:

Testa se a é menor de 50

Depois incrementas 5 valores

Depois fazes o write

Obviamente que quando fazes o write, a variável pode ou não ser menor do que 50!!

Cumpr. bk@ero  🙂

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.