UCAN forum

Primeiro Forum criado por Informáticos Angolanos, destinado à informáticos de todos os níveis, tendo como principal foco o ramo da PROGRAMAÇÃO.Tutoriais, Exposição de dúvidas, Notícias e muito mais...
 
InícioInício  CalendárioCalendário  FAQFAQ  BuscarBuscar  Registrar-seRegistrar-se  Conectar-seConectar-se  

Compartilhe | 
 

 Intervalos

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Josemar Jobs

avatar

Masculino Número de Mensagens : 81
Idade : 28
Localização : Luanda-Angola
Data de inscrição : 05/05/2008

MensagemAssunto: Intervalos   Qui Maio 15, 2008 12:20 am

Fazer um algoritmo/programa em Pascal que lê 20 valores, e conta quantos deles estão em cada um dos intervalos [0, 25], (25, 50], (50, 75], (75, 100],...
bons xtudos,... study
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Giovanny Ritchie

avatar

Masculino Número de Mensagens : 95
Idade : 27
Localização : Luanda, Angola
Data de inscrição : 05/05/2008

MensagemAssunto: Re: Intervalos   Dom Maio 25, 2008 2:02 am

Código:

program contIntervalos;
uses CRT;
var
count1,count2,count3,count4,numero,n,i: integer;
begin
  writeln('Insira a Quantidade de NUmeros');
  readkn(n);
  for i:=1 to n do
  begin
      readln(numero);
      if (numero>=0) and (numero<=25) then
        count1:=count1+1;
      end;
      if (numero>75) and (numero<=100) then
        count4:=count4+1;
      end;
      if (numero>25) and (numero<=50) then
        count2:=count2+1;
      end;
      if (numero>50) and (numero<=75) then
        count3:=count3+1;
      end;
  end;
  write(count1,count2,count3,count4); {Mostra as quantidades de elementos que cada elemento possui}
  readkeys;
end.
Particularmente nao gosto muito de pascal, mas o Saber nao ocupa espaço. Very Happy
Fuiiiiiiiiiiiiiii lol!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Intervalos
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [Resolvido]Consulta entre datas com calendário de seleção

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
UCAN forum :: Programação e Informática Geral :: Desafios-
Ir para: