Atps Algoritimo

SUMÁRIO

Primeiro Desafio

1. Etapa 1 Página 03

1.1 Passo 1, 2 e 3 Página 03

1.1.1 Resolução Página 03

2. Etapa 2 Página 07

2.1 Passo 1 Página 07

2.1.1 Resolução Página 07

2.2 Passo 2 Página 15

2.1.1 Resolução Página 15

1. Etapa 1

Utilizar Real e Euro, e armazenar cotações diárias referentes a um mês.

1.1. Passo 1, 2 e 3

-Verificar cada entrada do Vetor, somar todas e dividir pelo número de dias contados, resultando na média.

-Verificar cada entrada do Vetor e comparar, com isso será possível encontra o maior e o menos valor digitado.

Teste de Validação

Dias Média Maior Menor

Base1 15,5 30 1

Base2 3,9 6,8 1

Base3 2,45 1 3,9

Resolução do Problema

“Programa conversor com Vetor de Cotação de 30 dias”

inicio

real valBase, conversorUS, conversorCND, conversorE, coversorRS

real cotUSC, cotUST, cotUSP, cotCND, cotE, cotRS

real dolarC, dolarT, dolarP, pCT, pCP

inteiro opcaoBase, opcaoConversao, icontador

real CotMensalEuro[30]

real MaiorCotEuro, MenorCotEuro, MediaCotEuro

MaiorCotEuro <-0

MenorCotEuro <- 1000

icontador <- 1

para icontador de 1 ate 30 passo 1

escrever "Digite a cotação do dia", icontador

ler CotMensalEuro[i]

MediaCotEuro <- MediaCotEuro + CotMensalEuro[i]

se CotMensalEuro[i] > MaiorCotEuro entao

MaiorCotEuro <- CotMensalEuro[i]

senao

se CotMensalEuro[i] < MenorCotEuro entao

MenorCotEuro <- CotMensalEuro[i]

fimse

fimse

proximo

MediaCotEuro <- MediaCotEuro / 30

escrever "Média do Euro", MediaCotEuro

escrever "Maior Cotação do Euro", MaiorCotEuro

escrever "Menor Cotação do Euro", MenorCotEuro

cotUSC <- 1.7

cotUST <- 1.8

cotUSP <- 1.9

cotCND <- 1.6

cotE <- 2.3

cotRS <- 1

escrever "Selecione a moeda Base 1- para U$, 2 - para CND$, 3 - para € e 4 - para R$:"

ler opcaoBase

escrever "Digite o valor Base:"

ler valBase

escrever "Selecione a moeda para Conversão 1- para U$, 2 - para CND$, 3 - para € e 4 - para R$:"

ler opcaoConversao

se opcaoBase = 1 entao

se opcaoConversao = 1 entao

escrever "O Valor convertido para U$ é: " , valBase

dolarC <- valBase

dolarT <- valBase * (cotUSC / cotUST)

dolarP <- valBase * (cotUSC / cotUSP)

pCT <- (cotUSC/cotUST)

pCP <- (cotUSC/cotUSP)

escrever "dolar Comercial:", dolarC

escrever "dolar Turismo:", dolarT

escrever "dolar Paralelo:", dolarP

escrever "% comercial para turismo:", pCT

escrever "% comercial para paralelo:", pCP

senao

se opcaoConversao = 2 entao

conversorCND <- valBase / cotCND

escrever "O Valor convertido para CND é: " , conversorCND

senao

se opcaoConversao = 3 entao,