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. |
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!
-
Franciele Benedetti
-
2.312 views
- 0 comentários
- 12 de maio de 2020
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo