Basic - Calculo Sistema Metrico Decimal

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Calculo Sistema Metrico Decimal

Publicado por fernanda (1 intervención) el 12/08/2009 22:14:08
estuvo vuena pero todavia no se cuanto es la miria
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Calculo Sistema Metrico Decimal

Publicado por lrcvs (17 intervenciones) el 21/08/2009 07:58:02
La lista de unidades del Sistema Metrico Internacional que se encuentra en Sebres, Paris.

Dice:

Miria-metro = 10000
Kilo-metro = 1000
Hecto-metro = 100
Deca-metro = 10
Metro = 1
Deci-metro = 0.1
Centi-metro = 0.01
Mili-metro = 0.001

Repasa las lecciones del parvulario, Ok !!!

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar