VisualgMaster

Bem vindo ao fórum visualgmaster, tudo relacionado ao visualg, tire suas dúvidas, resolva seus algoritmos.
 
InícioInício  PortalPortal  FAQFAQ  BuscarBuscar  Registrar-seRegistrar-se  MembrosMembros  GruposGrupos  Conectar-se  

Compartilhe | 
 

 Mostra Numeros perfeitos de 1 ateh 100

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Braga
Novato
Novato


Masculino
Número de Mensagens : 5
Idade : 29
Localização : Itajubá/MG - Lavras/MG
Data de inscrição : 14/04/2009

MensagemAssunto: Mostra Numeros perfeitos de 1 ateh 100   Sab Abr 25, 2009 1:17 am

Fazer um programa que calcule e imprima os números que são perfeitos do subconjunto de inteiros de 0 a 100. Nota:
Número perfeito é aquele cuja soma se seus divisores, exceto ele próprio, é
igual ao número.
Ex: 6 é perfeito por que 1 + 2 + 3 = 6.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Braga
Novato
Novato


Masculino
Número de Mensagens : 5
Idade : 29
Localização : Itajubá/MG - Lavras/MG
Data de inscrição : 14/04/2009

MensagemAssunto: Re: Mostra Numeros perfeitos de 1 ateh 100   Sab Abr 25, 2009 8:43 am

Consegui armazenar os divisiveis, como passo eles pra vetor? Terei que fazer outro algoritmo não?
________________________
algoritmo tentativa


declare divisor, i: inteiro

início
..........para i<=1 até 100 faça
..........início
....................divisor<=i
....................escreva( ' O numero ' , i , ' é divisível por: ' )
....................repete
....................se resto(i, divisor)=0 então
..............................escreva(divisor, ' , ' )
..............................divisor<= divisor - 1
....................até que divisor=0
..........fim _ para

fim.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Braga
Novato
Novato


Masculino
Número de Mensagens : 5
Idade : 29
Localização : Itajubá/MG - Lavras/MG
Data de inscrição : 14/04/2009

MensagemAssunto: Re: Mostra Numeros perfeitos de 1 ateh 100   Sab Abr 25, 2009 9:31 am

O que está errado?
Ajudem por favor.

Obs: Coloquei os pontinhos para ficar endentado, para melhorar a visualização do algoritmo.


program tentativa;
uses crt;
var
....divisor,i,j,soma:integer;
....divisores:array [1..100]of integer;
begin
........j:=0;
........for i:=1 to 100 do
........begin
................divisor:=i;
................ write('O numero ',i,' e divisivel por: ');
................for divisor:=i downto 1 do
................begin
........................if (divisor mod i)=0 then
........................begin
................................j:=j+1;
................................divisores[j]:=divisor;
................................ write(divisores[j],' ');
........................end;
................end;
................ for j:=1 to i do
................begin
.......................soma:=(soma+divisores[j])-i;
.......................if soma=i then
.......................................... write('O numero',i,' e perfeito');
................end;
................writeln;
........end;
........readkey;
end.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Mostra Numeros perfeitos de 1 ateh 100   

Voltar ao Topo Ir em baixo
 
Mostra Numeros perfeitos de 1 ateh 100
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
VisualgMaster :: VisualgMaster :: Pedidos de algoritmos-
Ir para: