Basic - Division aritmetica simple

   
Vista:

Division aritmetica simple

Publicado por lrcvs (17 intervenciones) el 09/01/2010 10:32:39
'Program arithmetic division with integers numbers
'lrcvs
'09 Jan 2010

cls
a$ = "9876598743014313"
b$ = "388798006"

'A:B

la = len (a$)
c$ = string$(la,"0")
for r = 1 to la
for s = 0 to 9
mid$(c$,r) = ltrim$(str$(s))
gosub check
if val(v$) = val(a$) then print v$:goto 10
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)): goto 10
next s
10:
next r

R$ = ltrim$(str$(val(a$)-(val(c$)*val(b$))))
d$ = ltrim$(str$(val(r$)/val(b$)))
print "Program = ";ltrim$(str$(val(c$)))+right$(d$,len(d$)-1)
print
print "Remanence = ";r$
print

print "Computer = ";val (a$) / val (b$)
sleep
end

check:
v$ = ltrim(str$(val (c$) * val (b$)))
return
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