trabalho 2 Prog. de linguagem.

Prévia do material em texto

4)ELABORAR UM ALGORITMO DE CONVERSÃO DE MOEDAS CAPAZ DE CONVERTER DE DÓLAR (USS) PARA REAL (R$).
OBS: A COTAÇÃO DO DÓLAR NAÓ PODE SER UM VALOR FIXO.
algoritmo "Alg_para_conversao_moedas"
// Função : Algoritmo que faz conversão monetaria.
// Autor : Tec&Cia
// Data : 10/03/2016
// 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("*****************************************************************")
Escreval("*****************************************************************")
Escreval("***********Programa para conversão de moedas*******************")
Escreval("*********************Versão 1.0********************************")
Escreval("***********************By Tec&Cia******************************")
Escreval("*****************************************************************")
Escreval("*****************************************************************")
Escreval
 //PEQUENO MENU DE ESCOLHA DE MOEDAS.
Escreval("*********Menu******************")
Escreval("1 - Dolar *********************")
Escreval("2 - Outra *********************")
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 para
//que seja realizado o calculo especificado.
//_____________________________________________________________________________
Se Moeda = 1 Entao
Nome_moeda<- "U$$ Dolar"
Valor_convertido <- Valor_converter * Cotacao
FimSe
Se Moeda = 2 Entao
Escreva("Digite o nome da moeda:")
Leia(Nova_moeda)
Valor_convertido <- Valor_converter * Cotacao
FimSe
//_____________________________________________________________________________
// FIM DO BLOCO CONDICIONAL
//_____________________________________________________________________________
//_____________________________________________________________________________
//INICIO DO BLOCO DE IMPRESSÃO DOS DADOS NA TELA,AQUI VAMOS APRESENTAR A MOEDA
//ESCOLHIDA,O VALOR DA COTAÇÃO E O VALOR CONVERTIDO NA MOEDA ESCOLHIDA.
//_____________________________________________________________________________
Escreval("Você converteu R$ para ",Nome_moeda)
Escreval("Cotação = ",Cotacao)
Escreval(" O valor em ",Nome_moeda," é: ",Valor_convertido)
Escreval
Escreval("Obrigado por usar nosso serviço de conversão monetária")
//_____________________________________________________________________________
// FIM DO BLOCO DE IMPRESSÃO
//_____________________________________________________________________________
Escreva("Deseja sair do programa? s ou n: ") // Entrada do valor para validação do laço de saída.
Leia(Controle_saida)
LimpaTela // Método para limpar a tela para um novo cálculo.
FimEnquanto
LimpaTela //Método para limpar a tela para finalizar o programa.
fimalgoritmo
5) ELABORAR UM ALGORITMO QUE DETERMINE SE O NÚMERO INTEIRO É PAR OU ÍMPAR.
algoritmo "Par_impar"
var
n: inteiro
inicio
// Seção de Comandos
leia (n)
se n mod 2 = 0 entao
 escreva ("O valor é par:")
senao
 escreva ("O valor é impar:")
fimse
fimalgoritmo
Você pode utilizar o operador mod para verificar o resto da divisão.
A diferença entre mod e / é:
n<-7 // n possui o valor 7
n/2 = 3 // valor da divisão
n mod 2 = 1 // resto da divisão
Outra coisa você só tem duas possibilidades ou é par ou é impar, você não precisa checar o resultado duas vezes ou seja duas condições, uma basta
se (n mod 2 = 0) par
senao impar.
6) ELABORAR UM ALGORITMO QUE CALCULE A DISTÂNCIA PERCORRIDA CONSIDERANDO UM MOVIMENTO UNIFORME.
algoritmo "algoritmo1"
var
    distancia, x1, x2, y1, y2 : real
inicio
    escreva("Digite o valor do x1: ")
    leia(x1)
    escreva("Digite o valor do x2: ")
    leia(x2)
    escreva("Digite o valor do y1: ")
    leia(y1)
    escreva("Digite o valor do y2: ")
    leia(y2)
    distancia <- raizq((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
    escreval("O valor do distancia: ", distancia:0:6)
fimalgoritmo
7) ELABORAR UM ALGORITMO DE CONVERSÃO DE MOEDAS CAPAZ DE CONVERTER DE REAL (R$) PARA DÓLAR (US$).
OBS: A COTAÇÃO DO DÓLAR NAÓ PODE SER UM VALOR FIXO.
algoritmo "Alg_para_conversao_moedas"
// Função : Algoritmo que faz conversão monetaria.
// Autor : Tec&Cia
// Data : 10/03/2016
// Seção de Declarações 
var
Moeda,Valor_converter,Cotacao,Valor_convertido:Dólar // 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("*****************************************************************")
Escreval("*****************************************************************")
Escreval("***********Programa para conversão de moedas*******************")
Escreval("*********************Versão 1.0********************************")
Escreval("***********************By Tec&Cia******************************")
Escreval("*****************************************************************")
Escreval("*****************************************************************")
Escreval
 //PEQUENO MENU DE ESCOLHA DE MOEDAS.
Escreval("*********Menu******************")
Escreval("1 - Real *********************")
Escreval("2 - Outra *********************")
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 US$ para conversão:")
Leia(Valor_Converter)
Escreval
//_____________________________________________________________________________
//Inicio bloco condicional, aqui será verificado o tipo de moeda escolhida para
//que seja realizado o calculo especificado.
//_____________________________________________________________________________
Se Moeda = 1 Entao
Nome_moeda<- "R$ REAL"
Valor_convertido <- Valor_converter * Cotacao
FimSe
Se Moeda = 2 Entao
Escreva("Digite o nome da moeda:")
Leia(Nova_moeda)
Valor_convertido <- Valor_converter * Cotacao
FimSe
//_____________________________________________________________________________
// FIM DO BLOCO CONDICIONAL
//_____________________________________________________________________________
//_____________________________________________________________________________
//INICIO DO BLOCO DE IMPRESSÃO DOS DADOS NA TELA,AQUI VAMOS APRESENTAR A MOEDA
//ESCOLHIDA,O VALOR DA COTAÇÃO E O VALOR CONVERTIDO NA MOEDA ESCOLHIDA.
//_____________________________________________________________________________
Escreval("Você converteu US$ para ",Nome_moeda)
Escreval("Cotação = ",Cotacao)
Escreval(" O valor em ",Nome_moeda," é: ",Valor_convertido)
Escreval
Escreval("Obrigado por usar nosso serviço de conversão monetária")
//_____________________________________________________________________________
// FIM DO BLOCO DE IMPRESSÃO
//_____________________________________________________________________________
Escreva("Deseja sair do programa?s ou n: ") // Entrada do valor para validação do laço de saída.
Leia(Controle_saida)
LimpaTela // Método para limpar a tela para um novo cálculo.
FimEnquanto
LimpaTela //Método para limpar a tela para finalizar o programa.
fimalgoritmo
8)ELABORAR UM ALGORITMO CAPAZ DE TRATAR REGRA DE TRÊS SIMPLES DIRETA E INVERSAMENTE PROPORCIONAL.
Referências:
<http://forum.imasters.com.br/>. Acesso em 10 de março de 2016.