pascal, qual é o erro?

[cristiang149]

sou iniciante, ajuda ai.

é um programa para adivinhar a palavra, mas quando adivinha a palavra da que esta errado, e não da certo.

ta ai o codigo:

program forca;

uses wincrt;

var a, b :char;
var cont :integer;

begin
 cont:=0;
 writeln ('tente adivinhar a palavra');
 writeln ('a palavra tem 6 letras, e você tem o direito de tentar adivinhar 5 letras:');
 repeat
 writeln ('digite uma letra:');
 readln (a);
 if a='g'
  then
   writeln ('é a primeira letra da palavra');
 if a='r'
  then
   writeln ('é a segunda letra da palavra');
 if a='e'
  then
   writeln ('é a terceira letra da palavra');
 if a='m'
  then
   writeln ('é a quarta letra da palavra');
 if a='i'
  then
   writeln ('é a quarta letra da palavra');
 if a='o'
  then
   writeln ('é a quinta e ultima letra da palavra');
 if (a<>'i')and(a<>'g')and(a<>'r')and(a<>'e')and(a<>'m')and(a<>'o')
  then
   writeln ('essa letra não tem na palavra');
 cont:=cont+1
 until (cont=5);
 writeln ('digite a palavra:');
 readln (;
 if b='gremio'
  then
   writeln ('acertou');
 if b<>'gremio'
  then
   writeln ('errou');
end.

[andre_mprs]

Amigo de uma lida neste tópico aqui.

http://forum.clubedohardware.com.br/tags-code-como/709848

Aprenda a usar as tags code!

Abraço

[geloh]

sou iniciante, ajuda ai.

é um programa para adivinhar a palavra, mas quando adivinha a palavra da que esta errado, e não da certo.

end.

var b:char;

if b<>'gremio'

Não faz sentido comparar um único caracter(char) com uma string;

Declare b como string;

if (a<>'i')and(a<>'g')and(a<>'r')and(a<>'e')and(a<>'m ')and(a<>'o')

Já viu conjuntos?

Que tal tentar isso?

if not(a in (['g','r','e','m','i','o'])) then
begin
end;

[cristiang149]

valeu ai geloh.

[Mog.Lucas]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.