UCAN forum
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  EntrarEntrar  

 

 Intervalos

Ir para baixo 
2 participantes
AutorMensagem
Josemar Jobs

Josemar Jobs


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

Intervalos Empty
MensagemAssunto: Intervalos   Intervalos Icon_minitimeQui 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
Ir para o topo Ir para baixo
Giovanny Ritchie

Giovanny Ritchie


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

Intervalos Empty
MensagemAssunto: Re: Intervalos   Intervalos Icon_minitimeDom 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!
Ir para o topo Ir para baixo
 
Intervalos
Ir para o topo 
Página 1 de 1

Permissões neste sub-fórumNão podes responder a tópicos
UCAN forum :: Programação e Informática Geral :: Desafios-
Ir para: