Ir para o conteúdo
tiga

programa temperatura

Mensagens Recomendadas

tiga    0
tiga
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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
TheDark    0
TheDark

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...

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
micaelrs    0
micaelrs

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.	

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
thoga31    611
thoga31

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

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade