conversão entre sistemas numéricos em portugol

Mais detalhes...

Para responder essa pergunta devemos colocar em prática nosso conhecimento sobre Algoritmo e Estrutura de Dados.

Algoritmo "Conversor de Unidades"

A,B,C:real

OP:inteiro

Inicio

⁄⁄ Seção de Comandos

escreval("_____CONVERSOR DE UNIDADES_____")

escreval(" Opções")

escreval(" 1-> Horas ⁄ Minutos")

escreval(" 2-> Milhas ⁄ Quilômetros")

escreval(" 3-> M⁄S ⁄ Km⁄H")

escreval(" 4-> Fahrenheit ⁄ Celcius")

escreval(" 5-> Libras ⁄ Quilogramas")

escreval(" 0-> Menu inverso")

escreval("_______________________________")

escreval("Digite sua opção:")

leia(OP)

limpatela

se (OP=0)entao

escreval("_____CONVERSOR DE UNIDADES_____")

escreval(" Opções")

escreval(" 6-> Minutos ⁄ Segundos")

escreval(" 7-> Quilômetros ⁄ Milhas")

escreval(" 8-> Km⁄H ⁄ M⁄S")

escreval(" 9-> Celcius ⁄ Fahrenheit")

escreval(" 10-> Quilogramas ⁄ Libras")

escreval("_______________________________")

escreval("Digite sua opção:")

leia(OP)

limpatela

fimse

se (OP=1)entao

escreval(" 1-> Horas ⁄ Minutos")

escreval("_________________________")

escreval("Digite o número de horas:")

leia(B)

A<-B*60

escreval(B," Horas =",A," Minutos")

fimse

se (OP=2)entao

escreval(" 2-> Milhas ⁄ Quilômetros")

escreval("_________________")

escreval("Digite as milhas:")

leia(B)

A<-B*1.60

escreval(B," Milhas =",A," Quilômetros")

fimse

se (OP=3)entao

escreval(" 3-> M⁄S ⁄ Km⁄H")

escreval("__________________________")

escreval("Digite a velocidade em M⁄S:")

leia(B)

A<-B*3.6

escreval(B," M⁄S =",A," Km⁄H")

fimse

se (OP=4)entao

escreval(" 4-> Fahrenheit ⁄ Celcius")

escreval("__________________________________")

escreval("Digite a temperatura em Fahrenheit:")

leia(B)

A<-(B-32)⁄1.8

escreval(B,"ºF =",A,"ºC")

fimse

se (OP=5)entao

escreval(" 5-> Libras ⁄ Quilogramas")

escreval("_______________________")

escreval("Digite o peso em Libras:")

leia(B)

A<-B*0.4536

escreval(B,"lb =",A,"kg")

fimse

se (OP=6)entao

escreval(" 6-> Minutos ⁄ Segundos")

escreval("_________________________")

escreval("Digite o número de minutos:")

leia(B)

A<-B*60

escreval(B," Minutos =",A," Segundos")

fimse

se (OP=7)entao

escreval(" 7-> Quilômetros ⁄ Milhas")

escreval("_________________")

escreval("Digite os quilômetros:")

leia(B)

A<-B⁄1.60

escreval(B," Quilômetros =",A," Milhas")

fimse

se (OP=8)entao

escreval(" 8-> Km⁄H ⁄ M⁄S")

escreval("__________________________")

escreval("Digite a velocidade em Km⁄H:")

leia(B)

A<-B⁄3.6

escreval(B," Km⁄H =",A," M⁄S")

fimse

se (OP=9)entao

escreval(" 9-> Celcius ⁄ Fahrenheit")

escreval("__________________________________")

escreval("Digite a temperatura em Celcius:")

leia(B)

A<-(B*1.8)+32

escreval(B,"ºC =",A,"ºF")

fimse

se (OP=10)entao

escreval(" 10-> Quilogramas ⁄ Libras")

escreval("_______________________")

escreval("Digite o peso em Quilogramas:")

leia(B)

A<-B⁄0.4536

escreval(B,"kg =",A,"lb")

fimse

se (OP<0)entao

escreval("OPÇÃO INVÁLIDA")

fimse

se (OP>10)entao

escreval ("OPÇÃO INVÁLIDA")

fimse

Fimalgoritmo

Portanto, o algoritmo em questão faz a conversando de unidades, como não foi especificado que tipo de unidades seria, foi realizado a conversão de algumas unidades de medição básicas, como temperatura, distância, velocidade, tempo e peso.

Para responder essa pergunta devemos colocar em prática nosso conhecimento sobre Algoritmo e Estrutura de Dados.

Algoritmo "Conversor de Unidades"

A,B,C:real

OP:inteiro

Inicio

// Seção de Comandos

escreval("_____CONVERSOR DE UNIDADES_____")

escreval(" Opções")

escreval(" 1-> Horas / Minutos")

escreval(" 2-> Milhas / Quilômetros")

escreval(" 3-> M/S / Km/H")

escreval(" 4-> Fahrenheit / Celcius")

escreval(" 5-> Libras / Quilogramas")

escreval(" 0-> Menu inverso")

escreval("_______________________________")

escreval("Digite sua opção:")

leia(OP)

limpatela

se (OP=0)entao

escreval("_____CONVERSOR DE UNIDADES_____")

escreval(" Opções")

escreval(" 6-> Minutos / Segundos")

escreval(" 7-> Quilômetros / Milhas")

escreval(" 8-> Km/H / M/S")

escreval(" 9-> Celcius / Fahrenheit")

escreval(" 10-> Quilogramas / Libras")

escreval("_______________________________")

escreval("Digite sua opção:")

leia(OP)

limpatela

fimse

se (OP=1)entao

escreval(" 1-> Horas / Minutos")

escreval("_________________________")

escreval("Digite o número de horas:")

leia(B)

A<-B*60

escreval(B," Horas =",A," Minutos")

fimse

se (OP=2)entao

escreval(" 2-> Milhas / Quilômetros")

escreval("_________________")

escreval("Digite as milhas:")

leia(B)

A<-B*1.60

escreval(B," Milhas =",A," Quilômetros")

fimse

se (OP=3)entao

escreval(" 3-> M/S / Km/H")

escreval("__________________________")

escreval("Digite a velocidade em M/S:")

leia(B)

A<-B*3.6

escreval(B," M/S =",A," Km/H")

fimse

se (OP=4)entao

escreval(" 4-> Fahrenheit / Celcius")

escreval("__________________________________")

escreval("Digite a temperatura em Fahrenheit:")

leia(B)

A<-(B-32)/1.8

escreval(B,"ºF =",A,"ºC")

fimse

se (OP=5)entao

escreval(" 5-> Libras / Quilogramas")

escreval("_______________________")

escreval("Digite o peso em Libras:")

leia(B)

A<-B*0.4536

escreval(B,"lb =",A,"kg")

fimse

se (OP=6)entao

escreval(" 6-> Minutos / Segundos")

escreval("_________________________")

escreval("Digite o número de minutos:")

leia(B)

A<-B*60

escreval(B," Minutos =",A," Segundos")

fimse

se (OP=7)entao

escreval(" 7-> Quilômetros / Milhas")

escreval("_________________")

escreval("Digite os quilômetros:")

leia(B)

A<-B/1.60

escreval(B," Quilômetros =",A," Milhas")

fimse

se (OP=8)entao

escreval(" 8-> Km/H / M/S")

escreval("__________________________")

escreval("Digite a velocidade em Km/H:")

leia(B)

A<-B/3.6

escreval(B," Km/H =",A," M/S")

fimse

se (OP=9)entao

escreval(" 9-> Celcius / Fahrenheit")

escreval("__________________________________")

escreval("Digite a temperatura em Celcius:")

leia(B)

A<-(B*1.8)+32

escreval(B,"ºC =",A,"ºF")

fimse

se (OP=10)entao

escreval(" 10-> Quilogramas / Libras")

escreval("_______________________")

escreval("Digite o peso em Quilogramas:")

leia(B)

A<-B/0.4536

escreval(B,"kg =",A,"lb")

fimse

se (OP<0)entao

escreval("OPÇÃO INVÁLIDA")

fimse

se (OP>10)entao

escreval ("OPÇÃO INVÁLIDA")

fimse

Fimalgoritmo

Portanto, o algoritmo em questão faz a conversando de unidades, como não foi especificado que tipo de unidades seria, foi realizado a conversão de algumas unidades de medição básicas, como temperatura, distância, velocidade, tempo e peso.