Leonel Martins

Agradeço todas as dicas, principalmente esta última das "Leitura sem pressionar ENTER" e "UpCase()". Não tinha qualquer conhecimento sobre isso, até porque, tal como disse, estou a começar e tive apenas 1 aula de introdução a pascal, tudo o resto aprendi sozinho.

O meu código acabou ficando assim: Program AIB_p1 ; //Autor: Leonel Martins.... var x: integer; var y: string; Begin repeat textbackground (lightgray); clrscr; textcolor (lightred); writeln (' ----------------------------------------------------------------'); textcolor (black); writeln (' Bem Vindo ao programa que o vai ajudar a descubrir se um número'); writeln (' é par ou impar de forma rápida e simples '); textcolor (lightred); writeln (' ----------------------------------------------------------------'); writeln; textcolor (blue); delay (400); writeln('Para começar, intruduza um valor:') ; readln(x); writeln; if ((x mod 2)=0) then writeln ('O número ', x ,' é par!') else writeln ('O número ', x , ' é impar!') ; writeln; delay (300); repeat writeln ('Deseja tentar um novo valor? Pressione S-(sim) ou N-(não), seguido de Enter'); readln (y); until (y = 's') or (y = 'n'); until y = ('n') ; writeln; writeln ('Para fechar o prompt, pressionar qualquer tecla'); writeln ('Autor: Leonel Martins - 2016'); readkey; End.

Tentei este exemplo e funcionou certinho, obrigado, apesar de não ser um problema grave, era um problema que me incomodava, até porque o programa era uma espécie de "ficha de trabalho" de uma disciplina do meu curso.

Vou tentar isso. De momento o meu código está assim: Program AIB_p1 ; //Autor: Leonel Martins.... var x: integer; var y: string; Begin repeat writeln('Para começar, intruduza um valor:') ; readln(x); writeln; if ((x mod 2)=0) then writeln ('O número ', x ,' é par!') else writeln ('O número ', x , ' é impar!') ; writeln; delay (300); writeln ('Deseja tentar um novo valor? Pressione S-(sim) ou N-(não), seguido de Enter'); readln (y); until y = ('n') ; writeln; writeln ('Para fechar o prompt, pressionar qualquer tecla'); writeln ('Autor: Leonel Martins - 2016'); readkey; End.

Como assim? poderia explicar melhor (sou novato em pascal)

Boas, eu criei um programa simples para descobrir se um número é par ou impar e, no final eu criei uma variável que guarda a resposta do usuário à pergunta: "deseja tentar novamente? S-(sim) N-(não)", e a condição para fechar o programa em caso de a resposta ser "n". No entanto, em caso de resposta afirmativa, o programa aceita qualquer caractere como "s", ou seja, se eu digitar por exemplo "3", ele recomeça o programa. Alguém sabe como repetir o programa apenas se a resposta "s" for dada?