N88-日本語 BASIC ASCII ファイルの変換方法とは？| OKWAVE

RPGツクール5で関数を使う方法を知りたいです

公開されていた初心者用のプログラミングを見ながら関数の組み方を勉強したいですが、分からない所を教えて頂きたいです。　シューティングゲームの当たり判定などの関数が理解できません。自分の現在の知識、組みたいプログラムなどは、もっと下のほうに記入します。 10 width 80,20 　　　　　　　　　　　　　　　　　　　　　　　　'10～96行まで初期設定 20 cls:beep 30 print "ＫＥＹ操作１左２右３ミサイル発射" 40 print "自機＜Ｔ＞を操り敵＝を撃つゲーム" 50 for i=0 to 40 60 locate i,5:print "-" 70 next 80 locate 19,5:print "-<T>-" 90 x=19: m=0:mx=0:my=0　　　　　　　　　　　　　　'x、y 自機の座標　　mx、my ミサイル座標 95 randomize(val(right$(time$,2)))　　　　　　　　　'ex,ey 敵座標　 96 ey=int(rnd(1)*10)+6:ex=5 100 gosub 200　　　　　　　　　　　　　　　　　　　　'100～130 メインルーチン 110 if m=1 then gosub 300　　'm=0 ミサイル未発射。この時は300行（ミサイル移動ルーチン　　　　　　　　　　　　　　　　　　　 'にはいかない m=1 ミサイル発射中は300行へ　　 120 gosub 400 130 goto 100 200 b$=""　　　　　　　　　　　　　　　　　　　　　　　'自機の移動、ミサイル発射 202 a$=inkey$ 205 if a$<>"" then b$=a$:goto 202 210 if b$="1" and x>1 then x=x-1 215 if b$="2" and x<37 then x=x+1 220 if b$="3" and m=0 then mx=x+2:my=5:m=1:beep 230 locate x,5 :print"-<T>-" 240 return 300 locate mx,my:print " "　　　　　　　　　　　　　　'ミサイル移動ルーチン 310 my=my+1 320 if mx=ex and my=ey then gosub 600: end　　 '当たり判定　 330 if my>15 then mx=0:my=0:m=0:return　　　　　'下までいったらミサイル終了。m=0に戻す 340 locate mx,my:print "V":return 400 locate ex,ey:print " "　　　　　　　　　　　　　　　'敵移動ルーチン　　　　　　　　　 410 ex=ex+1 420 if ex=mx and ey=my then gosub 600 :end　　　'当たり判定 430 if ex>39 then ex=0: ey=int(rnd(1)*10)+6　　　 '端までいったら新座標 440 locate ex,ey:print"=" 450 return 600 beep　　　　　　　　　　　　　　　　　　　　　　　　　　'当たりの時の処理 610 locate mx,my:color 4:print "*" 620 print "大当たりＴＨＥＥＮＤ": color 7 630 print "HIT ANY KEY" 640 a$=input$(1):return RPGツクール5には関数の命令文がないと思われるため、自作するために関数を理解したいです。変数への代入と操作には＋、－、　×、÷、＝、指定した2つの変数(定数)間の値の乱数を得ることができる、ツクール5では小数点以下の値は持っていません、余りを変数に入れる事はできる、と書かれています。スクリプト分岐　条件　(IF THENにあたると思われる )は、＝、≧、≦、≠、<、>が用意されています。関数命令が見当たらない以外に計算順位を指定するための( )も使う事ができません。とっても楽しくツクールガイドを購入しましたが、マップやイベント設置、イベント実行などが主で、プログラムのようなスクリプトの組み方は触れられていません。関数を自作する役にたつかと思い情報処理の本に仕組みが書いている16ビットの仮想コンピュータCOMETを見本用フラグ0～15のON OFFを切り替える事で、0～32767までの数値入力値を2進数に直す所まではできました。再現した仮想コンピュータでciv系戦略ゲームやシムアント系を作れるのかやってみたいと思っています。2進数の足し算引き算などゲーム作りに必要そうな事は、情報処理の本で憶える予定です。 N88basicしかプログラミングソフトを使った事がないので、関数の自作方法をbasic形式で教えて頂けないでしょうか?　十数年前のBASICの教科書?は持っています。下に書いたのが0～32767までの数値入力値を2進数に直すツクール5スクリプト(テストプレイ済)です。応用すれば関数の代わりが自作できないでしょうかユーザー入力数値入力0～32767 データ制御　変数見本用変数01=数値入力値スクリプト分岐　条件　変数　見本用変数01 <16384 データ制御　フラグ　(1ビットの代わり)見本用フラグ1 OFFにするスクリプト分岐　条件終端スクリプト分岐　条件　変数　見本用変数01≧16384 データ制御　変数見本用変数01=見本用変数01-16384 データ制御　フラグ　(1ビットの代わり)見本用フラグ1 ONにするスクリプト分岐　条件終端スクリプト分岐　条件　変数　見本用変数01 <8192 データ制御　フラグ　(1ビットの代わり)見本用フラグ2 OFFにするスクリプト分岐　条件終端スクリプト分岐　条件　変数　見本用変数01≧8192 データ制御　変数見本用変数01=見本用変数01-8192 データ制御　フラグ　(1ビットの代わり)見本用フラグ2 ONにするスクリプト分岐　条件終端ツクール5ではフラグのON OFFはスクリプト分岐　条件に使う事ができます。これとほぼ同じスクリプトを見本用フラグ15(15ビットの代わり)までやりました。見本用フラグ2(2ビットの代わり)を操作する場合、上に書いた16384の部分を2で割って8192、見本用フラグ3(3ビットの代わり)を操作する場合、8192を2で割って4096、と似たような手順を2で割り続けました。スクリプト分岐　繰り返しはGOTO文で好きな行番号が指定できないので使い方をツクール動画などで学習中です。

N88互換BASICで変換したが使えません。その３

400 LOCATE 0, 0 :PRINT DATE$; 410 LOCATE 25, 0 :PRINT TR$(TR.NO); 420 LOCATE 70, 0 :PRINT TIME$; 430 TM$=" " 440 WHILE TM$<>"00" AND TM$<>"30" 450 LOCATE 70, 0 :PRINT TIME$; 460 MID$(TM$,1,2)=MID$(TIME$,7,2) 470 XXX!=FRE(0) ' 480 WEND 490 LOCATE 0, 0 :PRINT DATE$; 500 LOCATE 25, 0 :PRINT TR$(TR.NO); 510 LOCATE 70, 0 :PRINT TIME$; 520 GOSUB *DISK.OUT 530 GOTO *TIME.30 540 ' 550 'Writting data to floppy 560 *DISK.OUT 570 PRINT:TR.NO=1 580 ON TR.NO GOSUB *TR.1,*TR.2 590 XXX!=FRE(0) ' 600 RETURN 610 ' 620 ' 630 *TR.1 640 KO.J=0 :PV$="" 650 CLS 660 LOCATE 0, 2 :PRINT "***Getting data***" 670 OPEN "COM:E8N" AS #1 680 PRINT #1,"TS0" 690 PRINT #1,CHR$(&H1B)+"T" 700 PRINT #1,"FM0,01,30" 710 LINE INPUT #1,DM$ 720 WHILE MID$(DM$,2,1)<>"E" :LINE INPUT #1,DM$ :WEND 730 PRINT #1,"FM0,01,30" 740 LINE INPUT #1,DM$

サブルーチン

下は身長の平均を求めるプログラムですけど、身長の高い順、低い順に並び替えしたいんですがどうしたらいいかわからないので、よかったら誰か教えていただけませんか　　　　　　　　　　　　　　　　　　　REM プログラム　　　　　10　　　　　　　　　　　　DIM A(12) 20 PRINT "メニュー” 30 PRINT "身長入力...1" 40 PRINT "身長出力...2" 50 PRINT "終了" 60 PRINT "どれにしますか" 70 INPUT B 80 IF B=1 THEN GOSUB300 ELSE 110 90 GOTO 30 100 IF B=2 THEN GOSUB500 ELSE 130 110 GOTO 30 120 IF B=3 THEN GOSUB700 ELSE 30 130 END 140 A(11)=B 300 FOR I=1 TO 10 310 PRINT i;: PRINT "人目" 315 INPUT C 320 A(I)=C 330 PRINT "これでいいですか?" 340 PRINT "1.YES 2.NO" 345 INPUT D 350 IF D=1 THEN 380 ELSE 370 360 IF D=2 THEN 315 ELSE 340 370 A(11)=A(11)+A(I) 380 NEXT I 390 RETURN 400 IF C=1 THEN 520 500 PRINT "先に入力してください" 510 GOTO 30 515 FOR I=1 TO 12 520 PRINT A(I) 530 NEXT I 540 RETURN 550 PRINT "これで身長の平均を求めるのを終わります"700 RETURN 710 　

N88 basicプログラムの質問(ノルム計算)1

N88 basicプログラムにおいて鉱物のノルム計算ができるようにしたいのですが、プログラムを打ち込んだのですが、うまく動きません。どなたかわかる方がいればご教授頂きたく願います。かなり長くなりますが、ぜひともお願い致します。下記、打ち込んだプログラムとなります。長いので、質問を分けて入力します。 10 ' 20 '***** normative calculation program for clay minerals ***** by T,Igarashi,1983 30 ' 40 OPTION BASE 1 50 CONSOLE 0,25,0,1 60 WIDTH 40,25 70 ' 80 ' 90 DIM A$(22),DMY$(22),AA$(22),B1$(31),M$(8),L$(8) 100 DIM A(8,22),A1(22),A2(22),B(31),B0(8,31),C9(31),TOTAL(2,8) 110 GOSUB *INIT.1 120 ON ERROR GOTO 5000 130 GOSUB *ENTER 140 FOR QQ=1 TO NN 150 GOSUB *INIT.2 160 IF KORF=1 THEN GOSUB *FILE ELSE GOSUB *KEYBOARD 170 GOSUB *STORE 180 GOSUB *CALC 190 GOSUB *OUTPUT 200 NEXT QQ 210 GOSUB *PRINTOUT 220 GOTO 130 230 ' 240 ' 250 ' 260 *INIT.1 270 RESTORE 290 280 FOR I=1 TO 22 : READ AA$(I) : READ A2(I) : NEXT 290 DATA SIO2,60.085,TiO2,79.899,Al2O3,101.961,Fe2O3,159.692,FeO,71.846,MnO,70.937,MgO,40.304,CaO,56.079,Na2O,61.979,K2O,94.195 300 DATA P2O5,141.943,Cl,35.453,SO3,80.57,S,32.6,Cr2O3,151.989,ZrO2,123.218,F,18.99,CO2,44.9,H2O+,18,H2O-,1,Ig.LOSS,1,Others,1 310 RESTORE 330 320 FOR I=1 TO 31 : READ B1$(I) : NEXT 330 DATA Q,C,ad,mi,ab,an,ka,se,ch,gi,mo,pp,dp,al,Z,hl,th,cc,mg,sd,li,mt,he,cm,pr,il,ru,ap,fr,en,ot 340 C9(1)=A2(1) : C9(2)=A2(3) : C9(3)=A2(1)+A2(3) : C9(4)=A2(10)+A2(3)+A2(1)*6 : C9(5)=A2(9)+A2(3)+A2(1)*6 : C9(6)=A2(8)+A2(3)+A2(1)*2 : C9(7)=A2(3)+A2(1)*2+A2(19)*2 350 C9(8)=A2(10)+A2(3)*3+A2(1)*6+A2(19)*2 : C9(9)=A2(7)*5+A2(3)+A2(1)*3+A2(19)*4 : C9(10)=A2(3)+A2(19)*3 : C9(11)=A2(9)*33+A2(3)+A2(7)+A2(1)*4+A2(19)*4 : C9(12)=A2(3)+A2(1)*4+A2(19) 360 C9(13)=A2(3)+A2(19) : C9(14)=A2(10)+A2(3)*3+A2(13)*4+A2(19)*6 : C9(15)=A2(1)+A2(16) : C9(16)=(A2(9)-16)/2+A2(12) : C9(17)=A2(9)+A2(13) : C9(18)=A2(8)+A2(18) : C9(19)=A2(7)+A2(18) : C9(20)=A2(5)+A2(18) 370 C9(21)=A2(4)+A2(19) : C9(22)=A2(4)+A2(5) : C9(23)=A2(4) : C9(24)=A2(5)+A2(15) : C9(25)=A2(5)-16+A2(14)*2 : C9(26)=A2(2)+A2(5) : C9(27)=A2(2) : C9(28)=A2(8)*10+A2(11)*3+A2(19) 380 C9(29)=A2(8)-A2(17)*2 : C9(30)=A2(1)+A2(7) : C9(31)=1 : DD=0 390 FOR I=1 TO 31 : B(I)=0 : NEXT 400 RETURN 410 ' 420 ' 430 ' 440 *ENTER 450 C=0 : KORF=0 : SCREEN 3,3 : CLS 3 : SCREEN 3,0 : LINE(0,0)-(639,199),6,BF : COLOR 2 460 LOCATE 0,5 : PRINT "How many samples (Max 8 samples)";: INPUT NN 470 IF NN>8 THEN CLS 1 : GOTO 460 480 IF NN=0 THEN GOTO *PROEND 490 COLOR 2 : LOCATE 0,8 : PRINT "Input data from Keyboard or File or End : K/F/E" 500 Y$=INKEY$ 510 IF Y$="" THEN 490 520 IF Y$="e" OR Y$="E" THEN GOTO *PROEND 530 IF Y$="k" OR Y$="K" THEN KORF=0 : RETURN 540 IF Y$<>"f" AND Y$<>"F" THEN 490 550 KORF=1 560 RETURN 570 ' 580 ' 590 ' 600 *INIT.2 610 CLS 1 620 FOR I=1 TO 22 : A(QQ,I)=0 : NEXT I 630 FOR I=1 TO 31 : B(I)=0 : B0(QQ,I)=0 : NEXT I 640 RETURN 650 ' 660 ' 670 ' 680 *FILE 690 OPEN "data.1" AS #1 700 FIELD #1,40 AS MINERAL$,40 AS L1$ 710 FOR I=1 TO 22 : FIELD #1,(I-1)*4+80 AS DMY$(I),4 AS A$(I) : NEXT 720 MAX=LOF(1) : IF MAX=0 THEN RETURN 440 730 LOCATE 1,2 : PRINT MAX;"records are filing." 740 IF DD=1 THEN 800 750 LOCATE 2,5 : PRINT "You need list (Y/N)?": Y$=INKEY$ 760 IF Y$"" THEN 750 770 IF Y$="N" OR Y$="n" OR Y$="ミ" THEN 800 780 IF Y$="Y" OR Y$="y" OR Y$="ン" THEN GOSUB *NAME.LIST : GOTO 800 790 GOTO 750 800 LOCATE 2,10 : INPUT "Record No.";N 810 IF N>MAX THEN CLS 1 : GOTO 730 820 GET #1,N 830 M$=MINERAL$ : L$=L1$ 840 FOR I=1 TO 11 : A(QQ,I)=CVS(A$(I)) : A(QQ,I+11)=CVS(A$(I+11)) : NEXT 850 CLOSE #1 : DD=1 860 LOCATE 2,15 : PRINT "Correct data : Y/N"; : Y$=INKEY$ 870 IF Y$="" THEN 860 880 IF Y$="Y" OR Y$="y" THEN C=1 : GOTO 1120 890 IF Y$="N" OR Y$="n" THEN RETURN 180 900 GOTO 860 910 ' 920 ' 930 ' 940 *NAME.LIST 950 LPRINT 960 LPRINT CHR$(27) ; "V0960" ;CHR$(&H8) 970 LPRINT "Sample Name" ; TAB(40); "Locality" 980 LPRINT CHR$(27);"V0960";CHR$(&H8) 990 FOR II=1 TO MAX 1000 GET #1, II 1010 M$=MINERAL$ : L$=L1$ 1020 LPRINT M$; TAB(40); L$ 1030 NEXT 1040 LPRINT CHR$(27) ; "V0960";CHR$(&H8) 1050 LPRINT CHR$(12) 1060 RETURN 1070 ' 1080 ' 1090 ' 1100 *KEYBOARD 1110 M$="" : L$="" : FOR I=1 TO 22 : A(QQ,I)=0 : NEXT I

N88互換BASICで変換したが使えません。その２

140 DEF FNF4$(X$) =MID$(X$,1,2)+":"+MID$(X$,3,2)+":"+MID$(X$,5,2) 150 DEF FNF5!(X$,X) =VAL(MID$(X$,X)) 160 CLS 170 LOCATE 20,10 :PRINT "3)How many sensors will you use?" 180 LOCATE 20+40,10 :PRINT " " 190 LOCATE 20+40,10 :LINE INPUT KO.TR$ 200 KO.TR=VAL(KO.TR$) 210 IF KO.TR<1 OR KO.TR>30 THEN BEEP :GOTO 180 220 LOCATE 25,10 :PRINT "Ready to send data?" 230 LINE INPUT AA$ 240 IF AA$<>"" AND AA$<>"Y" AND AA$<>"y" THEN *END. 250 *MAIN.START 260 CLS 270 LOCATE 25,10 :PRINT "****Start*****" 280 LOCATE 70, 0 :PRINT TIME$; 290 ' 300 'Writting data to floppy 310 *DISK.SET 320 FFF$="B:"+FNF1$(DATE$,TIME$) 330 OPEN FFF$ FOR OUTPUT AS #1 340 PRINT #1,Q$+DATE$+Q$+R$+Q$+STR$(KO.TR)+Q$+R$ 'DATE$,SENSORS 350 CLOSE 360 ' 370 'Sampling data every 30 seconds 380 *TIME.30 390 CONSOLE 0,25

ＦＢＡＳＩＣで作成したコードをｖｉｓｕａｌＢＡＳＩＣに変換したい

以前に富士通のＦＢＡＳＩＣで作成したプログラムをＶＢ６．０で作り直したいのですが、よくわかりません。ソースコードは下記の通りです。 'ＲＳ－２３２Ｃポート受信準備 baud 0,1200 open"COM0:(s8n1n8)" as #1 on com(0) gosub *RECEVECHK com(0) on *LOOP GOTO *LOOP '------------------------------------------------------------------------- 'データ送信コードのチェック *RECEVECHK RCV$=input$(1,#1) if RCV$=ENQ$ then gosub *TRANACK : return if RCV$=STX$ then gosub *RECEVEDATA :return goto *MSG1 return '------------------------------------------------------------------------- 'データの受信 *RECEVEDATA RCV$=input$(1,#1) if RCV$=ETX$ then *RSTRCVDAT STKDATA$=STKDATA$+RCV$ goto *RECEVEDATA '------------------------------------------------------------------------- 'データ読み込み終了 *RSTRCVDAT gosub *TRANACK:'ＡＣＫコード返信へ gosub *TRANEOT:'ＥＯＴコード受信へ gosub *KIROKU:'データ書き込みへ return ' '-------------------------------------------------------------------------- *MSG1 'print"受信開始要求のコードではありません．" 'print return' ' '------------------------------------------------------------------------- 'ＡＣＫコードの返信 *TRANACK print #1,ACK$ return '------------------------------------------------------------------------

十進BASICについて

!**************** メインルーチン **************** 110 call format　　!formatを呼び出し 210 do until right=1 220 　mouse poll mx,my,left,right　!マウス位置を取得 230 　if left=1 then 240 　　print mx,my　!クリックされた座標を表示 289 　end if 299 loop 999 end 220 　mouse poll mx,my,left,right　でsyntax errorがでます原因が分かる方よろしくお願いします。

パックマンゲーム敵の動きについて c言語

現在簡単なパックマンゲームを作成しています。以下のプログラムだと、・敵が壁にあたると全く動かなくなるという問題点があります。なので、例えば、「動ける(壁でない)方向のうち、移動後の距離が一番自機に近い方向に移動する」というアルゴリズムにしようと思ったのですが、全くコードが思い浮かべません。どんなコードをかけばいいでしょうか。できればコードを具体的に教えていただきたいです。お願いいたします。 #pragma warning(disable:4996) #include <stdio.h> #include <stdlib.h> // system() #include <windows.h> // Sleep() #include <conio.h> // kbhit() #define SIZE 15 // 一辺の長さ #define EMPTY 0 // 何もない場所は0 #define WALL 1 // 壁 #define FOOD 2 // えさ（ドット） #define POWER_FOOD 4 //パワーエサ #define PACMAN 3// 主人公 #define SIZE 15 // 一辺の長さ #define EMPTY 0 // 何もない場所は0 #define WALL 1 // 壁 #define FOOD 2 // えさ（ドット） #define PACMAN 3// 主人公 int main() { int wait_time = 300; int x, y; int food_count = 0;//エサの個数 int cx, cy;//パックマン int ex, ey;//敵 int key; int point = 0; int kx, ky;//自機の座標を保存 int mx, my;//敵機の座標を保存 int life = 3; // 壁１、えさ 2、空白 0 // field[y][x]となる int field[SIZE][SIZE] = { { 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 }, ・・・・・・・・・ { 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 }, }; cx = 7, cy = 7; //パックマンの初期位置 ex = 1, ey = 1;//敵の初期位置 //エサの個数を数える for (y = 0; y < SIZE; y++) { for (x = 0; x < SIZE; x++) { if (field[y][x] == FOOD) food_count++; } } while (1) { // まずはPACMANの動き if (kbhit()) { key = getch();// kx = cx, ky = cy;//自機の座標を保存する switch (key) { case '4': cx--; break; case '6': cx++; break; case '2': cy++; break; case '8': cy--; break; } cx = (cx + SIZE) % SIZE; //ワープ switch (field[cy][cx]) { case WALL://壁 cx = kx, cy = ky; //動けないので cx, cy を元に戻す break; case FOOD: field[cy][cx] = 0;//餌を食べると餌が消える point += 10; //得点加算 food_count--; //餌の数を減らしていく break; } if (cx == ex && cy == ey) life--; } // 敵機の動き mx = ex; my = ey;//敵機の座標を保存する if (ex > cx) ex--; else if (ex < cx) ex++; else if (ey > cy) ey--; else if (ey < cy) ey++; if (field[ey][ex] == WALL) //もし敵機が壁に当たったらもとの座標に戻す。 { ex = mx; ey = my; } ex = (ex + SIZE) % SIZE; //ワープ if (cx == ex && cy == ey) { life--; ex = 7, ey = 7; Sleep(wait_time); } //画面表示 for (y = 0; y < SIZE; y++) { for (x = 0; x < SIZE; x++) { if (x == cx && y == cy) printf("C "); else if (x == ex && y == ey) printf("◇"); else if (field[y][x] == FOOD) printf(". "); else if (field[y][x] == WALL) printf("■"); else printf(" "); } printf("\n"); } printf("\n"); printf(" (cx,cy) = (%d, %d)\n", cx, cy); printf(" point: %d\n", point); printf(" LIFE: %d\n", life); if (life == 0) { printf("game over\n"); Sleep(wait_time); break; } if (food_count == 0) { printf("game crer\n"); Sleep(wait_time); break; } Sleep(wait_time);//

SD(Zスコア）をパーセンタイルに変換

SD値(Zスコア）を（上からの）片側パーセンタイルに変換するコードをコピッてきて perlでプログラムしました（下記）。しかしSDが極端な値をとると、うまくいきません。そもそもSDとパーセンタイルの数学的関係については理解しておりません。このコードのどこを書き直せばご指導いただければ幸いです。 sub erf { my $x = $_[0]; my $return_value; if ( $x ne "" ){ my $m = 1.00; my $s = 1.00; my $sum = $x * 1.0; for ( my $i = 1; $i < 50; $i++ ){ $m *= $i; $s *= -1; $sum += ($s * $x**(2.00*$i + 1.0) )/($m * (2.0*$i + 1.0)); } $return_value = 2 * $sum/ sqrt(3.14159265358979); } else { print "erf input error"; exit; } return ( $return_value ); } sub SD_to_Percentile { my $sd = $_[0]; my $return_value; if ( $sd ne "" ){ my $area = &erf( $sd / 1.41421356)/2; my $one_sided_percentile = 50+$area*100; $return_value = (100 - $one_sided_percentile); } else { print "SD illegal<br>"; exit; } return( $return_value ); }

n88basicのプログラムを十進ベーシックに翻訳してください。

n88basicの次のプログラムを十1進ベーシックではどうなるのか教えてください。 10 cls 20 p=1000 30 for n=1 to 1000:next n 40 p=p-1 50 if p=-1 then end 60 locate 10,10:print p 70 goto 30

N88互換BASICで変換したが使えません。その４

750 LINE INPUT #1,PV$(0) 760 WHILE MID$(PV$,2,1)<>"E" 770 LINE INPUT #1,PV$ 780 KO.J=KO.J+1 :PV$(KO.J)=PV$ 790 WEND 800 CLOSE 810 OPEN FFF$ FOR APPEND AS #1 820 PRINT #1,Q$+FNF3$(PV$(0),5)+Q$+R$; 830 PRINT FNF4$(FNF3$(PV$(0),5)) 840 FOR J=1 TO KO.J 850 IF MID$(PV$(J),1,1)="S" THEN 920 860 PRINT #1,Q$+FNF2$(PV$(J),21,24)+Q$+R$; 870 XY=0 :JJ=J 880 IF J>10 AND J<21 THEN XY=1 :JJ=J-10 890 IF J>20 THEN XY=2 :JJ=J-20 900 LOCATE 3+XY*24,5+JJ 910 PRINT USING "(##)###.####";FNF5!(PV$(J),21);FNF5!(PV$(J),24); 920 NEXT 930 CLOSE 940 LOCATE 0, 2 :PRINT " 950 XX!=FRE(0) 960 RETURN 970 CLOSE :END 980 CLOSE 990 ' これで最後です。関連URL： http://oshiete1.goo.ne.jp/kotaeru.php3?q=324875 http://oshiete1.goo.ne.jp/kotaeru.php3?q=324879 http://oshiete1.goo.ne.jp/kotaeru.php3?q=324882

９９BASICで五目並べを作りたいのですが…

サブルーチン*CHECK_TABLEは、味方の色(COL：0が黒、1が白)の数を上から、右上、右、右下、下、左下、左、左上の８つの方向を順番に数えるプログラムなのですが、上手く動作しません。出来かけのソースを載せますので、誰か、助けてください。 100 '最初のプログラム(2009/03/18-05:44:23) 110 DIM MASU(640/32,480/32):CLC_X=23*32:CLC_Y=20*32:JUNBN=1 120 DIM CHKTBL_X(7):DIM CHKTBL_Y(7):DIM C(7) 130 CHKTBL_X(0)=0:CHKTBL_Y(0)=-1 140 CHKTBL_X(1)=1:CHKTBL_Y(1)=-1 150 CHKTBL_X(2)=1:CHKTBL_Y(2)=0 160 CHKTBL_X(3)=1:CHKTBL_Y(3)=1 170 CHKTBL_X(4)=0:CHKTBL_Y(4)=1 180 CHKTBL_X(5)=-1:CHKTBL_Y(5)=1 190 CHKTBL_X(6)=-1:CHKTBL_Y(6)=0 200 CHKTBL_X(7)=-1:CHKTBL_Y(7)=-1 210 PALETTE 8,(150,0,0) 220 *MAIN_LOOP'メインループ-------------------------------------------------- 230 CLS 3:SCREEN 3,5,0 240 GOSUB *DRAW_TABLE 250 GOSUB *GET_CLICK 260 SCREEN 3,1,0 270 GOTO *MAIN_LOOP '-------------------------------------------------------- 280 *DRAW_TABLE 290 LINE(0,0)-(640,480),8,BF '背景色を塗る 300 FOR I=0 TO 640/32 310 FOR J=0 TO 480/32 320 LINE(I*32,J*32)-(I*32+32,J*32+32),7,B '升目を描く 330 CX=I:CY=J 340 IF MASU(CX,CY)=1 THEN CIRCLE(I*32+16,J*32+16),16,0:PAINT(I*32+16,J*32+16),0 350 IF MASU(CX,CY)=2 THEN CIRCLE(I*32+16,J*32+16),16,7:PAINT(I*32+16,J*32+16),7 360 NEXT J'マスの値に応じて円の色を変える 370 NEXT I 380 RETURN 390 *GET_CLICK '------------------------------------------------------------- 400 'GET MOUSE 0,SW,MOUSE_X,MOUSE_Y 410 GET MOUSE 2,SW,CLC_X,CLC_Y 'クリックした座標を取得 420 IF CLC_X<>0 AND CLC_Y<>0 THEN CX=CLC_X\32:CY=CLC_Y\32 '32で割る 430 IF MASU(CX,CY)=0 AND FLAG=1 THEN MASU(CX,CY)=JUNBN+1 '順番通りにマスを反映させる 440 NUM1=CX:NUM2=CY:COL=JUNBN+1 450 GOSUB *CHECK_TABLE 460 FOR I=0 TO 7 480 IF C(I)>4 THEN WINCOLOR=JUNBN+1:GOSUB *WIN 485 PRINT "C(";I;")=";C(I) 490 NEXT I 500 MOUSE ON,2:ON MOUSE GOSUB *CHANGE_JUNBN 510 RETURN 520 *CHANGE_JUNBN 530 JUNBN=JUNBN XOR 1:FLAG=1 '順番を反転させる 540 RETURN 550 *CHECK_TABLE '----------------------------------------------------------- 560 FCOL=COL '味方の色 570 FOR I=0 TO 7 580 CHECK_X=NUM1:CHECK_Y=NUM2:COUNT=0 '指定の座標からチェックする 590 FOR J=0 TO 100 600 IF CHECK_X<0 OR CHECK_X>640/32 THEN GOTO *BK 610 IF CHECK_Y<0 OR CHECK_Y>480/32 THEN GOTO *BK 620 IF COUNT>0 AND MASU(CHECK_X,CHECK_Y)<>FCOL THEN GOTO *BK 630 IF COUNT>0 AND MASU(CHECK_X,CHECK_Y)=FCOL THEN C(I)=C(I)+1 640 CHECK_X=CHECK_X+CHKTBL_X(I):CHECK_Y=CHECK_Y+CHKTBL_Y(I) 650 COUNT=COUNT+1 660 NEXT J 670 *BK 680 NEXT I 690 RETURN 700 *WIN '------------------------------------------------------------------- 710 IF WINCOLOR=1 THEN PRINT"黒が勝ちました。!" ELSE PRINT"白が勝ちました。!" 720 RETURN

プログラミングのHSPなんですが、このソースの文字（敵、自）をチカチカ

プログラミングのHSPなんですが、このソースの文字（敵、自）をチカチカするのをどうにかしたいです。 redrawをどこにすればいいですか？このソースがおかしいのでしょうか？ソースがおかしければ正しいソースを書いていただけないでしょうか？よろしくお願いします /* よけゲー */ 自機位置x=100 : 自機位置y=100 screen 0,300,300 repeat gosub *自機移動 gosub *敵 gosub *味方 loop *自機移動 stick key,15 if key&1 : 自機位置x-=4 if key&4 : 自機位置x+=4 if key&2 : 自機位置y-=4 if key&8 : 自機位置y+=4 await 10 cls return *敵 mes "敵" return *味方 pos 自機位置x ,自機位置y mes "自" return

perlの構文がおかしいようです。

構文は以下の通りです。IF文のところがおかしいようですが、どこに間違いがあるのか教えていただけないでしょうか。 sub ippack { my ($a, $b, $c, $d) = @_; return ($a << 24) | ($b << 16) | ($c << 8) | $d; } sub ipunpack() { my ($n) = @_; return (($n>>24)&0xFF,($n>>16)&0xFF,($n>>8)&0xFF,$n&0xFF); } open (IN,"<useIP.txt") while(my $input = <IN>) { if ($input =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+) ([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/){; my $n = &ippack($1,$2,$3,$4); my $m = &ippack($5,$6,$7,$8); $n = $n & $m; $m = ~$m & 0xFFFFFFFF; for(my $i = 0; $i <= $m; $i++) { print join(".", &ipunpack($n+$i))."\n "; } } if-else($input =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/);{ print "$input\n"; } print "\n"; }

指数関数のプログラムを組んでいるのですが・・・（初心者）

指数関数のマクローリン展開のプログラムです。 x=１の場合はしっかりと値が収束するのですが、それ以外ではうまくいきません。以下のように組んだのですが、どこがまちがっているのでしょうか？１．ｎ！を求める。２．ｘ^ｎを求める。３．これらを割る。４．exに足していくという手順でやっているつもりです。よろしくおねがいします。＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ #include<stdio.h> main() { double a,i,j,k,l,m,n,x,ex; printf("x="); scanf("%lf",&x); n=1; ex=1; m=x; for(i=1;i<100;i++){ m=x; n=n*i; for(k=1;k<i;k++){ m=m*m; } a=m/n; if(a<0.000001){ return 0; }else{ m=x; ex=ex+a; } printf("%lf ",ex); } return() }

CORDICによるSIN/COSの計算

題目のアルゴリズムの計算をプログラムしましたが、期待値と計算値が合いません。誤りを指摘してください。 REM calculation of sin and cos by CORDIC k = 1 / .60725 z = .65 GOSUB 1000 PRINT "cos(z)="; x PRINT "sin(z)="; y END 1000 REM sin(z) , cos(z) x = 1 / k y = 0 i = 0 1010 IF z >= 0 THEN 1200 u = x + y * 2 ^ (-i) y = y - x * 2 ^ (-i) z = z + atan(2 ^ (-i)) x = u GOTO 1400 1200 u = x - y * 2 ^ (-i) y = y + x * 2 ^ (-i) z = z - atan(2 ^ (-i)) x = u 1400 i = i + 1 IF i < n THEN 1010 RETURN アルゴリズムの出展はディジタル信号による通信システム設計 P138 図3-36 CQ出版社

サブルーチンの処理

すみませんが教えてください。往年のＦ－ＢＡＳＩＣやＮ８８などでは 10 INPUT A 20 IF A=1 then gosub 100 ELSE PRINT "Aは1ではありません！" 30 END 100 PRINT A 110 RETURN こんなふうだったかサブルーチンが使えたかと思います。これをVB.NETでかくと Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim A As Integer A = TextBox1.Text If A = 1 Then　ここにどういれたらいいでしょう Else MsgBox("Aは１ではありません") End If End Sub End Class になるとおもうのですが、Thenのあとサブルーチンへ飛ばせるのでしょうか？それとも根本的に考え方が違うのでしょうか？初歩的な質問ですみませんが、Timer1.Enable = Trueを使った処理以外入門書に載っていないので、どなたかお教えいただけませんでしょうか。

異なる慣性系での運動エネルギーの差の矛盾

慣性系Xに対し速度Vで運動している慣性系Yにおいて、静止している物体（質量m）を速度vまで加速するのに必要なエネルギーEは、 Ey＝1/2mv^2 一方、慣性系Xで考えると、運動エネルギーの差から、 Ex＝1/2m{(V+v)^2-V^2}=1/2mv^2+mVv となり、Ex≠Eyです。この差 Ex-Ey=mVv の正体は何なのでしょうか？これと同様の質問がすでにありましたが、私にはよく理解できませんでした。 http://okwave.jp/qa/q3847095.html 相対性理論？（ある程度は理解しているので、数式での説明が欲しいです）反作用質量？（初めて聞きました）

ループが1回で終わってしまいます。

ファイルから文字列を一行ずつ読み込んで、文字列内の整数を比較してMIDI出力するようにしてるのですが、ループが一回で終わってしまっているらしく、ファイル内の文字列の初めの行しか読み込めていません。どこがおかしいのか自分では分からないので、わかる方教えてください！ちなみに、Visual C++ 2008 Express Edition、Win32APIです。以下が問題のソースです。 while(_fgetts(buf, 30, fp)){ if(feof(fp)){ break; }else{ _tcstok(buf, TEXT("\n")); _stscanf(buf, _T("- { x:%d, y:%d }"), &m, &n); if(n<200){ if((m>=0 && m<110)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x48 , 40)); return 0; }else if((m>=110 && m<220)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x50 , 40)); return 0; }else if((m>=220 && m<330)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x52 , 40)); return 0; }else if((m>=330 && m<440)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x53 , 40)); return 0; }else if((m>=440 && m<550)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x55 , 40)); return 0; }else if((m>=550 && m<660)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x57 , 40)); return 0; }else if((m>=660 && m<770)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x59 , 40)); return 0; }else{ break; } }else if(n>=200 && n<400){ if((m>=0 && m<110)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x36 , 40)); return 0; }else if((m>=110 && m<220)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x38 , 40)); return 0; }else if((m>=220 && m<330)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x40 , 40)); return 0; }else if((m>=330 && m<440)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x41 , 40)); return 0; }else if((m>=440 && m<550)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x43 , 40)); return 0; }else if((m>=550 && m<660)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x45 , 40)); return 0; }else if((m>=660 && m<770)){ midiOutShortMsg(hMidOut , MIDIMSG(0x90 , 0x47 , 40)); return 0; }else{ break; } } } ファイルの中身 - { x:543, y:62 } - { x:561, y:177 } - { x:26, y:375 } - { x:265, y:220 } . . . です。

N88互換BASICのプログラムについて。

私は機械科3年ですが、今年からBASICを勉強しています。次のプログラムのエラー(行番号190にてopenしたファイルに出力できないです)がどうしても解決できないです。N88互換BASICやられている方でどなたか私にアドバイスをしていただけると助かります。 110 REM EX1B by E/F on 2006/04/25 120 PI=3.14159:PHI=30:Y0=.5 130 '************ Output into File ************ 140 CLOSE #1:OPEN "C:\WINBASIC\EX1B_OUT.TXT" FOR OUTPUT AS #1 150 FOR X=0 TO 360 STEP 45 160 A=.2 :Y1=A*SIN((X-PHI))+Y0 170 A=1.2 :Y2=A*SIN((X-PHI))+Y0 180 A=2 :Y3=A*SIN((X-PHI))+Y0 190 PRINT #1,X;",";Y1;",";Y2;",";Y3" 200 PRINT"Out:";X;",";Y1;",";Y2;",";Y3 210 NEXT X 220 CLOSE #1 230 '************ Input from File ************** 240 CLOSE #2:OPEN "C:\WINBASIC\EX1B_OUT.TXT" FOR INPUT AS #2 250 IF EOF(2)<>0 THEN GOTO 190 260 INPUT #2,X,Y1,Y2,Y3 270 PRINT"Inp:x=";X;" y1=";Y1;" y2=";Y2;" y3=";Y3;" 280 GOTO 150 290 CLOSE #2 300 '***** Close All Files and Computer Stop***** 310 CLOSE 320 END

N88-日本語 BASIC ASCII ファイルの変換方法とは？

N88-日本語 BASIC ASCII ファイル

質問者が選んだベストアンサー

お礼 2015/01/04 17:16

補足 2015/01/04 18:07

その他の回答 (4)

お礼 2015/01/04 17:47

お礼 2015/01/04 17:47

お礼 2015/01/04 14:59

関連するQ&A

RPGツクール5で関数を使う方法を知りたいです

N88互換BASICで変換したが使えません。その３

サブルーチン

N88 basicプログラムの質問(ノルム計算)1

N88互換BASICで変換したが使えません。その２

ＦＢＡＳＩＣで作成したコードをｖｉｓｕａｌＢＡＳＩＣに変換したい

十進BASICについて

パックマンゲーム敵の動きについて c言語

SD(Zスコア）をパーセンタイルに変換

n88basicのプログラムを十進ベーシックに翻訳してください。

N88互換BASICで変換したが使えません。その４

９９BASICで五目並べを作りたいのですが…

プログラミングのHSPなんですが、このソースの文字（敵、自）をチカチカ

perlの構文がおかしいようです。

指数関数のプログラムを組んでいるのですが・・・（初心者）

CORDICによるSIN/COSの計算

サブルーチンの処理

異なる慣性系での運動エネルギーの差の矛盾

ループが1回で終わってしまいます。

N88互換BASICのプログラムについて。

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

N88-日本語 BASIC ASCII ファイルの変換方法とは？

N88-日本語 BASIC ASCII ファイル

質問者が選んだベストアンサー

お礼 2015/01/04 17:16

補足 2015/01/04 18:07

その他の回答 (4)

お礼 2015/01/04 17:47

お礼 2015/01/04 17:47

お礼 2015/01/04 14:59

関連するQ&A

RPGツクール5で関数を使う方法を知りたいです

N88互換BASICで変換したが使えません。その３

サブルーチン

N88 basicプログラムの質問(ノルム計算)1

N88互換BASICで変換したが使えません。その２

ＦＢＡＳＩＣで作成したコードをｖｉｓｕａｌＢＡＳＩＣに変換したい

十進BASICについて

パックマンゲーム 敵の動きについて c言語

SD(Zスコア）をパーセンタイルに変換

n88basicのプログラムを十進ベーシックに翻訳してください。

N88互換BASICで変換したが使えません。その４

９９BASICで五目並べを作りたいのですが…

プログラミングのHSPなんですが、このソースの文字（敵、自）をチカチカ

perlの構文がおかしいようです。

指数関数のプログラムを組んでいるのですが・・・（初心者）

CORDICによるSIN/COSの計算

サブルーチンの処理

異なる慣性系での運動エネルギーの差の矛盾

ループが1回で終わってしまいます。

N88互換BASICのプログラムについて。

注目のQ&A

カテゴリ

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

パックマンゲーム敵の動きについて c言語