Fazer um programa que solicite um número ao usuário, após mostre todos os números ímpares existentes entre 0 e o número informado e a quantidade total de números ímpares. Para fechar o programa tecle Enter.

Fala galera do Show Delphi! Tudo bem com vocês!
Aqui é a Franciele e hoje vamos a mais um exercício. Ele é muito importante sendo uma base para os iniciantes da Programação. Neste Post desenvolvido na Linguagem Delphi/Pascal vamos solicitar ao usuário um número, fazer um laço de zero até ele, contar e mostrar os números ímpares.

Vocês sabem a importância da utilização de comentários no código?
Eles são importantes para ajudar a você e outro programador a entender o que o código está fazendo. Neste exemplo utilizei três tipos de comentários, para demonstrar que eles existem e que você pode utilizar qualquer um deles.

Vamos ao exercício de laço (loop) do tipo “Para” (for) que irei te mostrar o passo a passo:

Fazer um programa que solicite um número ao usuário, após mostre todos os números ímpares existentes entre 0 e o número informado e a quantidade total de números ímpares. Para fechar o programa tecle Enter.

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
42
43
44
45

program Impar;
 
var
  numero: integer;
  numeroImpar: integer;
  i: integer;
 
begin
 
  // solicitando  um  número  ao  usuário
  Write(Utf8ToAnsi('Informe um número: '));
  ReadLn(numero);
 
  WriteLn('');
 
  numeroImpar := 0;
 
  { Percorrendo no laço entre 0 e o número informado pelo usuário }
  for i := 0 to numero do
  begin
 
    (* Teste para ver se o número for impar *)
    if i mod 2 <> 0 then
    begin
      { Contando os núneros impares }
      numeroImpar := numeroImpar + 1;
 
      { Exibindo os números ímpares }
      WriteLn(Utf8ToAnsi('Número Impar detectado: '), i);
    end;
  end;
 
  WriteLn('');
 
  (* Mostrando o total de números impares *)
  WriteLn(Utf8ToAnsi('O total de números impares entre 0 e '), Numero,
    Utf8ToAnsi(' são: '),
    numeroImpar);
 
  // Solicitando enter para fechar o programa
  WriteLn('');
  WriteLn('Enter para fechar o programa');
  ReadLn;
 
end.

Dúvidas ou sugestões? Deixe nos comentários.

Por hoje é isso pessoal!
Espero que tenham gostado e que possa ter lhe ajudado a agregar mais conhecimento!

Um forte abraço!
E até o próximo Post!