Melhorar minha prática.

lock_bcknd disse:

Boas pessoal, meu primeiro tópico é mais como uma curiosidade que ainda não consigo pôr em prática.

Teria como eu colocar algo no final? Para que eu possa voltar e redigitar os códigos sem sair da interface? isso iria abrir um leque de possibilidades. Abraço.

============

Algoritmo "SENHA"

Var

  R1, C1, C2, C3, C4: INTEIRO

  R: CARACTERE



Inicio

  R:="S"

  R1:=1

  ENQUANTO R1>0 FACA

  

    SE R1>1 ENTAO

      ESCREVAL()

      ESCREVAL(R1, "ª RODADA!&quot

    SENAO

      ESCREVAL("BEM VINDO A BIBLIOTECA FAMILIAR!&quot

    FIMSE

    

    ESCREVAL("PRIMEIRO CÓDIGO&quot

    LEIA(C1)

    ESCREVAL("SEGUNDO CÓDIGO&quot

    LEIA(C2)

    ESCREVAL("TERCEIRO CÓDIGO&quot

    LEIA(C3)

    ESCREVAL("QUARTO CÓDIGO&quot

    LEIA(C4)

    SE (C1=1999) E (C2=2005) ENTAO

      ESCREVAL("SUA PRIMEIRA ETAPA FOI CONCLUÍDA&quot

    SENAO

      ESCREVAL("FALHA NA CONFIRMAÇÃO DE SENHA&quot

    FIMSE

    SE (C3=29) E (C4=20) ENTÃO

      ESCREVAL("SUA SEGUNDA ETAPA FOI CONCLUÍDA&quot

    SENAO

      ESCREVAL("FALHA NA CONFIRMAÇÃO DE SENHA&quot

    FIMSE

    

    ESCREVAL()

    ESCREVAL("- RESPONDER NOVAMENTE?  (S/N)&quot

    LEIA(R)

    SE R="S" ENTAO

      R1:= R1+1

    SENAO

      R1:=0

    FIMSE

    

  FIMENQUANTO

  

Fimalgoritmo

============