Ajuda no Pascal

[Rafaell]

Bem... preciso de ajuda para fazer essa questão no Pascal em (CASO SELECIONE/SELECT..Case)

Elabore um programa em pascal que dada a idade de um nadador classifique-o em uma das seguintes categorias:

Infantil A=5 a 7 anos

Infantil B=8 a 111 anos

Juvenil A= 12 a 13 anos

JUvenil B=14 a 17 anos

Adultos= maiores de 18 anos

Obrigado

[Maicon_iniciante]

Eu tive que fazer algo parecido.

Você pode usar o case é mais ou menos assim.

program listaCategoria;
var
 idade:integer;
begin
 write('Digite a idade:');
 read(idade);
 case idade of
 5,6,7 :begin
            write('Infantil(A)');
          end;
 8,9,10,11:begin
     write('Infantil(B)')
    end;
end.

Mais ou menos assim.

Se isso te ajudou beleza se não ajudei fiz o que pude.

Editado Dezembro 3, 2007 por Maicon_iniciante

[quitZAUMMM]

+ ow - assim em portugol:

leia idade;
escolha idade
caso (idade = 5 ou idade <= 7) : categoria<-'Infantil A'
caso (idade = 8 ou idade <= 11) : categoria<-'Infantil B'
caso (idade = 12 ou idade <= 13) : categoria<-'Juvenil A'
caso (idade = 14 ou idade <= 17) : categoria<-'Juvenil B'
senão : categoria<-'Adultos'
fim_escolha

escreva("sua categoria é" + categoria);

[raphael_suporte]

na verdade, você tem que declarar a variável que vai comparar você tem que declarar como "char"

program listaCategoria;
var
idade:char;

begin
write('Digite a idade:');
read(idade);
case idade of
begin

    5,6,7 :     write('Infantil_A');
    8,9,10,11 : write('Infantil_B');
    12,13 : write('Juvenil_A');
     14,15,16,17 : write('Juvenil_B')
  else
    write ('Adulto');

 end;
end.