7
Leia um numero e calcule o seu fatorial. Algoritmo Fatorial; Declare Var fat, n, i :inteiro; Início escreva (‘Digite um número para calcular seu fatorial’); leia (n); fat1; para i1 até n faça fatfat*i; fimpara; escreva (‘O fatorial de ’ , n , ‘ é ’ , fat); Fim. Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150 (inclusive). 1. Algoritmo; Declare Var i, c :inteiro; Início c0; para i1 até 80 faça escreva (‘Digite um número ’); leia (n); se n >=10 e n<=150 então c←c+1; fimse; fimpara; escreva (‘Estão no intervalo de 10 a 150 ’ , c , ‘ números’ ); Fim.

Lista de exercícios resolvidos

Embed Size (px)

Citation preview

Page 1: Lista de exercícios resolvidos

Leia um numero e calcule o seu fatorial.

Algoritmo Fatorial; Declare Var fat, n, i :inteiro; Início escreva (‘Digite um número para calcular seu fatorial’); leia (n); fat←1; para i←1 até n faça fat←fat*i; fimpara; escreva (‘O fatorial de ’ , n , ‘ é ’ , fat); Fim.

Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150 (inclusive).

1. Algoritmo; Declare Var i, c :inteiro; Início c←0; para i←1 até 80 faça escreva (‘Digite um número ’); leia (n); se n >=10 e n<=150 então c←c+1; fimse; fimpara; escreva (‘Estão no intervalo de 10 a 150 ’ , c , ‘ números’ ); Fim.

Page 2: Lista de exercícios resolvidos

Faça um algoritmo que receba a idade de 75 pessoas e mostre mensagem informando “maior de idade” e “menor de idade” para cada pessoa. Considere a idade a partir de 18 anos como maior de idade.

2. Algoritmo; Declare Var i, idade :inteiro; Início para i←1 até 75 faça escreva (‘Digite a idade ’); leia (idade); se n >=18 então escreva (‘Maior de idade’ ) senão escreva (‘Menor de idade’ ); fimse; fimpara; Fim.

Escrever um algoritmo que leia o nome e o sexo de 56 pessoas e informe o nome e se ela é homem ou mulher. No final informe total de homens e de mulheres.

3. Algoritmo; Declare Var i, ch, cm :inteiro; nome, sexo :string; Início ch←0; cm←0;

para i←1 até 56 faça escreva (‘Digite o nome: ’); leia (nome); escreva (‘Digite o sexo: ’); leia (sexo); se sexo =”M” então ch←ch+1 senão cm←cm+1; fimse; fimpara; escreva (‘Das 56 pessoas ’ , ch , ‘são homens’); escreva (‘Das 56 pessoas ’ , cm , ‘são mulheres’); Fim.

Page 3: Lista de exercícios resolvidos

Faça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos. Mostre como resultado se houve lucro, prejuízo ou empate para cada produto. Informe media de preço de custo e do preço de venda

4. Algoritmo; Declare Var pcusto, pvenda, lucro :real;

i :inteiro; nomeproduto :string; Início

para i←1 até 40 faça escreva (‘Digite o nome do produto: ’); leia (nomeproduto); escreva (‘Digite o preço de custo: ’); leia (pcusto); escreva (‘Digite o preço de venda: ’); leia (pvenda); se pvenda >pcusto então escreva (‘deu lucro ’) senão se pvenda = pcusto então escreva (‘empate, nem lucro, nem prejuízo ’) senão escreva (‘prejuízo ’); fimse;

fimse; fimpara; Fim.

Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em ordem crescente.

5. Algoritmo; Declare Var i :inteiro; Início

para i←1 até 10 faça escreva (i); fimpara; Fim.

Page 4: Lista de exercícios resolvidos

Escreva um algoritmo para imprimir os números de 1 (inclusive) a 10 (inclusive) em ordem decrescente.

6. Algoritmo; Declare Var i,c :inteiro; Início

c←10; para i←1 até 10 faça

escreva (c); c←c-1;

fimpara; Fim.

Escreva um algoritmo para imprimir os 10 primeiros números inteiros maiores que 100.

7. Algoritmo; Declare Var i :inteiro; Início

para i←101 até 110 faça escreva (i); fimpara; Fim.

Page 5: Lista de exercícios resolvidos

Ler um valor N e imprimir todos os valores inteiros entre 1 (inclusive) e N (inclusive). Considere que o N será sempre maior que ZERO.

8. Algoritmo; Declare Var i, n :inteiro; Início escreva (‘Digite um número maior que zero’); leia (n); para i←1 até n faça escreva (i ); fimpara; Fim.

Modifique o exercício anterior para aceitar somente valores maiores que 0 para N. Caso o valor informado (para N) não seja maior que 0, deverá ser lido um novo valor para N.

9. Algoritmo; Declare Var i, n, parada :inteiro; Início escreva (‘Digite um número maior que zero’); leia (n);

se n>0 então para i←1 até n faça escreva (i ); fimpara;

fimse;

Fim.

Escreva um algoritmo que calcule e imprima a tabuada do 8 (1 a 10).

10. Algoritmo; Declare Var i,res :inteiro; Início para i←1 até 10 faça res←i*8; escreva (i , ‘ x ’, 8 , ‘ = ’, res ); fimpara; Fim.

Page 6: Lista de exercícios resolvidos

Ler um valor inteiro (aceitar somente valores entre 1 e 10) e escrever a tabuada de 1 a 10 do valor lido.

11. Algoritmo; Declare Var i,res :inteiro; Início escreva (‘Digite um número maior que zero’); leia (n); se n>=1 e n<=10 então início

para i←1 até 10 faça res←i*n; escreva (i , ‘ x ’, n , ‘ = ’, res );

fimpara; fim; fimse; Fim. Seja o seguinte algoritmo:

12. Algoritmo ABC; Declare Var x, y, z : inteiro; início ler (x) ; ler (y); z ← (x*y) + 5 ; se z <= 0

então escreva (‘A’ ) senão se z <= 100 então escreva (‘B’ ) senão escreva (‘C’ ); fim_se;

fim_se; fim.

Page 7: Lista de exercícios resolvidos

Faça uma simulação (ou teste de mesa) que complete o quadro a seguir para os seguintes valores:

Variáveis X Y Z Resposta 3 2 11 B

150 3 455 C 7 -1 -2 A -2 5 -5 A 50 3 155 C