トップページ⇒tech
204コメント32KB

BASICで１行ずつﾌﾟﾛｸﾞﾗﾑを組もう

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
1 CLS
000269式フリーPG ◆hND3Lufios NGNG
10 REM ２げっと
0003デフォルトの名無しさんNGNG
20 EXIT
0004デフォルトの名無しさんNGNG
3 REM ↑10はダメダメ 2を使ってください　
0005デフォルトの名無しさんNGNG
30　IREM　ｽﾍﾟﾗﾝｶｰ
0006デフォルトの名無しさんNGNG
40　GOTO 10
0007デフォルトの名無しさんNGNG
五十 終了
0008デフォルトの名無しさんNGNG
60
0009デフォルトの名無しさんNGNG
70
0010デフォルトの名無しさんNGNG
80 A$=INKEY$
0011デフォルトの名無しさんNGNG
90 NEW
001269式フリーPG ◆hND3Lufios NGNG
100 REM >>4 行番号を10毎にしないと、行を挿入するときどうするんですか？規約ですよ？
0013デフォルトの名無しさんNGNG
110　INT12 = "AHO"
0014デフォルトの名無しさんNGNG
100 new
0015デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
システム強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0016デフォルトの名無しさんNGNG
120 PRINT "なんでみんな終わらせたがるんだか。"
0017デフォルトの名無しさんNGNG
130 WAIT 32767
0018デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0019デフォルトの名無しさんNGNG
140 LOCATE 10,10:PRINT "氏ね"
0020デフォルトの名無しさんNGNG
11 EXEC &H0
0021デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0022デフォルトの名無しさんNGNG
150 PRINT "21は氏ね";:GOTO 150
0023デフォルトの名無しさんNGNG
151 SCREEN 0
0024デフォルトの名無しさんNGNG
でてこい かめ は 1
0025デフォルトの名無しさんNGNG
160 NEW CMD:CMD BGM 1:CMD PLAY "@1CDEFG" ' ごめんうろ覚えだ
0026デフォルトの名無しさんNGNG
ぬるぽ
0027デフォルトの名無しさんNGNG
170 TALK "M2 HOGE-."
0028デフォルトの名無しさんNGNG
180 PRINT CHR$(62)+CHR$(62)+CHR$(50)+CHR$(54)+CHR$(32)+CHR$(182)+CHR$(222)+CHR$(175)
0029デフォルトの名無しさんNGNG
290　LOCATE 5,5 : PRINT　"↑解読まんどくさい、なんてプリントされるの？"
003028NGNG
300 PRINT ">>26 ｶﾞｯ"
0031デフォルトの名無しさんNGNG
1000　REM 1000ｹﾞｯﾄ
0032デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0033デフォルトの名無しさんNGNG
てじゅんは　はじめ
かたちは　１６　ペンをおろせ　まえへ　１０　みぎへ　９０　ペンをあげろ　まえへ　２７０
おわり
0034デフォルトの名無しさんNGNG
310 input cd$">";p$
0035デフォルトの名無しさんNGNG
350 FOR I=1 TO 1000
0036デフォルトの名無しさんNGNG
360 IF I=777 THEN PRINT "(-__-)"
0037デフォルトの名無しさんNGNG
370 IF I=100 THEN "100 GET!"
0038デフォルトの名無しさんNGNG
380 for j = 0 to 50 : locate j, 0 : print " ＿|￣|○" : next
0039デフォルトの名無しさんNGNG
390 locate rnd*75, rnd*22 : print " ＿|￣|○" : next
0040デフォルトの名無しさんNGNG
400 IF INKEY$<>"" THEN 400
0041デフォルトの名無しさんNGNG
410 for i=0 to 5:print "ｷﾀ━━━━━━(ﾟ∀ﾟ)━━━━━━ !!":next
0042デフォルトの名無しさんNGNG
12 SCREEN 3:CONSOLE 0,25,0,1
0043デフォルトの名無しさんNGNG
430　for J=0 to 65535 : screen 0 : screen 3 : next j : print "CRT ｱﾎﾞｰﾝ"
0044デフォルトの名無しさんNGNG
442 OUT &HF0,0
0045デフォルトの名無しさんNGNG
>>44を実行してみろ。
実機で。
0046デフォルトの名無しさんNGNG
460 INPUT ">>43の機種はPC98かな (Y/N)",A$:IF A$="Y" OR A$="y" THEN OUT &HF0,0
004746NGNG
470 PRINT "激しくアンカミス＿|￣|○"
0048デフォルトの名無しさんNGNG
450 load "2ch"
0049デフォルトの名無しさんNGNG
Σ（´Д｀ ）　ｶﾞｰﾝ Sintax error
005043NGNG
PC-9821で動作確認しました。
005143NGNG
Xs
0052デフォルトの名無しさんNGNG
520 PRINT "あれって、ＰＣ９８だとリセットだっけ？"
0053デフォルトの名無しさんNGNG
電源関連だった羽津
0054デフォルトの名無しさんNGNG
540 a=int(rnd(1)*10):if a=0 then ?"ﾀｽｶﾙ" else ?"ｼﾇ"
0055デフォルトの名無しさんNGNG
550 FORI=0TO255:VDP(10)=I:NEXT
0056デフォルトの名無しさんNGNG
clear:difint a-z
0057BASICERNGNG
A$=INKEY$ : IF A$="a" or A$="A" THEN GOTO 430 ELSE IF A$="b" or A$="B" THEN GOTO 520 : GOTO 570
0058デフォルトの名無しさんNGNG
580 DIM M$(3): FOR I=1 TO 3: READ M$(I): NEXT I: WHILE 1: FOR I=1 TO 3: PRINT M$(I): NEXT I: WEND: DATA ">>49 Sintax error", ">>56 difint", "BASIC もまともに使えないとは...。": END
0059デフォルトの名無しさんNGNG
590 '******** モウワスレタヨ〜ン　*********
0060デフォルトの名無しさんNGNG
61 stop on
0061デフォルトの名無しさんNGNG
579 LPRINT "1000レス目でたぶん誰かGOTO 1使うであろう。止まらなかったらＥｓｃ押しといて。"
0062BASICERNGNG
IF X=>>49 THEN PRINT "Syntax error"
0063デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0064デフォルトの名無しさんNGNG
600 FOR I=0 TO 65535:POKEI,0:NEXT
0065デフォルトの名無しさんNGNG
class Man{ string name; int age; int height; int weight; public: Man(void){}~Man(){} };
0066BASICERNGNG
Line 65 Syntax error
0067デフォルトの名無しさんNGNG
「Line 67 Syntax error」と、言う。
0068デフォルトの名無しさんNGNG
repeat 10 : mes "BASIC" : loop
0069デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0070デフォルトの名無しさんNGNG
$msg="BASIC"; print "\$msg: \"$msg\"";
0071BASICERNGNG
Syntax error
OK■
0072デフォルトの名無しさんNGNG
char msg[]="BASIC"; printf("%s\n",msg);
0073デフォルトの名無しさんNGNG
age
0074デフォルトの名無しさんNGNG
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝
不正な処理です。強制終了します。
＝＝＝＝＝＝＝＝＝＝＝＝＝
0075デフォルトの名無しさんNGNG
DISPLAY "BASIC"
0076デフォルトの名無しさんNGNG
610 'BASICを読めない香具師が強制終了するスレはここですか（ｗ
0077デフォルトの名無しさんNGNG
REM 今日はここまで作った。
0078デフォルトの名無しさんNGNG
ハードディスクフォーマット完了
0079デフォルトの名無しさんNGNG
string msg="BASIC"; cout<<msg;
0080デフォルトの名無しさんNGNG
320 GOTO 1
0081デフォルトの名無しさんNGNG
81　print"ソフトウェア　インストレーション　プログラム"
0082デフォルトの名無しさんNGNG
82 名前：デフォルトの名無しさん[] 投稿日：04/03/25 14:45
document.write("BASIC<BR>");

83 名前：デフォルトの名無しさん[] 投稿日：04/03/25 15:38
cin >>1;

84 名前：くだらないことだけど・・・。[] 投稿日：04/03/25 16:42
BASICで、割り算のあまりを出す
プログラム教えてください

85 名前：デフォルトの名無しさん[sage] 投稿日：04/03/25 16:50
>>84
C=A-INT(A/B)*B
0083デフォルトの名無しさんNGNG
86 名前：デフォルトの名無しさん[sage] 投稿日：04/03/25 16:53
82 for a=1 to 100:x=(ran#*300)+1;line(x,x)-(x,x)

87 名前：デフォルトの名無しさん[sage] 投稿日：04/03/25 17:12
90 Locate Center:print "ｵﾝﾄﾞｩﾙﾗﾗｷﾞｯﾀﾝﾃﾞｨｽｶｰ!!?"

88 名前：くだらないことだけど・・・。[] 投稿日：04/03/25 17:28
>85さんありがとうございました


89 名前：デフォルトの名無しさん[] 投稿日：04/03/25 18:02
　　PRINT "Syntax error　　　;"



90 名前：デフォルトの名無しさん[] 投稿日：04/03/25 18:02
　　PRINT "だけどOK■"


91 名前：580[sage] 投稿日：04/03/25 21:35
100 NEW
110 REM BASICによる2ch的ゲーム

----ここまでログにありました。---
0084デフォルトの名無しさんNGNG
1840 MON 'モニタモード
0085BASICERNGNG
PRINT "age"
0086デフォルトの名無しさんNGNG
Declare Function MessageBox Lib "user32" Alias "MessageBoxA" _
　(ByVal hWnd As Long, _
　 ByVal lpText As String, _
　 ByVal lpCaption As String, _
　 ByVal uType As Long) As Long
0087デフォルトの名無しさんNGNG
＊87
母艦の、タイトルは、"87"
「age」と、言う。
終わり。
母艦浮上。
0088デフォルトの名無しさんNGNG
620 IF A=5 THEN GOTO10
0089デフォルトの名無しさんNGNG
890 print "オマン臭"
0090デフォルトの名無しさんNGNG
900 print "ぬるぽ"
0091BASICERNGNG
910 GOTO 890
0092デフォルトの名無しさんNGNG
920 print "　 ●／"
0093デフォルトの名無しさんNGNG
910 print ">>87"
911 print "ひまわり厨ハケーンと、言ってみるテスト。"
0094デフォルトの名無しさんNGNG
てじゅんは　ぬるぽ
かけ　”ぬるぽ
おわり
0095デフォルトの名無しさんNGNG
'日本語プログラム言語TTS
タイトルは、「ｶﾞｯ!」
「>>94［改行］ｶﾞｯ!」と、表示
終了。
0096デフォルトの名無しさんNGNG
"プログラミング言語BASICが明日5月1日に40歳の誕生日を迎える。プログラミング入門言語や初期のNEC98
シリーズのシェルとしてお世話になったスラド読者も多いだろう。読者諸兄のBASICにまつわる思い出や、
40歳になったことに対する祝いの言葉などを聞かせて欲しい。"

BASIC小史 や e-kiyo.lab. BASIC研究所 と言ったサイトによれば、BASIC は Dartmouth 大学の２人の数学者
John G. Kemeny と Professor Thomas Kurtz によって開発され、1964年5月1日にはじめてTSSシステム
(General Electric GE-225)上で実行されたそうだ。

http://slashdot.jp/articles/04/04/30/0459221.shtml?topic=58
0097デフォルトの名無しさんNGNG
920 USR($0F14)
0098デフォルトの名無しさんNGNG
980 beep 5,5,5 : print "98げっとズザーっとくらぁ"
0099デフォルトの名無しさんNGNG
990 ome$=">>100ome"
0100デフォルトの名無しさんNGNG
Illegal function call in 920
0101デフォルトの名無しさんNGNG
1000 REM >>100 920ｷﾞｮｳﾃﾞ ﾋﾟｯ ﾄ ｵﾄｶﾞ ﾅﾙﾝﾀﾞﾖ｡
0102デフォルトの名無しさんNGNG
1010 LOCATE 10,10:PRINT "THIS PROGRAM IS FOR PC-8001, NOT FOR MZ >>101"
0103デフォルトの名無しさんNGNG
1020 for i=1 to 50:beep:for j=1 to 255:next:next:goto 1020
0104デフォルトの名無しさんNGNG
1021 'age
0105デフォルトの名無しさんNGNG
1022 DATA "ｷﾉｳ ｶｲｼｬﾆ ﾒﾝｾﾂﾆｲｯﾀﾗ BASICﾉ ﾌﾟﾛｸﾞﾗﾑﾘｽﾄｶﾞ ｱｯﾀ YO!"
0106デフォルトの名無しさんNGNG
1060 Tawagoto$="それがどうした"
0107デフォルトの名無しさんNGNG
1080 RESTORE:READ A$:PRINT A$
0108デフォルトの名無しさんNGNG
1090 GOTO 1090 : END
0109デフォルトの名無しさんNGNG
1090 REM END文の意味無いし
0110デフォルトの名無しさんNGNG
1090 GOSUB 1090 : END
0111デフォルトの名無しさんNGNG
1100 OPEN "hoge.dat" FOR INPUT AS #1
0112デフォルトの名無しさんNGNG
1110 LINE INPUT #1,L$
0113デフォルトの名無しさんNGNG
???? READ FROM START
0114デフォルトの名無しさんNGNG
1120 out &ha6,1:cls 3
0115デフォルトの名無しさんNGNG
mon

h* G0
0116デフォルトの名無しさんNGNG
?Redo from start
0117デフォルトの名無しさんNGNG
console ,,0:for i=1 to 10:key i,chr$(12)+"new"+chr$(13):next
0118デフォルトの名無しさんNGNG
118 for i=0 to 12:i=i+2:print i:next i
0119デフォルトの名無しさんNGNG
NEW
OK
■
0120デフォルトの名無しさんNGNG
120 INPUT "ぬるぽしますか(Y/N)";Q$ : IF Q$="Y" THEN PRINT "ｶﾞｯ!" ELSE GOTO 120
0121デフォルトの名無しさんNGNG
TM
0122デフォルトの名無しさんNGNG
CLS
0123デフォルトの名無しさんNGNG
POLL
0124デフォルトの名無しさんNGNG
BEEP 1
0125デフォルトの名無しさんNGNG
new on 21
0126デフォルトの名無しさんNGNG
1260 PLAY "L8BB4.AAGGAG^GE^E4R4EE^EEG4E4AA+^A+B^B4R4": GOTO 1260
0127デフォルトの名無しさんNGNG
126 REM ｷｮｳﾊ ｺｺﾏﾃﾞ ﾖﾝﾀﾞ
0128デフォルトの名無しさんNGNG
128 FOR I=0 TO 100 STEP 2:I=I*2:NEXT I
0129デフォルトの名無しさんNGNG
129 REM ｷｮｳﾊ ｺｺﾏﾃﾞ ﾖﾝﾀﾞ
0130デフォルトの名無しさんNGNG
130 REM ｷｮｳﾓ ｺｺﾏﾃﾞ ﾖﾝﾀﾞ
0131デフォルトの名無しさんNGNG
131 IF INP(9)<>191 THEN 131
0132e-NGNG
kkkkk
0133デフォルトの名無しさんNGNG
133 'ﾎｼｭ
0134初心者NGNG
visual basicで
『フォームに６個のピクチャボックスを作成し、
ピクチャボックス番号と色指定をすると、指定された
ピクチャボックスがその色で塗られる』
という課題なのですが教えてください
0135デフォルトの名無しさんNGNG
>>134
ﾏﾙﾁ氏ね
0136デフォルトの名無しさんNGNG
>>134
解決したらそれもマルチポストしとけよ
0137デフォルトの名無しさんNGNG
409 if no409=荒らし or no409=煽り then 地獄 else 天国
0138デフォルトの名無しさんNGNG
410 if no410=荒らし or no410=煽り then 地獄 else 天国
0139デフォルトの名無しさんNGNG
420 WHILE 1: BEEP: WEND
0140デフォルトの名無しさんNGNG
421 call 141
0141デフォルトの名無しさんNGNG
MANNKO 22 THEN 44：
0142デフォルトの名無しさんNGNG
555 LINE(0,0)-(80,25),"■",BF
0143デフォルトの名無しさんNGNG
560 VIEW (0, 0) - (639, 399): WINDOW (639, 399) - (0, 0)
0144デフォルトの名無しさんNGNG
cls
570 input "これまでのスレを全部印刷します　全員プリンタを準備して下さい　用意ができたらｙを入力してリターンを押してください";zzz
580 if zzz=y　then goto 600
590 goto 570
600 llist
0145EXCULTer's / Active PC ◆xCyLv.Cgwg NGNG
610 new
0146デフォルトの名無しさんNGNG
620 POKE(0, 118) : USR(0)
0147デフォルトの名無しさんNGNG
630 TALK "F1 NURUPO"
640 NEW
0148デフォルトの名無しさんNGNG
650 PRINT CHR$(12)
0149デフォルトの名無しさんNGNG
0150デフォルトの名無しさんNGNG
GoTo 570
0151デフォルトの名無しさんNGNG
Illeagual Line Number 570
0152デフォルトの名無しさんNGNG
660 GOTO 俺の家
0153デフォルトの名無しさんNGNG
MANNKO 22 THEN 44：
0154デフォルトの名無しさんNGNG
RENUMBER
0155デフォルトの名無しさんNGNG
155 REM KOKOMADEYONDA
0156デフォルトの名無しさんNGNG
156 REM 2005
0157デフォルトの名無しさんNGNG
157 age
0158デフォルトの名無しさん05/01/18 20:54:39
990 END
0159デフォルトの名無しさん05/01/18 21:58:54
980 GOTO 1000
0160デフォルトの名無しさん05/01/18 23:11:31
990 LABEL0: I% = INKEY$(1)
0161デフォルトの名無しさん05/01/20 17:50:21
5 GOTO 1000
0162デフォルトの名無しさん05/01/20 18:13:31
650 PRINT "みなさん 寒いので灯油とライターを用意してください"
660 GOTO >>152の家
670 着火!!
0163デフォルトの名無しさん05/01/24 19:26:27
680 IF >>152の家 = DNQ呆手 ELSE GOTO 710
690 PRINT "放火犯は>>162です。K察を呼びます。"
700 CALL TELEPHONE(110)
0164秘密Ｋ殺隊員１１号05/01/28 15:18:24
>162
お前を放火未遂罪で逮捕する！
0165デフォルトの名無しさん05/01/28 15:19:21
時代遅れスレのためsage放置推奨
0166デフォルトの名無しさん05/02/19 20:59:05
710 '
720 CLS 3
730 GOSUB *AGE
730 GOTO 800
740 '
750 *AGE
760 LET SLEDNO%=1
770 IF SLEDNO%<>1 THEN GOTO 760
780 RETURN

0167デフォルトの名無しさん2005/03/31(木) 19:23:25
790 REM 全員プリンタ用意！
800 LPRINT "ぬるぽ"
810 LPRINT "ガッ禁止"
0168デフォルトの名無しさん2005/03/31(木) 23:58:44
NEW ON
10 PRINT 'NULLPO ';
20 GOTO 10
RUN
0169デフォルトの名無しさん2005/04/01(金) 00:03:36
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
0170デフォルトの名無しさん2005/04/01(金) 00:06:01
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO NULLPO
0171デフォルトの名無しさん2005/04/07(木) 12:06:31
NEW
100 PRINT ">>169-170　ガッ"
110 GOTO "100"
0172デフォルトの名無しさん2005/04/07(木) 19:09:00
ﾄﾝﾄｶｲﾓ
0173デフォルトの名無しさん2005/07/17(日) 00:35:02
>DIR

N88BASIC.EXE

0174BASIC2005/11/23(水) 20:29:02
キーボードより入力したデータの中で最大値と最小値を求める
プログラムを作成しなさい。０を入力した場合に終了
0175デフォルトの名無しさん2005/11/24(木) 13:36:29
>>174
10 MAX=0
20 MIN=1000000
30 INPUT N
40 IF N = 0 THEN GOTO 80
50 IF N > MAX THEN MAX = N
60 IF N < MIN THEN MIN = N
70 GOTO 30
80 PRINT MAX,MIN
90 END
0176BASIC2005/12/01(木) 16:28:30
N人分のデータ（氏名、体重、身長、年齢）がＤＡＴＡ文で入力されているプログラムが
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
１、最も体重の軽い人の名前を表示する
２、身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
３、体重が６０ｋｇ以上で、身長が１５０ｃｍ未満の人の名前を表示する
４、年齢が３０歳以下の人の、体重と身長の平均値を計算し表示する

0177BASIC2005/12/14(水) 15:51:43
次のプログラムをＢＡＳＩＣで作成しなさい

データを１件ずつ、ユーザ定義関数を利用して
「公共料金」を計算させることにします
＜電気料金の計算＞
基本料金：1800円 定量制料金単価は
・使用量が90Kwh以下であれば18.14円／Kwh
・ 〃 90Kwh超230Kwh以下であれば24.85円／Kwh
・ 〃 230Kwh超であれば27.21円／Kwh
（料金計算例）
70Kwh使用した場合：1800＋70×18.14
120Kwh使用した場合：1800＋90×18.14＋(120−90)×24.85
＝3432.6＋(120−90)×24.85
250Kwh使用した場合：1800＋90×18.14＋140×24.85＋(250−230)×27.21
＝6911.6＋(250−230)×27.21
0178デフォルトの名無しさん2005/12/14(水) 20:40:51
178 GOTO 178
0179デフォルトの名無しさん2005/12/16(金) 02:30:03
>176
どのBASICを使うかでかなり難易度が違ってくる訳だが。

モノによってはソート関数実装してたりする品。
0180デフォルトの名無しさん2005/12/18(日) 16:22:09
エラー処理ってあったら
エラーが起きても復帰できるんだが
====ひまわり====
えらーに　エラー処理設定
『dscsdeqdaqw:dwedewewd\』を　読む
復帰したーと　言う
おわり
待機
母艦浮上
*えらー
『エラー』と　言う
エラー復帰
===ひまわり===============
0181デフォルトの名無しさん2005/12/18(日) 16:25:54
811 PASS "2chﾊﾞﾝｻﾞｰｲ"
0182デフォルトの名無しさん2005/12/18(日) 17:23:59
10 SAY "ｶﾝｼﾞ ｶﾝｼﾞ"
20 SAY "ﾃﾂﾔ ﾃﾂﾔ"
30 GOTO 10
0183デフォルトの名無しさん2005/12/18(日) 17:58:35
812 goto 1
0184デフォルトの名無しさん2006/01/29(日) 20:22:08
問１：「あたかも」を使ってプログラムをBASICを作りなさい。
0185デフォルトの名無しさん2006/01/30(月) 17:13:35
820 A$="あたかも"
0186デフォルトの名無しさん2006/01/30(月) 19:26:01
830 PRINT "冷蔵庫に牛乳が";A$;"しれない"
0187デフォルトの名無しさん2006/01/30(月) 20:01:04
840 LIST 1-
850 GOTO 840
0188デフォルトの名無しさん2006/02/03(金) 08:37:13
10 SCREEN 2,2,0,1
0189デフォルトの名無しさん2006/02/22(水) 21:40:37
goto 1
0190デフォルトの名無しさん2006/03/08(水) 11:24:12
Out of memory
0191デフォルトの名無しさん2006/03/16(木) 13:47:45
860 REM 問2：「うってかわった」を使ってBASICでプログラムを作りなさい。
0192デフォルトの名無しさん2006/03/16(木) 22:06:21
870 GOTO 861
0193http://www.vector.co.jp/soft/win95/util/se072729.html2006/03/18(土) 19:45:32
TextSS　のWindowsXP(Professional)64bit化おながいします

もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？
0194デフォルトの名無しさん2006/04/15(土) 02:13:49
wait 65535
0195デフォルトの名無しさん2006/04/15(土) 07:07:53
880 A$="うってかわった"
881 PRINT "彼は麻薬を";A$
0196デフォルトの名無しさん2006/04/17(月) 12:46:17
890 GOTO 910
0197デフォルトの名無しさん2006/04/18(火) 01:41:15
895 REM　 ｧ　 ∧,,_,,∧　ｧ,､
900 REM　,､'` （　´∀｀）　,､'`
905 REM　 '` 　( ⊃ ⊂)　　'`
0198デフォルトの名無しさん2006/06/11(日) 23:13:34
SAVE
0199デフォルトの名無しさん2006/06/15(木) 09:39:08
POKE &H07,&HB7
0200デフォルトの名無しさん2006/06/16(金) 17:33:16
10 FOR I = 1 TO 65535
20 POKE 0, I
30 NEXT I
0201デフォルトの名無しさん2006/06/17(土) 21:50:47
910 PRINT "ぬるぽ"
0202デフォルトの名無しさん2006/10/29(日) 18:45:51
>>201ｶﾞｯ
>>203ｶﾞｯ
0203デフォルトの名無しさん2006/10/29(日) 19:39:21
ぬるり
0204デフォルトの名無しさん2006/10/30(月) 00:19:57
10000 goto 10000
■ このスレッドは過去ログ倉庫に格納されています