Conversores

Escola, Currículo e Cultura

•

UFFS

3

0

3

0

Mateus Schossler da Silva

20/04/2020

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Algoritmo "Conversor com repita"
Var
 c,k,f,r,centi,metr,km,kh,ms,seg,min,hor,h,kmm,mii: real
 x,y,d,v,t,a: inteiro
 op,op1,op2,op3,op4,op5,op6,op7,op8,op9,op10,op11,op12,op13,op14,op15,op16,op17,op18,op19,op20,op21,op22,op23,op24,op25,op26,op27,op28,op29,op30,op31,op32,op33:caracter
Inicio
 repita
 limpatela
 escreval ("[=================================]")
 escreval ("[=====CONVERSOR DE UNIDADES=======]")
 escreval ("[=================================]")
 escreval ("[ 1- Temperatura ]")
 escreval ("[ 2- Distância ]")
 escreval ("[ 3- Velocidade ]")
 escreval ("[ 4- Tempo ]")
 escreval ("[ 5- Área ]")
 escreval ("[ 6- Peso ]")
 escreval ("[ 7- SAIR!! ]")
 escreval (" Escolha uma opção: ")
 leia (x)
 se (x>7) ou (x<1) ENTAO
 escreval (" Opção inválida")
 fimse
 se (x=1) ENTAO
 limpatela
 escreval ("[=================================]")
 escreval (" ====CONVERSOR DE TEMPERATURA=====]")
 escreval ("[=================================]")
 escreval ("[ 8- Celsius->Kelvin ]")
 escreval ("[ 9- Celsius->Rankine ]")
 escreval ("[ 10- Celsius->Fahrenheit ]")
 escreval ("[ 11- Kelvin->Celsius ]")
 escreval ("[ 12- Kelvin->Rankine ]")
 escreval ("[ 13- Kelvin->Fahrenheit ]")
 escreval ("[ 14- Fahrenheit->Celsius ]")
 escreval ("[ 15- Fahrenheit->Kelvin ]")
 escreval ("[ 16- Fahrenheit->Rankine ]")
 escreval ("[ 17- Rankine->Celsius ]")
 escreval ("[ 18- Rankine->Kelvin ]")
 escreval ("[ 19- Rankine->Fahrenheit ]")
 escreval ("[ 20- Voltar ]")
 escreval (" Escolha uma opção: ")
 leia (y)
 fimse
 se (y>20) ou (y<8) ENTAO
 escreval (" opção inválida")
 fimse
 se (y=8) entao
 repita
 limpatela
 escreval (" CONVERSOR DE CELSIUS PARA KELVIN")
 escreval ("Cº: ")
 leia (c)
 k:= c+273.15
 escreval (" kº: ",k )
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op1)
 ate op1="n"
 se (y=9) entao
 repita
 limpatela
 escreval (" CONVERSOR DE CELSIUS PARA RANKINE")
 escreval (" Cº: ")
 leia (c)
 r:=(c+273.15)*1.8
 escreval (" Rº: ", r)
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op2)
 ate op2="n"
 se (y=10) entao
 repita
 limpatela
 escreval (" CONVERSOR DE CELSIUS PARA FAHRENHEIT")
 escreval (" Cº; ")
 leia (c)
 f:= c*1.8+32
 escreval (" Fº; ",f)
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op3)
 ate op3="n"
 se (y=11) entao
 repita
 limpatela
 escreval (" CONVERSOR DE KELVIN PARA CELSIUS")
 escreval (" Kº: ")
 leia (k)
 c:= k-273.15
 escreval (" Cº: ",c)
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op4)
 ate op4="n"
 se (y=12) entao
 repita
 limpatela
 escreval (" CONVERSOR DE KELVIN PARA RANKINE")
 escreval (" Kº: ")
 leia (k)
 r:= (k-273.15)*1.8+491.67)
 escreval (" Rº: ",r)
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op5)
 ate op5="n"
 se (y=13) entao
 repita
 limpatela
 escreval ("CONVERSOR DE KELVIN PARA FAHRENHEIT")
 escreval (" Kº: ")
 leia (k)
 f:=(k-273.15)*1.8+32
 escreval (" Fº: ")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op6)
 ate op6="n"
 se (y=14) entao
 repita
 limpatela
 escreval (" CONVERSOR DE FAHRENHEITE PARA CELSIUS")
 escreval (" Fº: ")
 leia (f)
 c:=(f-32)/1.8
 escreval (" Cº: ",c)
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op7)
 ate op7="n"
 se (y=15) ENTAO
 repita
 limpatela
 escreval (" CONVERSOR DE FAHRENEIT PARA KELVIN")
 escreval (" Fº: ")
 leia (f)
 k:=(f-32)*(5/2)+273.15
 escreval (" Kº: ", k)
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op8)
 ate op8="n"
 se (y=16) ENTAO
 repita
 limpatela
 escreval ("CONVEERSOR DE FAHRENHEIT PARA RANKINE")
 escreval (" Fº: ")
 leia (f)
 r:=(f-32)+491.67
 escreval (" Rº?: ", r)
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op9)
 ate op9="n"
 se (y=17) entao
 repita
 limpatela
 escreval ("CONVERSOR DE RANKINE PARA CELSIUS")
 escreval ("Rº: )
 LEIA (r)
 c:=(r-491.67)/1.8
 escreval (" Cº: ", c)
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op10)
 ate op10="n"
 se(y=18) entao
 repita
 limpatela
 escreval ("CONVERSOR DE RANKINE PARA KELVIN")
 escreval ("Rº: ")
 leia (r)
 k:= (r-491.67)/1.8+273.15
 escreval (" kº: ",k)
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op11)
 ate op11="n"
 se (y=19) entao
 repita
 limpatela
 escreval ("CONVERSOR DE RANKINE PARA FAHRENHEIT")
 escreval ( " Rº: ")
 leia (r)
 f:= r-491.67
 escreval (" Fº: ", f)
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op12)
 ate op12="n"
 se (y=20) entao
 limpatela
 fimse
 se (x=2) ENTAO
 limpatela
 escreval ("[================================]")
 escreval ("[=====CONVERSOR DE DIST NCIA=====]")
 escreval ("[================================]")
 escreval ("[ 21- Centímetros -> Metros ]")
 escreval ("[ 22- Metros -> Centímetros ]")
 escreval ("[ 23- Quilômetros -> Metros ]")
 escreval ("[ 24- Metros -> Quilômetros ]")
 escreval ("[ 25- Centímetros -> Quilômetros ]")
 escreval ("[ 26- Quilômetros -> Centímetros ]")
 escreval ("[ 27- Voltar ]")
 escreval (" Escolha uma opção: ")
 leia (d)
 fimse
 se (d<21) ou (d>27) ENTAO
 escreval (" Opção inválida")
 fimse
 se (d=21) ENTAO
 repita
 escreval (" CONVERSOR DE CONTÍMETROS PARA METROS")
 escreval (" Centímetros: ")
 leia (centi)
 metr:= centi/100
 escreval (" Voçê tem :",metr," metros")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op13)
 ate op13="n"
 se (d=22) ENTAO
 repita
 escreval (" CONVERSOR DE METROS PARA CENTÍMETROS")
 escreval (" Metros: ")
 leia (metr)
 centi:= metr*100
 escreval (" Voçê tem :",centi," centímetros")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op14)
 ate op14="n"
 se (d=23) ENTAO
repita
 escreval (" CONVERSOR DE QUILÔMETROS PARA METROS")
 escreval (" Quilômetros: ")
 leia (km)
 metr:= km*1000
 escreval (" voçê tem :",metr," metros")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op15)
 ate op15="n"
 se (d=24) ENTAO
 repita
 escreval (" CONVERSOR DE METROS PARA QUILÔMETROS")
 escreval (" Metros: ")
 leia (metr)
 km:= metr/1000
 escreval (" Voçê tem ",km," quilômetros")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op16)
 ate op16="n"
 se (d=25) ENTAO
 repita
 escreval (" CONVERSOR DE CENTÍMETROS PARA QUILÔMETROS")
 escreval (" Centímetros: ")
 leia (centi)
 km:=(centi/100)/1000
 escreval (" Voçê tem :",km," quilômetros")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op17)
 ate op17="n"
 se (d=26) ENTAO
 repita
 escreval (" CONVERSOR DE QUILÔMETROS PARA CENTÍMETROS")
 escreval (" Quilômetros: ")
 leia (km)
 centi:= km*1000*100
 escreval(" Voçê tem :",centi," centímetros")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op18)
 ate op18="n"
 se (d=27) ENTAO
 limpatela
 fimse
 se (x=3) ENTAO
 limpatela
 escreval ("[===================================]")
 escreval ("[=====CONVERSOR DE VELOCIDADE=======]")
 escreval ("[===================================]")
 escreval ("[ 28- Km/h -> m/s ]")
 escreval ("[ 29- m/s -> Km/h ]")
 escreval ("[ 30- Voltar ]")
 escreval (" Escolha uma opção: ")
 leia (v)
 fimse
 se (v<28) ou (v>29) ENTAO
 escreval (" Opção inválida")
 fimse
 se (v=28) ENTAO
 repita
 escreval(" CONVERSOR DE KM/H PARA M/S ")
 escreval(" Km/h: ")
 leia (kh)
 ms:= kh/3.6
 escreval (" Voçê tem : ",ms," m/s")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op19)
 ate op19="n"
 se (v=29) ENTAO
 repita
 escreval(" CONVERSOR DE M/S PARA KM/H")
 escreval(" m/s: ")
 leia(ms)
 kh:= ms*3.6
 escreval(" Voçê tem : ",kh," Km/h")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op20)
 ate op20="n"
 se (v=30) ENTAO
 limpatela
 fimse
 se (x=4) ENTAO
 limpatela
 escreval ("[=================================]")
 escreval ("[=======CONVERSOR DE TEMPO========]")
 escreval ("[=================================]")
 escreval ("[ 31- Segundos -> Minutos ]")
 escreval ("[ 32- Minutos -> Segundos ]")
 escreval ("[ 33- Segundos -> Horas ]")
 escreval ("[ 34- Horas -> Segundos ]")
 escreval ("[ 35- Minutos -> Horas ]")
 escreval ("[ 36- Horas -> Minutos ]")
 escreval ("[ 37- Voltar ]")
 escreval ("[ Escolha uma opção: ")
 leia (t)
 fimse
 se (t<31) ou (t>37) ENTAO
 escreval (" Opção inválida")
 fimse
 se (t=31) ENTAO
 repita
 escreval (" CONVERSOR DE SEGUNDOS PARA MINUTOS")
 escreval (" Segundos: ")
 leia (seg)
 min:= seg/60
 escreval (" Voçê tem :",min," minutos")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op21)
 ate op21="n"
 se (t=32) ENTAO
 repita
 escreval (" CONVERSOR DE MINUTOS PARA SEGUNDOS")
 escreval (" Minutos: ")
 leia (min)
 seg:= min*60
 escreval (" Voçê tem :",seg," segundos")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op22)
 ate op22="n"
 se (t=33) ENTAO
 repita
 escreval (" CONVERSOR DE SEGUNDOS PARA HORAS")
 escreval (" Segundos: ")
 leia (seg)
 hor:= (seg/60)/60
 escreval (" Voçê tem :",hor," horas")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op23)
 ate op23="n"
 se (t=34) ENTAO
 repita
 escreval (" CONVERSOR DE HORAS PARA SEGUNDOS")
 escreval (" Horas: ")
 leia (hor)
 seg:= (hor*60)*60
 escreval (" Voçê tem :",seg," segundos")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op24)
 ate op24="n"
 se (t=35) ENTAO
 repita
 escreval (" CONVERSOR DE MINUTOS PARA HORAS")
 escreval (" Minutos: ")
 leia (min)
 hor:= min/60
 escreval (" Voçê tem :",hor," horas")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op25)
 ate op25="n"
 se (t=36) ENTAO
 repita
 escreval (" CONVERSOR DE HORAS PARA MINUTOS")
 escreval (" Horas: ")
 leia (hor)
 min:= hor*60
 escreval (" Voçê tem :",min," minutos")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op26)
 ate op26="n"
 se (t=37) ENTAO
 repita
 limpatela
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op27)
 ate op27="n"
 se (x=5) ENTAO
 limpatela
 escreval ("[===================================]")
 escreval ("[=========CONVERSOR DE ÁREA=========]")
 escreval ("[===================================]")
 escreval ("[ 38- Quilômetro quadrado -> Hectare]")
 escreval ("[ 39- Hectare -> Quilômtro quadrado ]")
 escreval ("[ 40- Milha -> Quilômetro quadrado ]")
 escreval ("[ 41- Quilômetro quadrado -> Milha ]")
 escreval ("[ 42- Milha -> Hectare ]")
 escreval ("[ 43- Hectare -> Milha ]")
 escreval ("[ 44- Voltar ]")
 escreval ("[ Escolha uma opção: ")
 leia (a)
 fimse
 se (a<38) ou (a>44) ENTAO
 escreval (" Opção inválida")
 fimse
 se (a=38) ENTAO
 repita
 limpatela
 escreval (" CONVERSOR DE QUILÔMETROS QUADRADOS PARA HECTARE")
 escreval (" Quilômetros quadrados: ")
 leia (kmm)
 h:= (kmm)*100
 escreval (" Voçê tem :",h," hectares")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op28)
 ate op28="n"
 se (a=39) ENTAO
 repita
 limpatela
 escreval (" CONVERSOR DE HECTARE PARA QUILÔMETRO QUADRADO")
 escreval (" Hectare: ")
 leia (h)
 kmm:= (h)/100
 escreval (" Voçê tem :",kmm," quilômetros quadrados")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op29)
 ate op29="n"
 se (a=40) ENTAO
 repita
 limpatela
 escreval (" CONVERSOR DE MILHA PARA QUILÔMETRO QUADRADO")
 escreval (" Milhas: ")
 leia (mii)
 kmm:= (mii)*2.58999
 escreval (" Voçê tem :",kmm," quilômetros quadrados")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op30)
 ate op30="n"
 se (a=41) ENTAO
 repita
 limpatela
 escreval (" CONVERSOR DE QUILÔMETRO QUADRADO PARA MILHA")
 escreval (" Quilômetros quadrados:
")
 leia (kmm)
 mii:= (kmm)/2.58999
 escreval (" Voçê tem :",mii," milhas")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op31)
 ate op31="n"
 se (a=42) ENTAO
 repita
 limpatela
 escreval (" CONVERSOR DE MILHA PARA HECTARE")
 escreval (" Milhas: ")
 leia (mii)
 h:= (mii)*258.999
 escreval (" Voçê tem :",h," hectares")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op32)
 ate op32="n"
 se (a=43) ENTAO
 repita
 limpatela
 escreval (" CONVERSOR DE HECTARE PARA MILHA")
 escreval (" Hectares: ")
 leia (h)
 mii:= (h)/258.999
 escreval (" Voçê tem :",mii," milhas")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op33)
 ate op33="n"
 se (a=44) ENTAO
 limpatela
 fimse
 se (x=7) ENTAO
 limpatela
 escreval ("§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§")
 escreval (" OBRIGADO POR USAR NOSSO PROGRAMA ")
 escreval ("§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§")
 fimse
 escreval(" deseja repitir ? [s/n]?")
 leia(op)
 ate op="n"
Fimalgoritmo