HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2020
0813
°¤ÌïÂËÇ¡Íè¿ôÃͤòµ¬Â§Åª¤Ëʬ³ä¤·¤¿¤¤¡ª3²ò·è


°¤ÌïÂËÇ¡Íè

¥ê¥ó¥¯

2020/8/13(Thu) 16:17:35|NO.91157

ÆÃÄê¤Î¿ôÃÍ(a)¤ò¤¢¤ë¿ôÃÍ(b)¤Çʬ³ä¤Ç¤­¤ë¤Þ¤Çʬ³ä¤·¤¿¤¤¤Ç¤¹

>¡ÚÎ㣱¡Ûa = 1000¡¢b = 100
a = 100 ¡ß 10 + 0 ¤Ê¤Î¤Ç ÇÛÎó¤Ï [10]

>¡ÚÎ㣲¡Ûa = 1001¡¢b = 100
a = 100 ¡ß 10 + 1 ¤Ê¤Î¤Ç ÇÛÎó¤Ï [1, 10]

>¡ÚÎ㣳¡Ûa = 10001¡¢b = 100
a = 100 ¡ß 100 + 1 ¤Ê¤Î¤Ç ÇÛÎó¤Ï [1, 100, 100]

>¡ÚÎ㣴¡Ûa = 20000¡¢b = 100
a = 100 ¡ß 100 ¡ß 2 ¤Ê¤Î¤Ç ÇÛÎó¤Ï [100, 100, 2]

>¡ÚÎ㣵¡Ûa = 2020¡¢b = 100
a = 100 ¡ß 20 ¡Ü 20 ¤Ê¤Î¤Ç ÇÛÎó¤Ï [20, 100, 20]

­¡ ÇÛÎó¤ÎÀèü¤¬ a mod b = c ¤ÎÃͤ¬0°Ê³°¤Ê¤é c ¤Ë¤Ê¤ë
­¢ ÇÛÎó¤Î³ÆÃͤ¬ b ¤è¤êÂ礭¤¤¾ì¹ç¤Ï¼¡¤Î¥¤¥ó¥Ç¥Ã¥¯¥¹¤ÎÃͤò£±ÄɲÃ(·«¤ê¾å¤¬¤ê(?))
­£ ­¢¤Î·«¤ê¾å¤¬¤ê¤¬½ÐÍè¤ë¤Þ¤Ç­¢¤ò·«¤êÊÖ¤¹

...¤Î¤è¤¦¤Ê´¶¤¸¤ÎÆ°ºî¤Ï¤É¤¦¤¤¤¦¥³¡¼¥É¤ò½ñ¤±¤Ð¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


¤¢¤é¤ä

¥ê¥ó¥¯

2020/8/13(Thu) 22:56:58|NO.91161

Î㣱¤È£²¤Ï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¤Ë·ë²Ì¤Î¿ôÃͤ¬Æþ¤ê¤Þ¤¹¡£



¤¢¤é¤ä

¥ê¥ó¥¯

2020/8/13(Thu) 23:25:11|NO.91162

¿ôÃÍ(a)¤¬¿ôÃÍ(b)¤è¤ê¤â¾®¤µ¤«¤Ã¤¿¾ì¹ç¤ò¹Íθ¤·¤Æ¤¤¤Ê¤«¤Ã¤¿¤Î¤Ç
°ìÉô½¤Àµ¤·¤Þ¤·¤¿¡£


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 - mod; // ¾¦¼èÆÀÍѤÎÊÑ¿ô 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;



°¤ÌïÂËÇ¡Íè

¥ê¥ó¥¯

2020/8/14(Fri) 20:20:43|NO.91165

¤¹¤¤¤Þ¤»¤ó...w
¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡ª



ONION software Copyright 1997-2023(c) All rights reserved.