Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Augusto G rocha

Erro no comando repeat /until

Recommended Posts

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.

 

Compartilhar este post


Link para o post
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

Editado por Augusto G rocha

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário






Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×