Oi pessoal, tudo bem com vocês?
Vamos a este interessante exercício que envolve laços, acumuladores e umas funções matemáticas interessantes.
Entendendo melhor a pergunta.
Faça um programa que soma X números gerados aleatoriamente.
O intervalo é de 1 a 10.
Sendo que X é informado pelo usuário.
Sem mais delongas, vamos a sugestão de resposta em Delphi, Lazarus, Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 | // testado no lazarus 2.0.4 program project46; uses SysUtils, Math; // <- Unidade que contém as funções matemáticas var QtdNum, vNum, I : Integer; Soma : Integer = 0; begin { Solicitando ao usuário a quantiade de números sorteados } Write(Utf8ToAnsi('Informe a quantidade de números sorteados: ')); ReadLn(QtdNum); WriteLn(''); WriteLn(''); Randomize; //<- responsável por embaralhar as possibilidades. { Fazendo o sorteio da quantidade solicitada } for I := 1 to QtdNum do begin { Sorteando um número entre 1 e 10 } vNum := RandomRange(1, 11); // 11 - não fica incluso WriteLn(Utf8ToAnsi('Número sorteado: '), vNum); { Somando os números sorteados. } Soma := Soma + vNum; end; WriteLn(''); WriteLn(''); Write(Utf8ToAnsi('A soma dos números informados foram: '), Soma); ReadLn; end. |
Então amigos, no código acima fizemos:
– Solicitamos ao usuário a quantidade de números a serem sorteados (gerados)
– Embaralhamos (Randomize)
– Geramos os números entre 1 e 10 [RandomRange(1, 11); // 11 – não fica incluso]
– Efetuamos a soma dos números gerados
– Exibimos a soma para o usuário.
Bem legal este exercício pessoal e espero que ajudem vocês.
Aproveite e assista também o vídeo onde o Giovani explica melhor os comandos usados no exercício.
Dúvidas ou sugestões? Deixe o seu comentário!
Bom códigos, um abraço e até a próxima!
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Você precisa fazer o login para publicar um comentário.
Editado… achei simples … Editado
Em um comentário André acho de pouca relevância o post.
Entendemos sua posição do André, no Show Delphi há diversas dicas para usuários avançados.
Porém entendemos que precisamos ter materiais disponíveis também para aqueles que estão começando, em especial algoritmos, que são o ponto de entrada para quem começa uma faculdade.
Eu pessoalmente não tive um local como o Show Delphi, quando iniciei meus estudos e vejo como poderia ter me ajudado.
Eles também servem para desenvolvermos o raciocino lógico e eu, mesmo sendo programador a mais de 10 anos penso ser importante revisar estes exercícios, pois me ajudam a elaborar soluções criativas.
Progressivamente vamos aumentando a complexidade dos algoritmos, mas primeiro foi necessários colocar os mais básicos para que todos possam aprender.
Sempre que possível também publicaremos dicas avançadas de Delphi, se tiver alguma sugestão de assunto, podes indicar aqui nos comentários.
Obrigado pelo feedback.