Algoritmo
REF.: Segunda Lista de Exercícios
Programa Exercicio 1;
Var i, idade: Inteiro;
Inicio Para i 1 ate 75 faça Inicio Escreva (´Digite a Idade´); Leia (idade); Se idade >= 18 Então inicio Escreva (´MAIOR DE IDADE´); fim
Senão
Inicio Escreva (´MENOR DE IDADE´); Fim; Fim;
Fim.
Programa Exercicio2;
Var
I : Inteiro; Custo, Venda, MedCusto, MedVenda, AcCusto, AcVenda : real;
Inicio
AcCusto 0;
AcVenda 0;
MedCusto 0;
MedVenda 0; Para i 1 ate 40 faça Inicio Escreva (´Digite o valor de custo do produto´); Leia (Custo);
Escreva (´Digite o valor de venda do produto´); Leia (Venda); Se Custo > Venda Então inicio Escreva (´HOUVE PREJUIZO ´); fim
Senão se Custo < Venda
Então
Inicio Escreva (´HOUVE LUCRO´); Fim
Senão
Inicio Escreva (´HOUVE EMPATE´); Fim;
AcCusto AcCusto+Custo; ACVenda AcVenda+Venda;
Fim;
MedCusto AcCusto/40;
MedVenda AcVenda/40;
Escreva (´A MEDIA DO CUSTO É´, MedCusto);
Escreva (´A MEDIA DA VENDA É´, MedVenda);
Fim.
Programa Exercicio3;
Var
I : Inteiro; Valor, AcNegativo : real;
Inicio
AcNegativo 0;
Para i 1 ate 5 faça Inicio Escreva (´Entre com um valor´); Leia (Valor); Se Valor < 0 Então inicio Escreva (´VALOR NEGATIVO ´); AcNegativo AcNegativo +1; fim Senão
Inicio
Escreva (´VALOR NULO OU POSITIVO´); Fim;
Fim;
Escreva (´QUANTIDADE DE NUMEROS NEGATIVOS DIGITADAS´, AcNegativo);
Fim.
Programa Exercicio4;
Var
Quantidade, AcValor , Valor : Inteiro; Media : real;
Inicio
Quantidade 0;
Valor 0;
AcVarlor 0;
Enquanto ( Valor > 0) faça Inicio