Basic - Raiz cuadrada (Programa)

   
Vista:

Raiz cuadrada (Programa)

Publicado por lrcvs (17 intervenciones) el 11/01/2010 21:51:53
'Programa raiz cuadrada

'lrcvs

'12 Jan 2010

'Este programa esta basado en el algoritmo de la division aritmetica.

cls

'a$ = numero para la raiz cuadrada

a$ = "25521342100008787"

la = INT(LEN(a$) / 2) + 1
c$ = STRING$(la, "0")
FOR r = 1 TO la
FOR s = 0 TO 9
MID$(c$, r) = LTRIM$(STR$(s))
v$ = LTRIM$(STR$(VAL(c$) * VAL(c$)))
'IF VAL(v$) = VAL(a$) THEN PRINT v$
IF VAL(a$) > VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s))
IF VAL(a$) < VAL(v$) THEN MID$(c$, r) = LTRIM$(STR$(s - 1)): EXIT FOR
NEXT s
NEXT r

t$ = LTRIM$(STR$(VAL(a$) - (VAL(c$) * VAL(c$))))
d$ = LTRIM$(STR$(VAL(t$) / (VAL(c$)) / 2))

PRINT "Raiz cuadrada de = "; a$
PRINT
PRINT "Programa = "; LTRIM$(STR$(VAL(c$))) + " . " + RIGHT$(d$, LEN(d$) - 1)
PRINT
PRINT "Resto = "; t$
PRINT
PRINT "Ordenador = "; SQR(VAL(a$))
SLEEP
END
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder

Raiz cuadrada (Programa)

Publicado por manuela (1 intervención) el 17/11/2012 18:11:10
necesito hacer 3 raices cuadradas para la recuperacion de matematicas como la hago ayudaa
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