• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

tiga

programa temperatura

5 mensagens neste tópico

Program temperatura;
Uses crt;
Var (t)
Begin
      Write (‘introduza uma temperatura’);
      Readln (t);
      Case t to
      Begin
           0..15:=writeln (‘fria’);
           16..25:= writeln (‘temperada’);
           26..35:= writeln (‘quente’);
           36..1000:= writeln (‘muito quente’);
      End;
      Readln(t);
End.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Porque pedes para o utilizador ler no fim a variável t? Se é para o programa não sair logo, basta colocares só readln;

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Hm... isso funciona? Não estás a declarar o tipo da var t, e o case no meu tempo era case varname of, e não case varname to.

Ou o Pascal mudou, ou então...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O codigo acima está todo cheio de erros. Exprimentem este que já está sem erros.

Program temperatura;
Uses crt;
Var t : integer;
Begin
 Writeln ('Introduza uma temperatura:');
 Readln (t);
 Case t of
 0..15 :writeln ('fria');
	 16..25 : writeln ('temperada');
	 26..35 : writeln ('quente');
	 36..1000 : writeln ('muito quente');
end;
readkey;
End.	

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Para estes programas simples não utilizem o ReadKey ou qualquer coisa relacionada com a unidade crt. É uma unidade adorada por muitos, mas o seu uso deve ser restrito a situações necessárias.

Para este caso, retirem a linha uses crt e substituam o ReadKey por readln.

Anyway, obrigado por teres proposto uma solução que funciona. :)

Editado por thoga31
0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora