Pascal

[Merft]

Estou montando uma calculadora em Pascal... mas se o usuário digitar um letra o programa da "pau" pela variavel ser do tipo "integer"... tenho como adicionar uma condição que a calculadora negue a entrada de letras ???

Valeu !  

Diego

[Edy Junior]

x, mensagem: integer;

{$I-} desliga diretivas de verificação ou qualquer coisa similar

read (x);

{$I+} liga de novo;

mensagem:=IOResult; {Aqui, você pode ver se deu erro ou não. Se o retorno é 0 (Zero), não há erro, mas não é necessário}

Assim, caso o IOResult der <> zero, manda ler de novo.

{$I-} read(x); {$I+}

while IOResult<>0 do

begin

{$I-} read(x); {$I+}

end;

Ou algo parecido!

[DanielKO]

E que tal simplesmente ler uma string e depois convertê-la para um inteiro?

temp: string;
x, erro: integer;

repeat
    readln(temp);
    Val(temp, x, erro);
until erro<>0;

[Visitante]

Exite uma forma mais fácil mas não me lembro a sintaxe agora.

Pesquise um pouco sobre conjuntos em pascal, você simplesmente define um conjunto tipo

 a = set[0 .. 9](esta sintaxe não é assim, estou só chutando)

e depois verifica

read(x)

for i = 0 to length(x)

 if x not in a then

   erro !!!

Sacou?

[Edy Junior]

Amigo Nosferatu, acho que você não entendeu. Se você ler x (que é do tipo integer) como um char, vai dar pau, aí, nem na verificação do grupo de pascal vai funcionar, por que vai abortar antes.

Daniel, de qualquer jeito tu vai ter que configurar se vai ler ou não a variável, por que se eu defini-la como string, e depois converte-la, caso eu leia "a", ele tranforma pra 65, e o bjetivo é não aceitar letras. Assim, ele aceita as letras e transforma. Acredito que a maneira das interrupções seja mais viável.

{

Editei esta mensagem porque não tinha visto seu exemplo Daniel. Equivoquei-me. Acredito que ambos irão funcionar! Ok!

}