Faça um algoritmo (pseudocódigo) que leia dez números inteiros e, em seguida, mostre quantos são positivos.
De preferencia mande um print do algoritmo no programa.
Soluções para a tarefa
Respondido por
1
Olá.
Um pseudocódigo consiste em uma forma de escrever um algoritmo, sem necessitar de conhecer muito da sintaxe de linguagens de programação. Para resolver essa questão, usarei o "Pascal".
Segue o código:
----------
//fpc 3.0.0
program brainlyquestion;
var a, b, c, d, e, f, g, h, i, j : integer;
var contador : integer;
begin Writeln ('Digite os números');
read(a); read(b); read(c); read(d); read(e); read(f); read(g); read(h); read(i); read(j); contador:= 0;
if (a > 0) then
begin
contador:= contador + 1;
end;
if (b > 0) then
begin
contador:= contador + 1;
end;
if (c > 0) then
begin
contador:= contador + 1;
end;
if (d > 0) then
begin
contador:= contador + 1;
end;
if (e > 0) then
begin
contador:= contador + 1;
end;
if (f > 0) then
begin
contador:= contador + 1;
end;
if (g > 0) then
begin
contador:= contador + 1;
end;
if (i > 0) then
begin
contador:= contador + 1;
end;
if (j > 0) then
begin
contador:= contador + 1;
end;
Writeln ('A quantidade de valores inteiros positivos, maiores que zero, é igual a:', contador);
end.
----------
Esse programa lê 10 números que devem ser inseridos. Após isso, ele vai analisar se esses números são maiores que 0 (todo número maior que zero é positivo) e contar quantos são .
Obs.: algoritmo é o nome dado ao conjunto de instruções do tipo "passo a passo" para se fazer algo. No caso, o algoritmos está demonstrado acima.
Um pseudocódigo consiste em uma forma de escrever um algoritmo, sem necessitar de conhecer muito da sintaxe de linguagens de programação. Para resolver essa questão, usarei o "Pascal".
Segue o código:
----------
//fpc 3.0.0
program brainlyquestion;
var a, b, c, d, e, f, g, h, i, j : integer;
var contador : integer;
begin Writeln ('Digite os números');
read(a); read(b); read(c); read(d); read(e); read(f); read(g); read(h); read(i); read(j); contador:= 0;
if (a > 0) then
begin
contador:= contador + 1;
end;
if (b > 0) then
begin
contador:= contador + 1;
end;
if (c > 0) then
begin
contador:= contador + 1;
end;
if (d > 0) then
begin
contador:= contador + 1;
end;
if (e > 0) then
begin
contador:= contador + 1;
end;
if (f > 0) then
begin
contador:= contador + 1;
end;
if (g > 0) then
begin
contador:= contador + 1;
end;
if (i > 0) then
begin
contador:= contador + 1;
end;
if (j > 0) then
begin
contador:= contador + 1;
end;
Writeln ('A quantidade de valores inteiros positivos, maiores que zero, é igual a:', contador);
end.
----------
Esse programa lê 10 números que devem ser inseridos. Após isso, ele vai analisar se esses números são maiores que 0 (todo número maior que zero é positivo) e contar quantos são .
Obs.: algoritmo é o nome dado ao conjunto de instruções do tipo "passo a passo" para se fazer algo. No caso, o algoritmos está demonstrado acima.
Quaisquer dúvidas, deixe nos comentários.
Bons estudos
Respondido por
1
Bom dia!
Esse código pode ser escrito em apenas um loop, onde em cada iteração lemos um número e verificamos se ele é positivo. Caso seja positivo, incrementamos um contador em +1. É importante lembrar de iniciar o contador com o valor 0 antes de entrar no loop. Segue o pseudocódigo abaixo.
INÍCIO
VARIÁVEIS
CONT, NUM: INTEIRO;
CONT ← 0;
PARA I DE 1 ATÉ 10 FAÇA
ESCREVA: "Digite um número inteiro: ";
LEIA NUM;
SE NUM > 0 ENTÃO
CONT ← CONT + 1;
FIM SE;
FIM PARA;
ESCREVA: "Você digitou ", CONT, " números inteiros.";
FIM
Espero ter ajudado!
Esse código pode ser escrito em apenas um loop, onde em cada iteração lemos um número e verificamos se ele é positivo. Caso seja positivo, incrementamos um contador em +1. É importante lembrar de iniciar o contador com o valor 0 antes de entrar no loop. Segue o pseudocódigo abaixo.
INÍCIO
VARIÁVEIS
CONT, NUM: INTEIRO;
CONT ← 0;
PARA I DE 1 ATÉ 10 FAÇA
ESCREVA: "Digite um número inteiro: ";
LEIA NUM;
SE NUM > 0 ENTÃO
CONT ← CONT + 1;
FIM SE;
FIM PARA;
ESCREVA: "Você digitou ", CONT, " números inteiros.";
FIM
Espero ter ajudado!
Perguntas interessantes