雉ｪ蝠擾ｼ懶ｼ暦ｼ抵ｼ呻ｼ橸ｼ抵ｼ撰ｼ撰ｼ托ｼ擾ｼ托ｼ抵ｼ擾ｼ�
from=縺ｾ縺｣縺｡繧�ｓ
縲後�繝ｭ繧ｰ繝ｩ繝溘Φ繧ｰ縲�
谺｡繧偵basic縺ｧ繝励Ο繧ｰ繝ｩ繝�縺励◆縺��縺ｧ縺吶′縲隗｣繧翫∪縺帙ｓ縲� 謨吶∴縺ｦ荳九＆縺�� �茨ｼ托ｼ会ｽ主九�a(0),a(1),繝ｻ繝ｻ繝ｻ繝ｻ,a(n-1)縺御ｸ弱∴繧峨ｌ縺ｦ縺� 縲縲縲繧�?? a(i)縺ｮ鬆�ｽ搾ｽ偵ｒ豎ゅａ繧九� �茨ｼ抵ｼ会ｽ取ｬ｡豁｣??陦悟�A,B縺御ｸ弱∴繧峨ｌ縺�??縲縺薙��偵▽縺ｮ陦悟�縺ｮ 縲縲縲蜥後→蟾ｮ縺ｨ遨阪ｒ豎ゅａ繧九�
縺願ｿ比ｺ具ｼ抵ｼ撰ｼ撰ｼ托ｼ擾ｼ托ｼ抵ｼ擾ｼ托ｼ�
from=豁ｦ逕ｰ
蝠擾ｼ�
10 n=10:cls :'繝��繧ｿ謨ｰ
20 dim a(n),b(n)
30 data 2,4,3,8,5,4,6,7,3,1 :'繝��繧ｿ縺ｮ謨ｰ蛟､�茨ｼ托ｼ仙具ｼ�
40 for k=1 to n
50 read a(k)
60 next k
70 for t=1 to n
80 count=0
90 for s=1 to n
100 if a(t)�彗(s) then count=count+1
110 next s
120 b(t)=count+1
130 next t
170 for k=1 to n
180 print k;"逡ｪ逶ｮ縺ｮ蠕礼せ";a(k);"縺ｯ";n;"莠ｺ荳ｭ";b(k);"菴阪〒縺吶�"
190 next k
200 end
蝠擾ｼ�
�｡�晢ｼ茨ｽ（j�峨�ｼ｢�晢ｼ茨ｽＪj�峨�ｼ｣�晢ｼ茨ｽナj�峨→縺吶ｋ縺ｨ縲�
蜥鯉ｼ亥ｷｮ�峨�縲�
�｡�具ｼ｢�晢ｼ｣
100 n=3:cls
110 dim a(n,n),b(n,n),c(n,n)
120 '-------A------
130 data 2,4,3
140 data -8,5,-4
150 data 6,7,3
160 '-------B------
170 data 1,-2,9
180 data 0,2,4
190 data -1,6,5
200 '--------------
210 for i=1 to n
220 for j=1 to n
230 read a(i,j)
240 next j
250 next i
260 '---------------
270 for i=1 to n
280 for j=1 to n
290 read b(i,j)
300 next j
310 next i
320 '---------------
330 for i=1 to n
340 for j=1 to n
350 c(i,j)=a(i,j)+b(i,j) :'蜥�
360 next j
370 next i
380 '---------------
390 print "A="
400 print
410 for i=1 to n
420 print "(",
430 for j=1 to n
440 print a(i,j),
450 next j
460 print ")"
470 next i
480 print
490 '-----------------
500 print "B="
510 print
520 for i=1 to n
530 print "(",
540 for j=1 to n
550 print b(i,j),
560 next j
570 print ")"
580 next i
590 print
600 '-----------------
610 print "C=A+B="
620 print
630 for i=1 to n
640 print "(",
650 for j=1 to n
660 print c(i,j),
670 next j
680 print ")"
690 next i
700 print
710 end
�｡�晢ｼ茨ｽ（j�峨�ｼ｢�晢ｼ茨ｽＪj�峨�ｼ｣�晢ｼ茨ｽナj�峨→縺吶ｋ縺ｨ縲�
遨阪�縲�
�｡繝ｻ�｢�晢ｼ｣
100 n=3:cls
110 dim a(n,n),b(n,n),c(n,n)
120 '-------A------
130 data 2,4,3
140 data -8,5,-4
150 data 6,7,3
160 '-------B------
170 data 1,-2,9
180 data 0,2,4
190 data -1,6,5
200 '--------------
210 for i=1 to n
220 for j=1 to n
230 read a(i,j)
240 next j
250 next i260 '---------------
270 for i=1 to n
280 for j=1 to n
290 read b(i,j)300 next j
310 next i
320 '---------------
330 for i=1 to n
340 for j=1 to n
350 c(i,j)=0
360 next j
370 next i
380 for i=1 to n
390 for j=1 to n
400 for k=1 to n
410 c(i,j)=c(i,j)+a(i,k)*b(k,j) :'遨�
420 next k
430 next j
440 next i
450 '---------------
460 print "A="
470 print
480 for i=1 to n
490 print "(",
500 for j=1 to n
510 print a(i,j),
520 next j
530 print ")"
540 next i
550 print
560 '-----------------
570 print "B="
580 print
590 for i=1 to n
600 print "(",
610 for j=1 to n
620 print b(i,j),
630 next j
640 print ")"
650 next i
660 print
670 '-----------------
680 print "C=Aﾃ唯="
690 print
700 for i=1 to n
710 print "(",
720 for j=1 to n
730 print c(i,j),
740 next j
750 print ")"
760 next i
770 print
780 end