Calculo Sistema Metrico Decimal
Publicado por lrcvs (17 intervenciones) el 10/05/2009 00:12:32
lrcvs 09.05.09
Hola a todos:
Este programa esta hecho en Qbasic.
El programa ( Funcion metrico ), es para hacer calculos con el Sistema Metrico Decimal.
Podemos trabajar con unidades:
Lineales: Metros, Litros, Kilos.
Superficie: Mts2
Volumenes: Mts3
Hay que saber donde nos encontramos (Posicion inical) y donde queremos ir (Posicion Final)
y en que sistema estamos trabajando.
El "sistema" es la dimension estamos trabajando.
Las posiciones son:
1 mili
2 centi
3 deci
4 Unidad (Mts, Grm, Lts)
5 Deca
6 Hecto
7 Kilo
8 Miria
Los valores de "sistema" son:
1>> Para unidades lineales: Mts, Lts, Kgr.
2>> Para superficies o areas: Mts2
3>> Para volumenes: Mts3
Ejemplos:
Cuantos Km son 1234 Mts
La cantidad o valor a calcular es: 1234
La posicion inicial son Mts = 4
La posicion final son Km = 7
El sistema de trabajo es lineal = 1
Print metrico (1234, 4, 7, 1)
............................................
Calcular cuantos Kg son 2468 mg
Print Metrico (2468,1,7,1)
.............................................
Calcular cuantos Litros son 4 Hectolitros
Print Metrico (4,6,4,1)
.............................................
Calculo de superficies o areas
Cuantos cm2 son 45 Km2
Print Metrico (45,7,2,2)
.............................................
Calculo de volumenes
Cuantos mm3 son 12 Mts3
Print Metrico (12,4,1,3)
...............................................................
Function metrico (cant, i, f, ti)
'lrcvs 09.05.09
'cant = valor
'i = posicion inicial (1 ... 8)
'f = posicion final (1 ... 8)
'ti = sistema en el que nos encontramos (1,2,3)
Dim r, d As Double
r = 0
d = (ti * (Abs(i - f)))
If i > f Then r = cant * 10 ^ d
If i < f Then r = cant / 10 ^ d
If i = f Then r = cant
metrico = r
End Function
Hola a todos:
Este programa esta hecho en Qbasic.
El programa ( Funcion metrico ), es para hacer calculos con el Sistema Metrico Decimal.
Podemos trabajar con unidades:
Lineales: Metros, Litros, Kilos.
Superficie: Mts2
Volumenes: Mts3
Hay que saber donde nos encontramos (Posicion inical) y donde queremos ir (Posicion Final)
y en que sistema estamos trabajando.
El "sistema" es la dimension estamos trabajando.
Las posiciones son:
1 mili
2 centi
3 deci
4 Unidad (Mts, Grm, Lts)
5 Deca
6 Hecto
7 Kilo
8 Miria
Los valores de "sistema" son:
1>> Para unidades lineales: Mts, Lts, Kgr.
2>> Para superficies o areas: Mts2
3>> Para volumenes: Mts3
Ejemplos:
Cuantos Km son 1234 Mts
La cantidad o valor a calcular es: 1234
La posicion inicial son Mts = 4
La posicion final son Km = 7
El sistema de trabajo es lineal = 1
Print metrico (1234, 4, 7, 1)
............................................
Calcular cuantos Kg son 2468 mg
Print Metrico (2468,1,7,1)
.............................................
Calcular cuantos Litros son 4 Hectolitros
Print Metrico (4,6,4,1)
.............................................
Calculo de superficies o areas
Cuantos cm2 son 45 Km2
Print Metrico (45,7,2,2)
.............................................
Calculo de volumenes
Cuantos mm3 son 12 Mts3
Print Metrico (12,4,1,3)
...............................................................
Function metrico (cant, i, f, ti)
'lrcvs 09.05.09
'cant = valor
'i = posicion inicial (1 ... 8)
'f = posicion final (1 ... 8)
'ti = sistema en el que nos encontramos (1,2,3)
Dim r, d As Double
r = 0
d = (ti * (Abs(i - f)))
If i > f Then r = cant * 10 ^ d
If i < f Then r = cant / 10 ^ d
If i = f Then r = cant
metrico = r
End Function
Valora esta pregunta
0