Un petit programme de multiplication pour un petit PB-100
Vu la capacité de la machine, le multiplicande ne peut dépasser les 30 positions et le multiplicateur les 10 positions.
Code : Tout sélectionner
5 VAC
10 INPUT $,A
20 IF LEN($)/5=INT(LEN($)/5) THEN 50
30 B=5-(LEN($)-5*INT(LEN($)/5))
40 FOR C=1 TO B:$="0"+$:NEXT C
50 FOR C=LEN($)/5 TO 1 STEP -1:E$=MID((C*5)-4,5):A(C+5)=VAL(E$)
60 B=A(C+5)*A+D:D=INT(B/100000):A(C+5)=B-100000*D
70 NEXT C
80 PRINT D;:FOR C=1 TO LEN($)/5:PRINT A(C+5);:NEXT C
Code : Tout sélectionner
A$(5)="123456"
VAL(A$(5))
D’où le fait que je passe par E$ pour faire la conversion. Mais peut être ai-je loupé un truc!
Ben