わり算01

0割対応は自分でいれてください

 

被除数は、整数

除数は、14桁整数まで

 

＜javascript＞

a=76543210987654321;
lena=(a+'').length;
b=87;
lenb=(b+'').length;
c=0;
d='';
posa=0;

a02='';
a02=(a+'').substr(posa,1);

c=0;
a03='';

 

while(posa＜lena){
    c=0;
    if(a02 * 1.0 >= b){
      while(a02 * 1.0 >= b){
         c++;
         a02 = a02 * 1.0 - b;

      }
    }
    
    posa++;
    a02=a02+(a+'').substr(posa,1);
    
    d=d+''+c;
}
alert(d);

 

 

＜vbscript＞

   dim  data
   dim  data01
   
   dim jyo
   dim jyo_dbl(10)
   dim jyo_stra (10)
 
   
  data = "87654321"
  jyo   =  87

  len_data = Len(data)

 c = 0
 d = 0
 posa = 1
 
 a02 = ""
 a02 = Mid(data,posa,1)

 Do Until (posa > len_data)
    c = 0
    If Cdbl(a02) >= jyo Then
        Do While Cdbl(a02) >= jyo
            c = c + 1
            a02  = Cdbl(a02) - jyo
        Loop
    End If 
    posa = posa + 1
    a02  = Cstr(a02) & Mid(data, posa, 1)

    d = d & c
 Loop

 Msgbox d

 

 

＜記事とは無関係＞

1..10|＆{begin{$a="abc";$c=0}process{$c=$c+$_;echo ($a+$_)}end{echo (" sum=" + $c)}}

 

＜awk＞

BEGIN{
a=76543210987654321;
lena=length(a);
b=87;
lenb=length(b);

posa=1;

a02="";
a02=substr(a, posa, 1);

c=0;
d="";
 

while(posa*1.0 ＜ lena*1.0){
    c=0;
    if(a02 * 1.0 >= b*1.0){
      while(a02 * 1.0 >= b){
         c++;
         a02 = a02 * 1.0 - b;
         print a02

      }
    }
    
    posa++;
    a02=a02 substr(a, posa, 1);
    print a02
    d= d "" c;
}
print d;
}