Visualg,Conversor(KB,MB,GB..)

[IagoALG 0]

Eai galera,beleza?

Sou novo no forum e tbem em logica de programação..estou tendo dificuldades para resolver um algoritmo que converte unidade de medida de dados..

 

Exercicio:Elabore um Algoritmo que converta KB<->MB<->GB<->TB.O usuario devera informar a quantidade e a unidade de medida de dados que sera convertido(EX:TB para MB).

 

Tentei varias vezes mais não to conseguindo, o codigo mais certinho acho que foi esse..

 

algoritmo "ALGCONV"


var QC,UD,UC,MB,GB,TB,KB,T,T3,V : real

inicio
   Escreva("Quantidade a ser Convertida:")
   Leia(QC)
   Timer 1000 On
   Timer 0 Off
   Escreval("Escolha a Unidade de Medida de Dados:")
   Escreval("1...............KB")
   Escreval("2...............MB")
   Escreval("3...............GB")
   Escreval("4...............TB")
   Leia(UD)
   KB <- 1024
   MB <- KB/1024
   GB <- MB/1024
   TB <- GB/1024
   Se UD = 1 entao
      T <- KB
   Se UD = 2 entao
      T <- MB
   Se UD = 3 entao
      T <- GB
   Se UD = 4 entao
      T <- TB
   Fimse
   Fimse
   Fimse
   Fimse
   T2 <- T * QC
   Timer 1000 On
   Timer 0 Off
   Escreval("Deseja Converter Para?:")
   Escreval("1...............KB")
   Escreval("2...............MB")
   Escreval("3...............GB")
   Escreval("4...............TB")
   Leia(UC)
   Se UC = 1 entao
      V <- T2
   Se UC = 2 entao
      V <- T2 / 1024
   Se UC = 3 entao
      V <- T2 / (1024^2)
   Se UC = 4 entao
      V <- T2 /(1024^3)
   Fimse
   Fimse
   Fimse
   Fimse
   Escreva("Resultado:",V)
fimalgoritmo

Uma ajuda pls =)

[quitZAUMMM 18]

Esse seu começo ficou bem confuso, veja:

Leia(UD)
   KB <- 1024
   MB <- KB/1024
   GB <- MB/1024
   TB <- GB/1024

beleza kb vai valer 1024, ai mb vai valer 1, gb vai valer 0,0009 e TB 0,0000009

 

tendeu? n faz sentido

 

[]s