Jump to content
Fórum Script Brasil
  • 0

Ajuda no Pascal


Rafaell

Question

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

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

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.

Edited by Maicon_iniciante
Link to comment
Share on other sites

  • 0

+ 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);

Link to comment
Share on other sites

  • 0

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      651.8k
×
×
  • Create New...