Ir ao conteúdo
  • Cadastre-se

Erro no comando repeat /until


Posts recomendados

Ola,

 

Estou estudando progamação por esse Programa pascalzim, mas por algum motivo o programa Repeat until não roda, ele não esta pedindo a leitura da string Read no final e repete o programa automaticamente. que puder dizer o que eu fiz de errado.

 

escrevi desta forma

 

Program Lista3Exercicio1;

var

N1,N2,N3,N4,aux:integer;
R1: string;


Begin
  
  Writeln('--------------------------------Lista 3 Exercicio 1------------------------------');
repeat
  //comandos

    Write('Digite o primeiro numero: ');
    Read(N1);
    Write('Digite o segundo numero: ');
    Read(N2);
    Write('Digite o terceiro numero: ');
    Read(N3);
    Write('Digite o quarto numero: ');
    Read(N4);
    
    If N1>N2 then
    begin
      aux:=N1;
      N1:=N2 ;
      N2:=aux;
    end;
    
    If N1>N3 then
    begin
      aux:=N1;
      N1:=N3 ;
      N3:=aux;
    end;
    
    If N1>N4 then
    begin
      aux:=N1;
      N1:=N4 ;
      N4:=aux;
    end;
    
    
    If N2>N3 then
    begin
      aux:=N2;
      N2:=N3 ;
      N3:=aux;
    end;
    
    
    If N2>N4 then
    begin
      aux:=N2;
      N2:=N4 ;
      N4:=aux;
    end;
    
    
    If N3>N4 then
    begin
      aux:=N3;
      N3:=N4 ;
      N4:=aux;
    end;
    
    Writeln('');
    WriteLN('Ordem crescente dessa numeração é = ',N1,',',N2,',',N3,',',N4);
    Writeln('');
    WriteLN('Ordem decrescente dessa numeração é = ',N4,',',N3,',',N2,',',N1);
    
     writeln('Digite"Sair"para encerrar o programa');
    Readln(R1);
    readkey;
until ( R1='Sair');
    clrscr;
   
    
    gotoxy(12,5);
    Writeln('Programa Finalizado');
    
    
  
End.

 

Link para o comentário
Compartilhar em outros sites

Valeu cara, arrumei como você  falou e funcionou direito agora.:thumbsup:

 

Dai procurem em um site americano a diferencia e lá dizia que é  o comando Read pode ler variáveis em sequencia do tipo

 

READ(a,b,c) LEIA(a  então, B então C)

 

diferente do READLN que só  pode ler uma variavel por vez 

 

se quiser ver o site ta ai em baixo

 

http://borlandpascal.wikia.com/wiki/READ_and_READLN

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...