ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
20 PRINT "鈴木"
30 PRINT "ゴンザレス"
40 END
そんなことは無理
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
身長が１６０ＣＭ以上で１７０ｃｍ未満の人の名前を表示する
20 READ $WAIT
30 READ $HEIGHT
40 READ $OLD
60 IF ($HEIGHT>=160)*($HEIGHT<170) THEN PRINT $NAME;$CHR(13)
50 IF (READ<>"END")*($WAIT<>0)*($HEIGHT<>0)*($OLD<>0) THEN 10
70 END
100 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA END,0,0,0
180 REM --INFORMATION END--
10 READ NAME$
20 READ WAIT
30 READ HEIGHT
40 READ OLD
60 IF (HEIGHT>=160)*(HEIGHT<170) THEN PRINT NAME$;CHR$(13)
50 IF (NAME$<>"END")*(WAIT<>0)*(HEIGHT<>0)*(OLD<>0) THEN 10
70 END
100 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA END,0,0,0
180 REM --INFORMATION END--
でも、Tiny Basic for Windowsだとエラーがでた。
下でないとエラーが出る。
10 READ NAME$
20 READ WAIT
30 READ HEIGHT
40 READ OLD
50 IF (HEIGHT>=160) and (HEIGHT<170) THEN PRINT NAME$;CHR$(13)
60 IF (NAME$<>"END") and (WAIT<>0) and (HEIGHT<>0) and (OLD<>0) THEN 10
70 END
80 REM --BODY INFORMATION--
110 DATA "SUZUKI",67,150,15
120 DATA "SATOU",80,180,24
130 DATA "ITO",74,170,18
140 DATA "TANAKA",90,190,20
150 DATA "YAMADA",45,168,16
160 DATA "SIMIZU",68,165,18
170 DATA "END",0,0,0
180 REM --INFORMATION END--
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
年齢が３０歳以下の人の、体重と身長の平均値を計算し表示する
2 FOR I=1 TO N: READ NA$,W,H,A:IF A<=30 THEN WA=WA+W: HA=HA+H: M=M+1:NEXT
3 IF M<>0 THEN PRINT "30歳以下の平均体重、身長:"; WA/M, HA/M
4 DATA （以下略）
N個のデータがエクセルで入力されている。OPEN文を用いて、最大値と
平均値を求めるプログラムをBASICで作成しなさい。
データはこんな感じで並んでいます。
2 4 6 8 9 3 1 7 5
宿題だからそうはいかないんです。
じゃぁ、自分でやれ。
＼＿＿＿ ＿＿＿/ ミ'' ''ヽ
Ｖ ミ ', - - ――
― ┼―ヽl ,､ l/ ミ;ヽ ミ ', ― ＼ /
〃")' ~´ﾍﾍ)"ヽ ミ; , l＼ :: ', ＼ ,-､,-､/
- - ― !( ソﾉ八)ヽ） ｿ '' :,ヽ＼:: lヽ￣―-('∀`；）―
- - ―――ヾl._ﾟヮﾉ!. .-[／二──― -_C Ｏ）>>6
(二====O===O三二=［!=!●二二二二==-○ ￣三二＝−―
- - ――― ./ｿ､j､iヾ. ﾍゝ. -[＼二──￣ ,―ﾉ￣ﾉ -
- - ―――~(_/ '-'~ ,,; ,''/／:: .lﾉ ―┼（ ）― -
彡 'l／ :: ,' ― / /.:^⌒^ ﾟ ＼丶
- - ――― ┼― 彡:;, ﾉ 彡 ,' -
彡 ,' - - ――
―― 彡,, ,,ﾉ
プログラムを作成しなさい。０を入力した場合に終了
20 IF KEY$="0" THEN END
30 NEW
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
最も体重の軽い人の名前を表示する
120 FOR I = 1 TO N
130 READ NA$(I),W,H,A
140 PRINT "No.";I,"体重";W
150 NEXT
160 INPUT "一番体重の軽い番号を入力して下さい:", X
170 IF X <= 0 OR N < X THEN 160
180 PRINT "一番体重の軽い人は "; NA$(X); " です."
190 END
200 DATA "SUZUKI",67,150,15
210 DATA "SATOU",80,180,24
220 DATA "ITO",74,170,18
230 DATA "TANAKA",90,190,20
240 DATA "YAMADA",45,168,16
20 PRINT "WAROTA"
22 GOTO 23
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
体重が６０ｋｇ以上で、身長が１５０ｃｍ未満の人の名前を表示する
それってすごく失礼だと思う。
ある。
氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成
しなさい
20 PRINT "個人情報保護の観点からお答えできません。ご了承下さい。"
30 END
20 PRINT "データに無い人の住所とか表示できません。"
30 PRINT "データにある人の住所だったらデータをそのまま読んだ方が早いです。"
40 END
ある。これを用いて次のプログラムをＢＡＳＩＣで作成しなさい
体重が６０ｋｇ以上で、身長が１５０ｃｍ未満の人の名前を表示する
先生、作ったら、名前を表示された人が自しました。
奇数×奇数の魔方陣の作り方
1. 上段の中央を1にする
2. 右上に次の数字を置いていく（最上段の上は最下段になる。）
3. 右上が埋まっていたら一つ下に次の数字を置く
4. 再び右上へと数字を埋めていく
5. 後は3,4の繰り返しで完成
二次元配列？
10 DIM A(99,99):INPUT "n";N:IF N MOD 2 = 0 THEN PRINT "（ ´,_ゝ｀）ﾌﾟｯ":END
20 X=N\2+1:Y=1:FOR I=1TO N*N:A(Y,X)=I:X=(X+(I MOD N=0)) MOD N+1:Y=Y+(I MOD N<>0)*2+1-((Y-(I MOD N=0)*2-1)=0)*N:NEXT
30 FOR I=1TO N:FOR J=1TO N:PRINT A(I,J);:NEXT:PRINT:NEXT:END
できることは出来るけど>>34の原理がわかんね
よかったら私のもお願いできませんでしょうか・・・(´Д｀;)
課題9
ttp://www.imgup.org/iup151444.gif
課題11
ttp://www.imgup.org/iup151447.gif
ttp://www.imgup.org/iup151450.gif
課題12
ttp://www.imgup.org/iup151453.gif
課題13
ttp://www.imgup.org/iup151455.gif
課題14
ttp://www.imgup.org/iup151456.gif
ttp://www.imgup.org/iup151457.gif
どうか、よろしくお願い致します(´･ω･`)
テキストで打ち込め。
画像なんか一々見ていられるか。
お前の手下のいるスレじゃないんだ。
力を貸してくれる人に対して、閲覧の手間くらいは省こうという
気はないのか?
何でもかんでも、人任せにするんじゃない。
Basic課題９ (2005/11/24)
１．配列に以下の値を代入して以下の計算をしなさい。
111+112+113+114+115+116+117+118+119+120+121=?
配列に代入した値も表示する。プログラムと結果を提出する。
２．配列に適当な値(15〜19個ぐらい)を代入(読み込む）しその値を出力
する。総和、平均、標準偏差を求め出力しなさい。配列内の値を小さい
順に並べて出力しなさい。
１．5行5列の行列[A]を作成し、値を表示しなさい。
行列に見えるように表示する。
データは「read文」を使用して代入する。
5行5列の行列[A]の転置行列を表示しなさい。
プログラムと結果を提出する。
２．2次元配列を使用して以下の計算をしなさい。
プログラムと結果を提出する。
（図は元の図を参照してください）
――――――――――――――→
01 02 03 04 05 06 07 08 09 10｜055 ｜
11 12 13 14 15 16 17 18 19 20｜155 ↓
21
：
：
91
---------------------------
460 470 ・・・ 550｜5050↓
ttp://www.imgup.org/iup151447.gif
ttp://www.imgup.org/iup151450.gif
を参照（全部で3つ）
問 以下の処理を1つのプログラムで記述します。プログラムは1つです。
１．5行5列の行列[A]にデータを入力し、表示しなさい。
データは不規則な値とする。
２．行列[A]の転置行列を行列[B]に代入し表示しなさい。
３．行列[A]＋行列[B]の計算をして表示しなさい。
４．行列[A]−行列[B]の計算をして表示しなさい。
５．行列[A]＊行列[B]の計算をして表示しなさい。
プログラムと結果を提出します。
どこまでできたのか、何が分からないのか、
を書けよ。
ほんとに全部まる投げか？
1
5 dim a$(1)
10 a$(0)=" 111+112+113+114+115+116+117+118+119+120+121=?"
20 print a$(0)
30 print 111+112+113+114+115+116+117+118+119+120+121
2
5 dim a$(1)
10 a$(0)="0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0"
20 print a$(0)
30 print 0
40 print 0
50 print 0
60 print a$(0)
全然わからないんです・・・orz (・ー・）ｵﾜｯﾀﾅ･･･
皆さん、ご迷惑をおかけして申し訳ございませんでした・・・(´つω-`)
ある。
氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成
しなさい
Microsoft Visual Studio .NETなんですが
よくある３×３マスの○×ゲームのソースをお願いできないでしょうか
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Debug.WriteLine("×|○|○")
Debug.WriteLine("--+--+--")
Debug.WriteLine("○|×| ")
Debug.WriteLine("--+--+--")
Debug.WriteLine(" | |×")
Debug.WriteLine("俺の勝ち")
End
End Sub
サンクス
助かりました
ある。
氏名を入力すると、住所と電話番号が表示されるプログラムをＢＡＳＩＣで作成
しなさい
期日が迫っているので、だれか早くこたえてくれ！！
110 N=5
120 INPUT "氏名：";S$
130 FOR I=1 TO N
140 READ A$,B$,C$
150 IF S$="氏名" THEN PRINT "住所と電話番号":END
160 NEXT
170 END
180 DATA "鈴木","北海道","AAAA-BB-CCCC"
190 DATA "佐藤","埼玉県","DDD-EEE-FFFF"
200 DATA "伊藤","奈良県","GGG-HHH-IIII"
210 DATA "田中","福岡県","JJJJ-KK-LLLL"
220 DATA "山田","沖縄県","MMMM-NN-OOOO"
を作成しなさい（ＦＯＲーＮＥＸＴを用いて）
ただし、Ｒ＝３．１４１５９/180とすると、sin(R*30)でsin30度の
値を求めることができる。
値を
sin(R*30) = 0.499999616987256
それで最終的にTinyBASICに落ち着いた。
他にもVB.NET・ActiveBasic・REALbasicがあるのを知っている。
その中からTinyBASICを選んだ俺の選択は正しかったですか？
10 goto 20
20 for i=0 to 180:print sin(3.1415926535897932384626433832795028841971693993751/180*i):next
30 rem sin関数ってラジアンなんですか？
1.SQR(N)を用いて、2から10までの自然数について、
Nとその平方根を表示するプログラムつくれ
ヒント：fo 〜 next
2.自然数Nを入力すると、
1+2+3・・・+Nを計算するプログラムつくれ
3.関数sin(X)とsin(180-x)の値を0度から180度まで
表示するプログラムつくれ
仕様の不明な部分については俺のｴｽﾊﾟｰ能力で補完しといてやった。
100 ' 1.
110 FOR N=2 TO 10: PRINT N, SQR(N): NEXT
120 ' 2.
130 INPUT "N=";N: S=0: FOR I=1 TO N: S=S+I: NEXT: PRINT S, N*(N+1)/2
140 ' 3.
150 S=10: FOR D=0 TO 180 STEP S: PRINT D, SIN(D*3.14/180), SIN((180-D)*3.14/180): NEXT
ありがとうございました。
There are a lot of roads that can be chosen.
However, the aimed top is one.
┌――─┴┴─――┐
│ セルフサービス .│
└―――┬┬─――┘
││ .／
゛゛'゛'゛ ／
／
| ＼／
＼ ＼
＼ノ
ｶﾞｯ はセルフサービスになりました。
使用方法は以下のようになります
∧
ｶﾞｯ< >＿∧
＝ ()二)Ｖ｀Д´）＜ぬるぽ
＼ヽ ﾉ ）
ﾉ(○´ノ
（＿ﾉ（_＿）
尚、使用方法を誤ると、最悪の場合、命を落とす危険性がございますので、
初めてご使用される方は、各都道府県に設置してある専門の窓口に相談下さい。
財団法人 全日本 ぬるぽｶﾞｯ セルフ振興会
もしくは64bitにネイティブ対応したテキスト置換ソフトありますか？
MsgBox "2, 3, 4の最小公倍数は12です。"
3 つの数が全て等しい場合なども考慮して良ければ自然数全体になるから、
1 から始めて 1 ずつ増やしながらコンピュータの限界まで数を表示し続ければ
良いでしょう。
もし異なるとすると厄介ですね。
一つの数が 1 でよいなら素数と素数の二乗を除いた全ての数になりますが、
これはちょっと難しいかも。
1 を許さないとするとかなり複雑になりますね。
ご指摘お願いします。
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
Dim tasu As Integer
Dim hiku As Integer
Dim kakeru As Integer
Dim waru As Integer
--------------------------
Private Sub Command1_Click()
Text1.Text = "0
End Sub
--------------------------
Private Sub Command10_Click()
Text1.Text = "9"
End Sub
--------------------------
Private Sub Command11_Click()
a = Val(Text1.Text)
b = Val(Text1.Text)
c = Val(Text1.Text)
d = Val(Text1.Text)
e = Val(Text1.Text)
f = Val(Text1.Text)
g = Val(Text1.Text
h = Val(Text1.Text
i = Val(Text1.Text)
j = Val(Text1.Text)
Text1.Text = ""
End Sub
Private Sub Command12_Click()
tasu = Val(Text1.Text)
hiku = Val(Text1.Text)
kakeru = Val(Text1.Text)
waru = Val(Text1.Text)
Select Case Val(Text1.Text)
Case 1
Select Case Val(Text1.Text)
Case 1
tasu = tasu + a
Text1.Text = tasu
Case 2
tasu = tasu + b
Text1.Text = tasu
Case 3
tasu = tasu + c
Text1.Text = tasu
Case 4
tasu = tasu + d
Text1.Text = tasu
Case 5
tasu = tasu + e
Text1.Text = tasu
tasu = tasu + f
Text1.Text = tasu
Case 7
tasu = tasu + g
Text1.Text = tasu
Case 8
tasu = tasu + h
Text1.Text = tasu
Case Else
tasu = tasu + i
Text1.Text = tasu
弟の高校の課題っぽいんですが、Cで作ったら全然違うとのこと
資料を送ってもらったらBASICっぽいのですが、BASICなんて分からないです…
gcmとかlcmで一発で動いてくれるようなコマンドはないのでしょうかね…
なあなあ、お前完全に>>72に騙されてるんだが。
誰も書いてくれないので難しいものなのかなと思いましたが
そんなわけないですよね。
まあ>>72は読んですぐスルーしましたけど。
これをVisualBasicに書き直すのがうまくいきません。
#include <stdio.h>
int lcm(int x,int y,int z);
main()
{
int a,b,c,d;
printf("整数aを入力 ");
scanf("%d",&a);
printf("整数bを入力 ");
scanf("%d",&b);
printf("整数cを入力 ");
scanf("%d",&c);
d = lcm(a,b,c);
printf("%d と %d と %d の最小公倍数は %d です。\n",a,b ,c,d);
}
int lcm(int x,int y,int z)
{
int answer;
answer = x;
while(1){
if(answer % y == 0 && answer % z == 0)
break;
answer += x;
}
return answer;
}
残りのUI関係は自分でやっとくれ。
Function lcm(ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) As Integer
Dim answer As Integer
answer = x
Do
If ((answer Mod y = 0) And (answer Mod z = 0)) Then Exit Do
answer = answer + x
Loop
lcm = answer
End Function
Function gcd(ByVal a As Integer, ByVal b As Integer) As Integer
Dim c As Integer
Do While b <> 0
c = a Mod b
a = b
b = c
Loop
gcd = a
End Function
Function lcm(ByVal a As Integer, ByVal b As Integer) As Integer
lcm = a * b / gcd(a, b)
End Function
Function lcm3(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As Integer
Dim d As Integer
d = lcm(a, b)
lcm3 = lcm(c, d)
End Function
ありがとうございました。
グラディエーションを表示するプログラムの作成お願いします。
もしあればその部分を知らせるプログラムお願いしますｍ_ _ｍ
たとえば、
「19529523」なら952が連続してるので952をといった風です
すみません。切れましたorz
(仮称)十進BASIC
INPUT s$
LET m=LEN(s$)
FOR n=1 TO INT(m/2)
FOR i=1 TO m-n+1
IF s$(i:i+n-1) = s$(i+n:i+2*n-1) THEN
PRINT s$(i:i+n-1)
END IF
NEXT i
NEXT n
END
ありがとうございます
腹抱えてワロタ
たとえば実行してから１秒後に"１秒経過しました"と表示させる場合とか。
つ TIME$
1 sleep(1000)
2 print "１秒経過しました"
サーンクス！！
つ play
c=a+b
PRINT c
のときのcの一桁目の数だけPRINTするにはどうすればいいんでしょうか？
文字列じゃないんでRIGHT$ではエラーになってしまいます・・・
PRINT (c MOD 10)
で出来るはず。
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
おまいら最強のシストレFXプログラムをしてみろよ (391)
Pythonについて（アンチ専用） (781)
CORBAなら俺に聞け (134)
自然言語処理スレッド その３ (462)
SDL=Simple DirectMedia Layerでゲームだ (522)
BASICの宿題はお前にまかせた (550)
--log9.info------------------
山梨の中学〜その３ (858)
静岡の高校 Part6 (365)
佐賀の高校 パート３ (670)
オヤジ・オバハン限定スレッド？？ (866)
福島の大学職場一般 Part8 (231)
沖縄の高校 その３ (591)
パーカッション総合スレ part14 (843)
鹿児島の高校★14 (250)
き→ん→し→ょ→う 完成でアンコン金賞 (297)
東関東の中学 総合スレ Part6 (120)
富山の大職一バンド vol.7 (249)
桶って大したことねーな。やっぱ吹奏楽が最強だろ。 (752)
富山の中学 パート５ (744)
宮崎の高校 パート４ (869)
徳島の高校 パート３ (478)
フルート総合スレ Part12 (193)
--log55.com------------------
堪能 3
Xリーグチア総合 vol.17
【横浜DeNA】diana その20【ディアーナ】
チア動画について語りましょうpart6
【中日】チアドラゴンズ Part.51 【チアドラ2019】
☆らいぞう☆事務所 ◎一番地◎
☆★★練習できないときマターリするスレ★★★
30歳超えてからスケート始めた人スレ
