Algoritmo

TRABALHO DE ALGORITMO

Passo1

Inicio

inteiro: cotacao[31]

Real: MEDIA,MAIOR,MENOR,SOMA,x;

SOMA=0;

MAIOR=0;

MENOR=0;

Para x de 0 até 30 passo 1 faça

Escreva(“Digite a cotação[x] do dia ”);

Leia cotacao [x];

soma = soma+cotacao[x];

Fimpara;

media = soma/31;

Escreva(“A média durante 1 mês é:”,+media A);

Para x de 0 até 30 passo 1 faça

se cotacao[x] <menor então

menor= cotacao[x];

Fimse;

Fimpara

Escreva(“A menor cotação durante 1 mês foi:” + menor);

Para x de 0 até 30 passo 1 faça

se cotacao[x] > maior então

maior= cotacao[x];

Fimse;

Fimpara;

Escreva(“A maior cotação durante 1 mês foi:”+ maior);

Fim

Etapa 4

Passo 1

Inicio cotacao[4][31], B[4]

Var: [0..3,0..30] de real;

Inteiro: x,y;

Caracter Vetor[0..3];

Real:

MaiorReal, MaiorEuro, MaiorDolar, MaiorLibra, MenorReal, MenorEuro, MenorDolar, MenorLibra, MediaReal, MediaEuro, MediaDolar, MediaLibra, soma1, soma2, soma3,soma4;

B[0](Real;

B[1](Euro;

B[2](Dolar;

B[3](Libra;

MaiorReal (A[0][y]; MenorReal (A[0][y]; MediaReal (A[0][y];

MaiorEuro ( A[1[y]; MenorEuro ( A[1][y]; MediaEuro A[1][y];

MaiorDolar ( A[2][y]; MenorDolar ( A[2][y];

MediaDolar ( A[2][y];

MaiorLibra ( A[3][y]; MenorLibra ( A[3][y]; MediaLibra ( A[3][y];

Para x de 0 ate 3 passo 1 faça

Para y de 0 ate 30 passo 1 faça

Escreva(“A cotação Diária de cada moeda”);

Leia([x][y]);

Fimpara;

Fimpara;

Para y de 0 ate 30 passo1 faça

soma1(soma1+A[0][y];

fimpara;

MediaReal((soma1/31);

Escreva(“A média do Real durante o mês foi:” MediaReal);

Para y de 0 ate 30 passo1 faça

soma2(soma2+ A[1][y];

fimpara;

MediaEuro((soma2/31);

Escreva(“A média do Euro durante o mês foi:” MediaEuro);

Para y de 0 ate 30 passo1 faça

soma3(soma3+ A[2][y];

fimpara;

MediaDolar((soma3/31);

Escreva(“A média do Dolar durante o mês foi:” MediaDolar);

Para y de 0 ate 30 passo1 faça

soma4(soma4+ A[3][y];

fimpara;

MediaLibra((soma4/31);

Escreva(“A média da Libra durante o mês foi:” MediaLibra);

Para y de 0 ate 30 passo1 faça

Se (A[0][y] < MenorReal) entao

MenorReal( A[0][y];

Fimpara;

Escreva(“A menor cotação do Real durante o mês foi:” MenorReal);

Para y de 0 ate 30 passo1 faça

Se(A[1][y] < MenorEuro) então

MenorEuro( A[1][y];

Fimpara;

Escreva(“A menor cotação do Euro durante o mês foi:” MenorEuro);

Para y de 0 ate 30 passo1 faça

Se (A[2][y] < MenorDolar) entao

MenorDolar( A[2][y];

Fimpara;

Escreva(“A menor cotação do Dolar durante o mês foi:” MenorDolar);

Para y de 0 ate 30 passo1 faça

Se (A[3][y] < MenorLibra) entao

MenorLibra( A[3][y];

Fimpara;

Escreva(“A menor cotação do Libra durante o mês foi:” MenorLibra);

Para y de 0 ate 30 passo1 faça

Se (A[0][y] > MaiorReal) entao

MaiorReal( A[0][y];

Fimpara;

Escreva(“A maior cotação do Real durante o mês foi:” MaiorReal);