Algoritimos

Inicio

//Declaração de Variáveis
Inteiro: opção;
Real: Mr, MD, MDC, ME;
//Dados de Entrada leia: (Mr, MD, MDC, ME, MDconvertida, MDCconvertida, MEconvertida); escreva: (“Escolha a moeda a ser convertida”); escreva:(“Moedas:”); escreva:(“ 1 – Dólar Americano”); escreva: (“2 – Dólar Canadense”); escreva:(“3 – Euro”);
//Processamento
Mr ← 1,00
MDconvertida ← MD /Mr;
MDCconvertida ← MDC/Mr;
MEconvertida ←ME/Mr; leia (opção); escolha opção caso 1: escreva (“Moeda Dólar:”, MDconvertida);//dado de saída caso 2: escreva (“Moeda Dólar Canadense:”,MDCconvertida); caso 3: escreva (“Moeda Euro:”,MEconvertida); caso contrário: escreva (“Inválido”); fimescolha
Fim
ALGORITIMO EM DESCRIÇÃO NARRATIVA E EM PSEUDOCODIGO

algoritmo "Alg_para_conversao_moedas"
// Função : Algoritmo que faz conversão monetaria.
// Autor :
// Data : 28/04/2011

// Seção de Declarações var Moeda,Valor_converter,Cotacao,Valor_convertido:Real // Variáveis de entrada do tipo real.
Nome_Moeda,Controle_saida:Caracter // Variáveis de entrada e saida do tipo caracter. inicio // Seção de Comandos

Enquanto (Controle_saida "S") ou (Controle_saida "s") FACA // Laço para verificar se quer sair do programa ou não.

Escreval("Programa para conversão de moedas")
Escreval

//PEQUENO MENU DE ESCOLHA DE MOEDAS.
Escreval("Menu")
Escreval("1 - Dolar ")
Escreval("2 - Euro ")
Escreval("3 - Dolar Canadense ")
Escreval("Fim menu")
Escreval

// ESCOLHA DA MOEDA.
Escreva("Escolha o número da opção para conversão:")
Leia(Moeda)

Escreval

//EMTRADA DOS DADOS DE COTACAO E VALOR PARA CONVERSÃO.
Escreva("Escreva a cotação atual da moeda:")
Leia(Cotacao)
Escreva("Digite o valor em R$ para conversão:")
Leia(Valor_Converter)

Escreval

//____________________________________________________________

_____
//Inicio bloco condicional, aqui será verificado o tipo de moeda escolhida