ActiveDelphi

[jpdms]

Olá sou novo aqui no forum, desculpe se estou postando na area errada.
Eu procurei alguns algoritmos parecidos mais poucos me ajudaram.
Meu problema é o seguinte, o algoritmo que vou postar abaixo esta dando uma mensagem "Constant expression expected" e eu nao sei qual é o problema disso.

var
es, tp, tm: Integer;
begin
Write ('O seu animal é: 1 - Mamifero / 2 - Ave?');
readln (es);
case es of
1: Write ('Seu animal é: 1 - Aquatico / 2 - Terrestre / 3 - Areo?');
readln (tp);
case tp of
1: Writeln ('Seu animal é: 1 - Grande / 2 - Pequeno');
Readln (tm);
case tm of
1: Writeln ('Seu animal é a: Baleia');
2: Writeln ('Seu animal é o: Golfinho');
end;
2: Writeln ('Seu animal é: 1 - Grande / 2 - Pequeno');
Readln (tm);
case tm of
1: Writeln ('Seu animal é a: Elefante');
2: Writeln ('Seu animal é o: Rato');
end;
3: Writeln ('Seu animal é: 1 - Grande / 2 - Pequeno');
Readln (tm);
case tm of
1: Writeln ('Seu animal é a: Morcego');
2: Writeln ('Seu animal é o: Esquilo');
end;
end;

2: Writeln ('Seu animal é: 1 - Aquatico / 2 - Rapina / 3 - Terrestre?');
readln (tp);
case tp of
1: Writeln ('Seu animal é: 1 - Voa / 2 - Nada');
Readln (tm);
case tm of
1: Writeln ('Seu animal é a: Gaivota');
2: Writeln ('Seu animal é o: Pinguim');
end;
2: Writeln ('Seu animal é: 1 - Grande / 2 - Pequeno');
Readln (tm);
case tm of
1: Writeln ('Seu animal é a: Condor');
2: Writeln ('Seu animal é o: Gavião');
end;
3: Writeln ('Seu animal é: 1 - Grande / 2 - Pequeno');
Readln (tm);
case tm of
1: Writeln ('Seu animal é a: Ema');
2: Writeln ('Seu animal é o: Galinha');
end;
end;
readln;



end.


TM - TAMANHO
TP - TIPO
ES - ESPECIE

[strak2012]

quando for usar o case e nas opções do case você for usar mais de um comando amarre-os em um bloco.

tipo:

case es of
1: begin
Write ('Seu animal é: 1 - Aquatico / 2 - Terrestre / 3 - Areo?'); // comando 1
readln (tp); // comando 2
end;
end.


exemplo:

case n of
1:readln(x);
2:readln(y);
3:readln(z);
end;

correto pq cada opção do case só possui apenas um comando

ou

case n of
1:begin
writeln('digite o numero x');
readln(x);
end;
2:begin
writeln('digite o numero y');
readln(y);
end;
3:begin
writeln('digite o numero z');
readln(z);
end;
end;

no caso 2 o uso do begin e end e é necessário para cada opção do case isso pq usei o comando writeln e readln em cada uma deles
_________________
Tudo podemos quando tudo sabemos!

[johnny-walker]

Seja bem vindo ao fórum amigo...


Seu caso é simples, com um case como o Imex supracitou.



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I