Î㣱¤È£²¤Ïb¤Î100¤òÇÛÎó¤ËÆþ¤ì¤º
>>¡ÚÎ㣲¡Ûa = 1001¡¢b = 100
>a = 100 ¡ß 10 + 1 ¤Ê¤Î¤Ç ÇÛÎó¤Ï [1, 10]
Î㣳°Ê¹ß¤Ï100¤òÇÛÎó¤ËÆþ¤ì¤ë¡£¡£¡£
>>¡ÚÎ㣳¡Ûa = 10001¡¢b = 100
>a = 100 ¡ß 100 + 1 ¤Ê¤Î¤Ç ÇÛÎó¤Ï [1, 100, 100]
¤É¤Á¤é¤¬Àµ¤·¤¤¤Î¤«¤ï¤«¤ê¤Þ¤»¤ó¤¬¡¢
¸å¼Ô¤Ë¹ç¤ï¤»¤¿¥½¡¼¥¹¤ò½ñ¤¤¤Æ¤ß¤Þ¤·¤¿¡£
ÇÛÎó¤ÎÂ礤µ¤¬¤É¤¦¤Ê¤ë¤«¤ï¤«¤é¤Ê¤¤¤Î¤Ç
°ìöʸ»úÎó¤È¤·¤ÆµÏ¿¤·¤Æ¤¤¤¡¢ºÇ¸å¤Ë¿ôÃͤËÊÑ´¹¤·¤Æ¤¤¤Þ¤¹¡£
a = 1000;
b = 100;
pos 0, 0 : mes "a:";
pos 20, 0 : input a;
pos 0, 20 : mes "b:";
pos 20, 20 : input b;
pos 20, 40 : button gosub "·×»»", *calc;
stop;
// ·×»»½èÍý
*calc
mod = a \ b; // ¾ê;¤ò¼èÆÀÍѤÎÊÑ¿ô
quo = a; // ¾¦¼èÆÀÍѤÎÊÑ¿ô
res_str = ""+mod+""; // ʸ»úÎó¤È¤·¤Æ·ë²Ì¤ò³ÊǼ¤·¤Æ¤¤¤¯
// ̵¸Â¥ë¡¼¥×¤ÇƱ¤¸½èÍý¤ò·«¤êÊÖ¤¹
repeat
if( quo == 0 ) {
break; // ¾¦¤¬0¤Ë¤Ê¤Ã¤¿»þÅÀ¤Ç¥ë¡¼¥×½ªÎ»
}
else : if( quo != 1 ) { // 1¤ÏµÏ¿¤·¤Ê¤¤
if( quo > b ) {
res_str += "\n"+b+""; // ¾¦¤¬½ü¿ô¤è¤ê¤âÂ礤¤¾ì¹ç¤Ï½ü¿ô¤òµÏ¿
}
else {
res_str += "\n"+quo+""; // ½ü¿ô¤ÎÊý¤¬Â礤±¤ì¤Ð¾¦¤òµÏ¿
}
}
quo /= b; // ¾¦¤ò¹¹¤Ë³ä¤ë
loop
gosub *arr;
return;
// ÇÛÎó¤Ø¤Î³ÊǼ½èÍý
*arr
notesel res_str;
len = notemax; // ¹Ô¿ô¡Ê¿ôÃͤοô¡Ë¤ò¼èÆÀ
noteget p_str, 0; // 1¹ÔÌܡʾê;¡Ë¤À¤±¤òÃê½Ð
if( int(p_str) == 0 ) {
notedel 0; // ¾ê;¤¬0¤Î¤È¤¤Ï1¹Ôºï½ü
len--;
}
dim res_int, len; // ¿ôÃͤοô¤Ë¹ç¤ï¤»¤¿ÇÛÎó¤òÍÑ°Õ
repeat len
noteget p_str, cnt; // 1¹Ô¤º¤ÄÃê½Ð
res_int(cnt) = int(p_str); // ʸ»úÎó¤ò¿ôÃÍ·¿¤ËÊÑ´¹¤·³ÊǼ
loop
return;
ÇÛÎóÊÑ¿ôres_int¤Ë·ë²Ì¤Î¿ôÃͤ¬Æþ¤ê¤Þ¤¹¡£