Code archives/Algorithms/megacalculs

;=====================
;    megacalculs 1
;=====================


; Initialisation
;================

Dim table(9,10)
Dim retenue(9,10)

For i=0 To 9
	For j=0 To 10
		table(i,j)=i+j
		If table(i,j)>9 Then table(i,j)=table(i,j)-10 : retenue(i,j)=1 Else retenue(i,j)=0
	Next
Next

Dim table2(10,10)
Dim retenue2(10,10)
For i=0 To 10
	For j=0 To 10
		table2(i,j)=i-j
		If table2(i,j)<0 Then table2(i,j)=table2(i,j)+10 : retenue2(i,j)=1 Else retenue2(i,j)=0
	Next
Next

; Principal Loop
;===================

Repeat

Print"Premier nombre  (first number) : "
v1$=Input("")
Print"Operation (+ - * /) :"
op$=Input("")
Print"Deuxieme nombre (second number) : "
v2$=Input("")


If Left(v1$,1)="-" Then sig1$="-" Else sig1$=""
If Left(v2$,1)="-" Then sig2$="-" Else sig2$=""

If op$="+"
	sig3$=""
	If sig1$="-" And sig2$="-" Then sig3$="-" : v1$=Mid(v1$,2) : v2$=Mid(v2$,2) : sig1$="" : sig2$=""
	If sig1$="-" Then v1$=Mid(v1$,2) : a$=v1$ : v1$=v2$ : v2$=a$: sig2$="" : sig1$="" : op$="-"
	If sig2$="-" Then v2$=Mid(v2$,2) : op$="-" : sig1$="" : sig2$=""
Else
	If op$="-"
		sig3$=""
		If sig1$="-" And sig2$="" Then sig3$="-" : v1$=Mid(v1$,2) : sig1$="" : sig2$="" : op$="+"
		If sig1$="-" And sig2$="-" Then v1$=Mid(v1$,2) : v2$=Mid(v2$,2) : a$=v1$ : v1$=v2$ : v2$=a$: sig2$="" : sig1$=""
		If sig2$="-" Then v2$=Mid(v2$,2) : sig1$="" : sig2$="" : op$="+"
	Else
		If op$="*" Or op$="/"
			sig3$=""
			If sig1$="-" And sig2$="-" Then v1$=Mid(v1$,2) : v2$=Mid(v2$,2) : sig1$="" : sig2$=""
			If sig1$="-" And sig2$="" Then sig3$="-" : v1$=Mid(v1$,2) : sig1$="" : sig2$=""
			If sig2$="-" And sig1$="" Then sig3$="-" : v2$=Mid(v2$,2) : sig1$="" : sig2$=""
		EndIf
	EndIf
EndIf

virg=0
virg1=0
virg2=0
If op$="+" Or op$="-" Or op$="*"
	If Instr(v1$,".")<>0
		newv1$=v1$
		v1$=""
		While Right(newv1$,1)<>"."
			v1$=Right(newv1$,1)+v1$
			virg1=virg1+1
			newv1$=Mid(newv1$,1,Len(newv1$)-1)
		Wend
		v1$=Mid(newv1$,1,Len(newv1$)-1)+v1$
	EndIf
	If Instr(v2$,".")<>0
		newv2$=v2$
		v2$=""
		While Right(newv2$,1)<>"."
			v2$=Right(newv2$,1)+v2$
			virg2=virg2+1
			newv2$=Mid(newv2$,1,Len(newv2$)-1)
		Wend
		v2$=Mid(newv2$,1,Len(newv2$)-1)+v2$
	EndIf
	If op$="+" Or op$="-"
		If virg1>0 Or virg2>0
			If virg1>virg2
				nbz=virg1-virg2
				For i=1 To nbz
					v2$=v2$+"0"
				Next
				virg2=virg1
			EndIf
			If virg2>virg1
				nbz=virg2-virg1
				For i=1 To nbz
					v1$=v1$+"0"
				Next
				virg1=virg2
			EndIf
		EndIf
	EndIf
	If op$="*" Then virg1=virg1+virg2
	virg=virg1
EndIf

If op$="+" Then Gosub addition
If op$="-" Then Gosub soustraction
If op$="*" Then Gosub multiplicationrapide
If op$="/" Then Gosub division


If virg>0
	tempres$=res$
	res$=""
	While virg>0 And tempres$<>""
		res$=Right(tempres$,1)+res$
		tempres$=Left(tempres$,Len(tempres$)-1)
		virg=virg-1
	Wend
	res$=tempres$+"."+res$
	While Right(res$,1)="0"
		res$=Left(res$,Len(res$)-1)
	Wend
	If Right(res$,1)="." Then res$=Left(res$,Len(res$)-1)
	If res$="" Then res$="0"
EndIf



If sig3$="-" And res$<>"0" Then res$="-"+res$

res2$=""
If op$="/" And reste$<>"0" Then res2$=" reste "+reste$
Print ""
Print ""
Print "Resultat : "
Print res$+res2$
Print ""
Print ""

Forever

End

; SubRoutines & fonctions
;=========================

; add quickly
.addition
l=maxi(Len(v1$),Len(v2$))
If Len(v1$)<l Then a$=v1$ : v1$=v2$ : v2$=a$
While Len(v2$)<l
	v2$="0"+v2$
Wend
res$=""
For i=l To 1 Step -1
	c1=Int(Mid(v1$,i,1))	
	c2=Int(Mid(v2$,i,1))
	If i<l Then c2=c2+retenue(exc1,exc2)
	exc1=c1
	exc2=c2
	res$=Str(table(c1,c2))+res$
Next
If retenue(exc1,exc2)>0 Then res$="1"+res$
While Len(res$)>1 And Left(res$,1)="0"
	res$=Mid(res$,2)
Wend
Return

; substract quickly
.soustraction
l=maxi(Len(v1$),Len(v2$))
If Len(v1$)<l Then a$=v1$ : v1$=v2$ : v2$=a$ : sig$="-" Else sig$=""
While Len(v2$)<l
	v2$="0"+v2$
Wend
i=1
While i<=l
	If Int(Mid(v1$,i,1))<Int(Mid(v2$,i,1)) Then flag=1 : i=l+1
	If Int(Mid(v1$,i,1))>Int(Mid(v2$,i,1)) Then flag=0 : i=l+1
	i=i+1
Wend
If flag=1 Then a$=v1$ : v1$=v2$ : v2$=a$ : If sig$="" Then sig$="-" Else sig$=""
If Len(v1$)=Len(v2$) Then v1$="0"+v1$ : v2$="0"+v2$ : l=l+1
res$=""
For i=l To 1 Step -1
	c1=Int(Mid(v1$,i,1))	
	c2=Int(Mid(v2$,i,1))
	If i<l Then c2=c2+retenue2(exc1,exc2)
	exc1=c1
	exc2=c2
	res$=Str(table2(c1,c2))+res$
Next
While Len(res$)>1 And Left(res$,1)="0"
	res$=Mid(res$,2)
Wend
res$=sig$+res$
Return

; slow multiplication (used by quick multiplication)
.multiplication
If IsZero(v1$)=True Or IsZero(v2$)=True Then res$="0" : Return
memv2$=v2$
memv11$=v1$
v2$=v1$
Repeat
If IsZero(memv2$)=False
	Gosub addition
	memv1$=res$
	v1$=memv2$
	v2$="1"
	Gosub soustraction
	memv2$=res$
	v1$=memv1$
	v2$=memv11$
EndIf
If IsZero(memv2$)=True Then Exit
Forever
Gosub soustraction
While Len(res$)>1 And Left(res$,1)="0"
	res$=Mid(res$,2)
Wend
Return

; slow division
.division
If IsZero(v1$)=True Or IsZero(v2$)=True Then res$="0" : Return
memv11$="0"
memv2$=v2$
memv1$=v1$
Repeat
If IsZero(v1$)=False And Left(v1$,1)<>"-"
	memres$=v1$
	Gosub soustraction
	memv1$=res$
	If Left(res$,1)<>"-"
		v1$=memv11$
		v2$="1"
		Gosub addition
		memv11$=res$
	EndIf
	v1$=memv1$
	v2$=memv2$
EndIf
If IsZero(v1$)=True Or Left(v1$,1)="-" Then Exit
Forever
If Left(v1$,1)="-" Then a$=v1$ : v1$=v2$ : v2$=a$ : v2$=Mid(v2$,2) : Gosub soustraction : reste$=res$ Else reste$="0"
res$=memv11$
If Left(reste$,1)="-" Then reste$=Mid(reste$,2)
While Len(res$)>1 And Left(res$,1)="0"
	res$=Mid(res$,2)
Wend
Return

Function IsZero(a$)
For i=1 To 9
	If Instr(a$,Str(i))<>0 Then Return False
Next
Return True
End Function

Function maxi(a,b)
If a>=b Then Return a Else Return b
End Function

; quick multiplication
.multiplicationrapide
total$="0"
myv1$=v1$
myv2$=v2$
For k=Len(myv2$) To 1 Step -1
	v1$=myv1$
	v2$=Mid(myv2$,k,1)
	Gosub multiplication
	kzero$=""
	j=Len(myv2$)-k
	While j>0
		kzero$=kzero$+"0"
		j=j-1
	Wend
	v1$=res$+kzero$
	v2$=total$
	Gosub addition
	total$=res$
Next
res$=total$
Return