while não funciona [RESOLVIDO]

HERO_JD
(usa Ubuntu)

Enviado em 22/03/2016 - 13:59h

Olá a todos. estou precisando de ajuda em um código em pascal. Uso o linux mint com o geany e o compilador fpc.
O problema é o seguinte. Eu fiz um código simples para o cálculo da média em que o programa pede uma nota e pergunta se vou inserir mais alguma nota se sim, então o programa pede outra nota e assim por diante. Só que quando digito a primeira nota e aperto ENTER, o while finaliza. Alguma idéia do que seja? segue o código:

Program media_de_notas;
uses crt;

var j: integer;
nota, nota1, media:real;
finalizar, nota2, nota3:string;
Begin
finalizar:='i';
j:=0;
nota:=0;
nota3:='';
while(finalizar='i')or(finalizar='I') do
begin
writeln;
writeln(' Cálculo da média de notas !!!');
writeln;
write(' nota: ');
read(nota1);
writeln;
write(' Confirme a nota: ');
read(nota2);
writeln;
j:=j+1;
nota:=nota+nota1;
nota3:= nota3 + nota2 + ', ';
writeln(' (i) Inserir nota');
writeln(' (f) Finalizar e exibir Média');
write(' Opção: ');
read(finalizar); clrscr;
end;
media:=nota/j;
writeln;
writeln(' Cálculo da média de notas !!!');
writeln;
writeln(' Foram digitadas ',j,' notas: ',nota3);
writeln;
writeln(' Média = ',media:2:2);
writeln;
write(' Tecle para sair ');
readkey;
End.

gibroh@hotmail.c
(usa Lubuntu)

Enviado em 22/03/2016 - 14:18h

O While funciona perfeitamente.Você que está errando no codigo.
Note que você atribuiu 'i' para a variável finalizar logo depois de begin do inicio do programa.Dessa forma o while é satisfeito no primeiro ciclo,indo direto para o termino do programa.

HERO_JD
(usa Ubuntu)

Enviado em 22/03/2016 - 14:38h

ta deixa eu ver se entendi sua explicação:
vc diz essa parte...
finalizar:='i';
j:=0;
nota:=0;
nota3:='';
while(finalizar='i')or(finalizar='I') do
begin ...
mas com [finalizar:='i'] e fazendo um [while(finalizar='i')] ele não deveria repetir até eu digitar um comando diferente em
writeln(' (i) Inserir nota');
writeln(' (f) Finalizar e exibir Média');
write(' Opção: ');
read(finalizar);

gibroh@hotmail.c
(usa Lubuntu)

Enviado em 22/03/2016 - 14:46h

Realmente foi um equivoco meu.
Se você atribuiu 'i' ao finalizar o laço deve realmente rodar enquanto finalizar é "i".
Vou copiar seu codigo e debugar aqui

HERO_JD
(usa Ubuntu)

Enviado em 22/03/2016 - 14:52h

mudei o código, agora fiz o finalizar como real
finalizar:=0;
j:=0;
nota:=0;
nota3:='';
while(finalizar=0) do
begin...

e no final

writeln(' [0] Inserir nota');
writeln(' [1] Finalizar e exibir Média');
write(' Opção: ');
read(finalizar);

agora o while funciona mas o programa pula a parte
write(' Confirme a nota: ');
read(nota2);
acho que o problema é com string pois a (nota2) é string
veja como ficou

Program media_de_notas;
uses crt;

var j: integer;
finalizar, nota, nota1, media:real;
nota2, nota3:string;
Begin
finalizar:=0;
j:=0;
nota:=0;
nota3:='';
while(finalizar=0) do
begin
writeln;
writeln(' Cálculo da média de notas !!!');
writeln;
write(' nota: ');
read(nota1);
writeln;
write(' Confirme a nota: ');
read(nota2);
writeln;
j:=j+1;
nota:=nota+nota1;
nota3:= nota3 + nota2 + ', ';
writeln(' [0] Inserir nota');
writeln(' [1] Finalizar e exibir Média');
write(' Opção: ');
read(finalizar);
clrscr;
end;
media:=nota/j;
writeln;
writeln(' Cálculo da média de notas !!!');
writeln;
writeln(' Foram digitadas ',j,' notas: ',nota3);
writeln;
writeln(' Média = ',media:2:2);
writeln;
write(' Tecle para sair ');
readkey;
End.

gibroh@hotmail.c
(usa Lubuntu)

Enviado em 22/03/2016 - 15:12h

Achei o erro:
Quando pede entrada de variavel para "finalizar" então o while deixa de ser "I" saindo do laço.

writeln(' Opção: ');

readln(finalizar);  

Crie mais uma variavel para opção e substitua:

writeln(' Opção: ');

readln(opcao);  

HERO_JD
(usa Ubuntu)

Enviado em 22/03/2016 - 15:21h

problema persiste. acho que deve ser um problema com meu compilador
da uma olhada neste código teste
program teste;

var nome:string;
repetir:integer;
Begin
repetir:=0;

while(repetir=0)do
begin
write('Digite seu nome: ');
read(nome);

write('Seu nome é: ',nome);
writeln;
writeln('digitar outro nome: 0');
writeln('finalizar: 1');
write('opção: ');
read(repetir);
end;
End.
ele pede um nome e quando solicita para digitar outro nome ele passa direto pelo [digite seu nome] e para nas opções de digitar outro nome ou finalizar.

guipsp
(usa Ubuntu)

Enviado em 22/03/2016 - 16:55h

Tente usar o readln. O read parece estar mantendo o buffer do teclado.

HERO_JD
(usa Ubuntu)

Enviado em 04/04/2016 - 18:41h

Realmente é preciso usar readln(). Funcionou!!!
Gostaria de agradecer a ajuda de todos.
realmente guipsp tem que usar assim mesmo.
paulo1205, Muito obrigado pela explicação, não tinha me tocado da questão do buffer. Esse problema do buffer também acontece em C, mas não sabia que ocorria com PASCAL. MUITO OBRIGADO A TODOS GENTE!!!