こんなことはできますか？机・いすの移動

　　こんなことはできますか？机・いすの移動 もりの 2004/02/14 20:26:26 
　　├その１ 山中和義 2004/02/15 14:49:51 
　　│└ありがとうございます もりの 2004/02/15 15:41:19 
　　├その２ 山中和義 2004/02/15 14:51:28 
　　├その３ 山中和義 2004/02/15 14:52:07 
　　│└ありがとうございます もりの 2004/02/15 15:38:37 
　　├その４ 山中和義 2004/02/15 14:52:59 
　　└その５ 山中和義 2004/02/15 14:53:48 
　　　└実行してみましたが もりの 2004/02/15 16:43:59 
　　　　└確認ですが 山中和義 2004/02/15 16:59:17 
　　　　　├できれば自動的に もりの 2004/02/15 17:41:53 
　　　　　└とりあえず もりの 2004/02/15 18:48:56 
　　　　　　├支障がなければ、エクセルのデータを 山中和義 2004/02/15 21:29:44 
　　　　　　│├さきほど届いていたメールに もりの 2004/02/15 21:37:40 
　　　　　　│└セキュリティーのためデータはおくれません... もりの 2004/02/15 21:47:08 
　　　　　　│　└号数はうち間違えました もりの 2004/02/15 21:55:53 
　　　　　　│　　└やっぱりクラスの児童数は３０～４０にんま... もりの 2004/02/15 21:58:24 
　　　　　　│　　　└表の中に直接入力し もりの 2004/02/15 23:05:50 
　　　　　　├どうやって、渡せるの？ 山中和義 2004/02/15 23:16:48 
　　　　　　│├もっていますが もりの 2004/02/15 23:54:25 
　　　　　　│└掲示板でいいですよ もりの 2004/02/15 23:55:18 
　　　　　　└いま、メールを送りました。 山中和義 2004/02/16 00:11:00 
　　　　　　　├に机１で文法エラーに もりの 2004/02/16 00:40:58 
　　　　　　　├プログラムがちゃんと もりの 2004/02/16 00:44:51 
　　　　　　　└-DESKでまだひっかかって もりの 2004/02/16 01:00:18 
　　　　　　　　└送付したプログラムはそのままで実行できま... 山中和義 2004/02/16 09:31:46 
　　　　　　　　　└変更していませんが もりの 2004/02/16 21:09:48

　　こんなことはできますか？机・いすの移動 もりの 2004/02/14 20:26:26  ツリーへ

こんなことはできますか？机・いすの移動 返事を書く

もりの 2004/02/14 20:26:26

机・いすの号数が1号から９号まで
あります

１年から６年までの各学年
各教室の生徒数はそれぞれ
○○人です

さてどの教室から
どの教室へ
机をなんこ
いすをなんこ
もっていけばいいでしょうか？

要するに生徒数からみて
あまった机・いすを足りないクラスへ
もっていくということですが
こんなこと今まで表計算で一覧表を
つくり過不足に応じて
自分で考えもって行き先を
わりあててきましたが
こんなことプログラムでできるでしょうか
できたらすごいね。。
感謝

いままで１週間かかっていた仕事が
一日でできるね
おもしりそうだとおもったかた
つくってみたいと思ったかた
いられましたらカキコしてくださいね

完成したらそれを使って
プランをつくってみたいと
思います

あさってからその仕事を始める
予定です

そんなものできないよ
だったらロータスでやって
みるつもりですが

十進でできる気もしますね

優秀な方ばかりですから
チャレンジしてみませんか？

　　├その１ 山中和義 2004/02/15 14:49:51  ツリーへ

Re: こんなことはできますか？机・いすの移動 返事を書く

山中和義 2004/02/15 14:49:51

その１
!教室の数、教室名称を設定する
LET NUM_ROOM = 15
DATA "教室１","教室２","教室３","教室４","教室５" !1年1組とか、理科室とか
DATA "教室６","教室７","教室８","教室９","教室10"
DATA "教室11","教室12","教室13","教室14","教室15"
dim room_name$(100) !※最大数(100教室)
for i=1 to NUM_ROOM
read room_name$(i)
next i

　　│└ありがとうございます もりの 2004/02/15 15:41:19  ツリーへ

Re: その１ 返事を書く

もりの 2004/02/15 15:41:19

ありがとうございます
もしよろっしければ
メールで送ってください
アドレスは
　
stdoor24_12@hotmail.com

です
よろしくお願いいたします
いまうごかしてみますね

　　├その２ 山中和義 2004/02/15 14:51:28  ツリーへ

Re: こんなことはできますか？机・いすの移動 返事を書く

山中和義 2004/02/15 14:51:28

その２
!各教室の今の机の数(上段)、変更後の数(下段)を設定する　※順に１～９号
LET NUM_DESK = 9
!教室１
DATA 4,4,4,4,4,4,4,4,4 !今
DATA 1,4,2,0,0,1,1,1,1 !変更後
!教室２
DATA 3,3,3,3,3,3,3,3,3
DATA 2,3,4,4,2,2,2,2,2
!教室３
DATA 2,2,2,2,2,2,2,2,2
DATA 5,5,5,5,5,5,5,5,5
!教室４
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室５
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室６
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室７
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室８
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室９
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室10
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室11
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室12
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室13
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室14
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0
!教室15
DATA 0,0,0,0,0,0,0,0,0
DATA 0,0,0,0,0,0,0,0,0

dim desk_now(100,20),desk_update(100,20) !※最大数(100教室、20号数)
for i=1 to NUM_ROOM
for j=1 to NUM_DESK
read desk_now(i,j) !今の教室iのj号机の数を読込む
next j
for j=1 to NUM_DESK
read desk_update(i,j) !変更後の教室iのj号机の数を読込む
next j
next i

　　├その３ 山中和義 2004/02/15 14:52:07  ツリーへ

Re: こんなことはできますか？机・いすの移動 返事を書く

山中和義 2004/02/15 14:52:07

その３
!教室の配置を設定する　※移動する際、「最寄の教室」になる
!教室１　※０、自教室は検索対象外になる
DATA 2,3,10,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室２、教室３、教室10の順に検索する
!教室２
DATA 1,3,6,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室３
DATA 2,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室４
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室５
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室６
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室７
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室８
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室９
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室10
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室11
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室12
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室13
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室14
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
!教室15
DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0
dim room_from(100,100)
for i=1 to NUM_ROOM
for j=1 to NUM_ROOM
read room_from(i,j)
next j
next i

　　│└ありがとうございます もりの 2004/02/15 15:38:37  ツリーへ

Re: その３ 返事を書く

もりの 2004/02/15 15:38:37

ありがとうございます
もしよろしかったら
メールでプログラムを
送っていただけますか
きづいた点を連絡させて
もらいますので
このプログラムで
机・イスの移動が
できれば
今年は私がかかりですが
どの学校でも
仕えるでしょう
今は学年普通クラス
４クラス
特別教室10こ
あまった机イス
を入れてある倉庫
Ａ・Ｂです最大１１０クラスまで
対応できればいいと思います
カキコしていただいたプロ
いま動かして
感想かきますね

　　├その４ 山中和義 2004/02/15 14:52:59  ツリーへ

Re: こんなことはできますか？机・いすの移動 返事を書く

山中和義 2004/02/15 14:52:59

その４
!各教室の机の移動できる数を算出する
dim desk_move(100,20)
for i=1 to NUM_ROOM
for j=1 to NUM_DESK
LET desk_move(i,j) = desk_now(i,j) - desk_update(i,j) !負は不足分。他の教室から拝借する
next j
next i

!机の移動を考える
print "--- 移動明細 ---"
for i=1 to NUM_ROOM
print "●";room_name$(i)
for j=1 to NUM_DESK
if desk_move(i,j)<0 then !不足していたら、他からもってくる
print j;"号机"
LET flag = 0
for k=1 to NUM_ROOM !最寄の教室から順に捜す
LET rm = room_from(i,k)
if rm>0 then !ちゃんと設定されていたら
!!! if rm>0 and rm<>i then !ちゃんと設定されていたら
if desk_move(rm,j)>0 then !移動可能なら
LET flag = -1

LET a = desk_move(rm,j) - (-desk_move(i,j))
if a>0 then !移動元に十分あれば
print "　";room_name$(rm);"から";-desk_move(i,j);"移動させる"
!!! print room_name$(rm);"から";j;"号机を";-desk_move(i,j);"移動させる"
LET desk_move(i,j) = 0 !過不足なし
LET desk_move(rm,j) = a !移動元は移動した数だけ減らします
else !なければ、その数だけ
print "　";room_name$(rm);"から";desk_move(rm,j);"移動させる"
!!! print room_name$(rm);"から";j;"号机を";desk_move(rm,j);"移動させる"
LET desk_move(i,j) = desk_move(i,j) + desk_move(rm,j) !移動した数だけ増やします
LET desk_move(rm,j) = 0 !移動元はは０になりました
end if
end if
if desk_move(i,j)=0 then !過不足がなくなれば、次の教室へ
exit for
end if
end if
next k

if flag=0 then print "　どこからも移動できません。"
end if
next j
next i

　　└その５ 山中和義 2004/02/15 14:53:48  ツリーへ

Re: こんなことはできますか？机・いすの移動 返事を書く

山中和義 2004/02/15 14:53:48

その５
!移動可能で移動されない机の数を表示する
print
print "--- 移動結果 ---"
for i=1 to NUM_ROOM
print "●";room_name$(i)
print "今　　　　　　";
for j=1 to NUM_DESK
print desk_now(i,j);
next j
print
print "変更希望　　　";
for j=1 to NUM_DESK
print desk_update(i,j);
next j
print
print "余り(負:不足) ";
for j=1 to NUM_DESK
print desk_move(i,j);
next j
print
print "変更後　　　　";
for j=1 to NUM_DESK
print desk_update(i,j)+desk_move(i,j);
next j
print
next i

END

　　　└実行してみましたが もりの 2004/02/15 16:43:59  ツリーへ

Re: その５ 返事を書く

もりの 2004/02/15 16:43:59

実行してみましたが
全部プログラムが流れてしまって
なにがなんだか
わかりませんでした
１年１組　
在籍数　　名　机　　個　いす　　個
と入力・表示した後

何号の机　　　何年何組へ　　なんこもっていく

というように指示がだせるといいですね

全体の一覧表を表示・印刷したと
指示をだす個票をうちだせるといいですね

実際の作業では個票をもっていく
机といすに貼り付けます

改良できますでしょうか？

入力枠はひつようですね

　　　　└確認ですが 山中和義 2004/02/15 16:59:17  ツリーへ

Re: 実行してみましたが 返事を書く

山中和義 2004/02/15 16:59:17

確認ですが
>実行してみましたが
>全部プログラムが流れてしまって
>なにがなんだかわかりませんでした

十進BASICの実行画面はスクロールすると表示した
文は読めますが、、、

>１年１組
>在籍数　　名　机　　個　いす　　個
>と入力・表示した後
>
>何号の机　　　何年何組へ　　なんこもっていく
>
>というように指示がだせるといいですね

人間が移動先、個数を指示するのですか？
プログラムが一例を提案するものを
求めていらしたのではないですか？

>入力枠はひつようですね

DATA文で個数を記述した方が、
毎回実行するたびに入力する
手間が省けけますが、、、

　　　　　├できれば自動的に もりの 2004/02/15 17:41:53  ツリーへ

Re: 確認ですが 返事を書く

もりの 2004/02/15 17:41:53

できれば自動的に
わりふれれば
いいですね
でも必ずあとで
調整が必要になりますので
コンピュータで割り振った
あと手動で訂正できる
ようにしていただけますでしょうか？

　　　　　└とりあえず もりの 2004/02/15 18:48:56  ツリーへ

Re: 確認ですが 返事を書く

もりの 2004/02/15 18:48:56

とりあえず

机　椅子　とも１号から９号までの
教室数は５０までの一覧表をエクセル
で作成いたしました
もし改良して使えるようでしたら
つかってみたいですね
私がエクセルでやるのと
どちらがはやいでしょう

エクセルでマクロの
処理ができればそれでも
いいんですが

十進でできるといいですね

　　　　　　├支障がなければ、エクセルのデータを 山中和義 2004/02/15 21:29:44  ツリーへ

Re: とりあえず 返事を書く

山中和義 2004/02/15 21:29:44

支障がなければ、エクセルのデータを
メールしてください。
そのデータでプログラムしてみます。

kz4ymnk@ymg.urban.ne.jp

　　　　　　│├さきほど届いていたメールに もりの 2004/02/15 21:37:40  ツリーへ

Re: 支障がなければ、エクセルのデータを 返事を書く

もりの 2004/02/15 21:37:40

さきほど届いていたメールに
ついてですが
安全でないため
途中で遮断しましたと
ホットメールのメッセージが
でていました・・
中身ですからみていません

　　　　　　│└セキュリティーのためデータはおくれません... もりの 2004/02/15 21:47:08  ツリーへ

Re: 支障がなければ、エクセルのデータを 返事を書く

もりの 2004/02/15 21:47:08

セキュリティーのためデータはおくれませんが
エクセルでつくったのはこんな感じです

　　　机一覧表　　　月　　日　現在　　

　　　　　１号　２号　３号　４号　５号　６号　７号　８号　９号
１年１組　　　　１５　２０　　　
１年２組　　　　１６　２０
　｜
６年４組　　　　　　　　　　　　　　　　　　　　５　　３０

　
椅子も同じ

まだ移動一覧表は作っていません

　　　　　　│　└号数はうち間違えました もりの 2004/02/15 21:55:53  ツリーへ

Re: セキュリティーのためデータはおくれません... 返事を書く

もりの 2004/02/15 21:55:53

号数はうち間違えました

６年が　１号
５年が　２号
４年が　３号
３年が　４号
２年が　５号
１年が　６号です
大体ひとクラス３６人くらいですから
クラスの児童数は３６として
適当に机や椅子の数を２、３個＋－おおくしたり
少なくしたりしてみて下さい

　　　　　　│　　└やっぱりクラスの児童数は３０～４０にんま... もりの 2004/02/15 21:58:24  ツリーへ

Re: 号数はうち間違えました 返事を書く

もりの 2004/02/15 21:58:24

やっぱりクラスの児童数は３０～４０にんまで
入力できなけばやはりだめですね

　　　　　　│　　　└表の中に直接入力し もりの 2004/02/15 23:05:50  ツリーへ

Re: やっぱりクラスの児童数は３０～４０にんま... 返事を書く

もりの 2004/02/15 23:05:50

表の中に直接入力し
保存でき
あるクラスの机を２つ
へらすと合計も２へり
べつのクラスへそれを
もっていくとそのくらすが
２こふえるというような
ことができるということです
どのクラスへもっていくかは
やってみなければ」わかりません
そのつど表のかたちで
そのまま保存でき
上書きできるといいと
思います

　　　　　　├どうやって、渡せるの？ 山中和義 2004/02/15 23:16:48  ツリーへ

Re: とりあえず 返事を書く

山中和義 2004/02/15 23:16:48

どうやって、渡せるの？
変更したプログラムがメールで送れないようですね。
hotmailではなく、ちゃんとしたメールアドレスは
お持ちではないのですか？

児童の数はこの場合必要ではないとおもいますが、、、

　　　　　　│├もっていますが もりの 2004/02/15 23:54:25  ツリーへ

Re: どうやって、渡せるの？ 返事を書く

もりの 2004/02/15 23:54:25

もっていますが
いままでもちゃんと
ついていましたよ
なぜ山中さんのだけ
チェックにかかるのでしょうか
ウイルスだとおもいますが

　　　　　　│└掲示板でいいですよ もりの 2004/02/15 23:55:18  ツリーへ

Re: どうやって、渡せるの？ 返事を書く

もりの 2004/02/15 23:55:18

掲示板でいいですよ
よろしく

　　　　　　└いま、メールを送りました。 山中和義 2004/02/16 00:11:00  ツリーへ

Re: とりあえず 返事を書く

山中和義 2004/02/16 00:11:00

いま、メールを送りました。

　　　　　　　├に机１で文法エラーに もりの 2004/02/16 00:40:58  ツリーへ

Re: いま、メールを送りました。 返事を書く

もりの 2004/02/16 00:40:58

に机１　で　文法エラーに
なっています

　　　　　　　├プログラムがちゃんと もりの 2004/02/16 00:44:51  ツリーへ

Re: いま、メールを送りました。 返事を書く

もりの 2004/02/16 00:44:51

プログラムがちゃんと
動くようになりましたら
実際の数字をいれて
ためしてみます
その結果をまた
おしらせします

　　　　　　　└-DESKでまだひっかかって もりの 2004/02/16 01:00:18  ツリーへ

Re: いま、メールを送りました。 返事を書く

もりの 2004/02/16 01:00:18

-DESK でまだひっかかって
います

　　　　　　　　└送付したプログラムはそのままで実行できま... 山中和義 2004/02/16 09:31:46  ツリーへ

Re: -DESKでまだひっかかって 返事を書く

山中和義 2004/02/16 09:31:46

送付したプログラムはそのままで実行できませんか！？

変更して動作しなくなったら、変更場所がおかしいです。
１つ１つ変更していって、実行できていることを
確認しながら、追加・修正していってください。

　　　　　　　　　└変更していませんが もりの 2004/02/16 21:09:48  ツリーへ

Re: 送付したプログラムはそのままで実行できま... 返事を書く

もりの 2004/02/16 21:09:48

変更していませんが
またやってみます

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。

こんなことはできますか？机・いすの移動	返事を書く
もりの 2004/02/14 20:26:26
机・いすの号数が1号から９号まであります１年から６年までの各学年各教室の生徒数はそれぞれ ○○人ですさてどの教室からどの教室へ机をなんこいすをなんこもっていけばいいでしょうか？要するに生徒数からみてあまった机・いすを足りないクラスへもっていくということですがこんなこと今まで表計算で一覧表をつくり過不足に応じて自分で考えもって行き先をわりあててきましたがこんなことプログラムでできるでしょうかできたらすごいね。。感謝いままで１週間かかっていた仕事が一日でできるねおもしりそうだとおもったかたつくってみたいと思ったかたいられましたらカキコしてくださいね完成したらそれを使ってプランをつくってみたいと思いますあさってからその仕事を始める予定ですそんなものできないよだったらロータスでやってみるつもりですが十進でできる気もしますね優秀な方ばかりですからチャレンジしてみませんか？

Re: こんなことはできますか？机・いすの移動	返事を書く
山中和義 2004/02/15 14:49:51
その１ !教室の数、教室名称を設定する LET NUM_ROOM = 15 DATA "教室１","教室２","教室３","教室４","教室５" !1年1組とか、理科室とか DATA "教室６","教室７","教室８","教室９","教室10" DATA "教室11","教室12","教室13","教室14","教室15" dim room_name$(100) !※最大数(100教室) for i=1 to NUM_ROOM read room_name$(i) next i

Re: その１	返事を書く
もりの 2004/02/15 15:41:19
ありがとうございますもしよろっしければメールで送ってくださいアドレスは　 stdoor24_12@hotmail.com ですよろしくお願いいたしますいまうごかしてみますね

Re: こんなことはできますか？机・いすの移動	返事を書く
山中和義 2004/02/15 14:51:28
その２ !各教室の今の机の数(上段)、変更後の数(下段)を設定する　※順に１～９号 LET NUM_DESK = 9 !教室１ DATA 4,4,4,4,4,4,4,4,4 !今 DATA 1,4,2,0,0,1,1,1,1 !変更後 !教室２ DATA 3,3,3,3,3,3,3,3,3 DATA 2,3,4,4,2,2,2,2,2 !教室３ DATA 2,2,2,2,2,2,2,2,2 DATA 5,5,5,5,5,5,5,5,5 !教室４ DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室５ DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室６ DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室７ DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室８ DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室９ DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室10 DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室11 DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室12 DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室13 DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室14 DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 !教室15 DATA 0,0,0,0,0,0,0,0,0 DATA 0,0,0,0,0,0,0,0,0 dim desk_now(100,20),desk_update(100,20) !※最大数(100教室、20号数) for i=1 to NUM_ROOM for j=1 to NUM_DESK read desk_now(i,j) !今の教室iのj号机の数を読込む next j for j=1 to NUM_DESK read desk_update(i,j) !変更後の教室iのj号机の数を読込む next j next i

Re: こんなことはできますか？机・いすの移動	返事を書く
山中和義 2004/02/15 14:52:07
その３ !教室の配置を設定する　※移動する際、「最寄の教室」になる !教室１　※０、自教室は検索対象外になる DATA 2,3,10,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室２、教室３、教室10の順に検索する !教室２ DATA 1,3,6,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室３ DATA 2,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室４ DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室５ DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室６ DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室７ DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室８ DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室９ DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室10 DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室11 DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室12 DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室13 DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室14 DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 !教室15 DATA 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 dim room_from(100,100) for i=1 to NUM_ROOM for j=1 to NUM_ROOM read room_from(i,j) next j next i

Re: その３	返事を書く
もりの 2004/02/15 15:38:37
ありがとうございますもしよろしかったらメールでプログラムを送っていただけますかきづいた点を連絡させてもらいますのでこのプログラムで机・イスの移動ができれば今年は私がかかりですがどの学校でも仕えるでしょう今は学年普通クラス４クラス特別教室10こあまった机イスを入れてある倉庫Ａ・Ｂです最大１１０クラスまで対応できればいいと思いますカキコしていただいたプロいま動かして感想かきますね

Re: こんなことはできますか？机・いすの移動	返事を書く
山中和義 2004/02/15 14:52:59
その４ !各教室の机の移動できる数を算出する dim desk_move(100,20) for i=1 to NUM_ROOM for j=1 to NUM_DESK LET desk_move(i,j) = desk_now(i,j) - desk_update(i,j) !負は不足分。他の教室から拝借する next j next i !机の移動を考える print "--- 移動明細 ---" for i=1 to NUM_ROOM print "●";room_name$(i) for j=1 to NUM_DESK if desk_move(i,j)<0 then !不足していたら、他からもってくる print j;"号机" LET flag = 0 for k=1 to NUM_ROOM !最寄の教室から順に捜す LET rm = room_from(i,k) if rm>0 then !ちゃんと設定されていたら !!! if rm>0 and rm<>i then !ちゃんと設定されていたら if desk_move(rm,j)>0 then !移動可能なら LET flag = -1 LET a = desk_move(rm,j) - (-desk_move(i,j)) if a>0 then !移動元に十分あれば print "　";room_name$(rm);"から";-desk_move(i,j);"移動させる" !!! print room_name$(rm);"から";j;"号机を";-desk_move(i,j);"移動させる" LET desk_move(i,j) = 0 !過不足なし LET desk_move(rm,j) = a !移動元は移動した数だけ減らします else !なければ、その数だけ print "　";room_name$(rm);"から";desk_move(rm,j);"移動させる" !!! print room_name$(rm);"から";j;"号机を";desk_move(rm,j);"移動させる" LET desk_move(i,j) = desk_move(i,j) + desk_move(rm,j) !移動した数だけ増やします LET desk_move(rm,j) = 0 !移動元はは０になりました end if end if if desk_move(i,j)=0 then !過不足がなくなれば、次の教室へ exit for end if end if next k if flag=0 then print "　どこからも移動できません。" end if next j next i

Re: こんなことはできますか？机・いすの移動	返事を書く
山中和義 2004/02/15 14:53:48
その５ !移動可能で移動されない机の数を表示する print print "--- 移動結果 ---" for i=1 to NUM_ROOM print "●";room_name$(i) print "今　　　　　　"; for j=1 to NUM_DESK print desk_now(i,j); next j print print "変更希望　　　"; for j=1 to NUM_DESK print desk_update(i,j); next j print print "余り(負:不足) "; for j=1 to NUM_DESK print desk_move(i,j); next j print print "変更後　　　　"; for j=1 to NUM_DESK print desk_update(i,j)+desk_move(i,j); next j print next i END

Re: その５	返事を書く
もりの 2004/02/15 16:43:59
実行してみましたが全部プログラムが流れてしまってなにがなんだかわかりませんでした１年１組　在籍数　　名　机　　個　いす　　個と入力・表示した後何号の机　　　何年何組へ　　なんこもっていくというように指示がだせるといいですね全体の一覧表を表示・印刷したと指示をだす個票をうちだせるといいですね実際の作業では個票をもっていく机といすに貼り付けます改良できますでしょうか？入力枠はひつようですね

Re: 実行してみましたが	返事を書く
山中和義 2004/02/15 16:59:17
確認ですが >実行してみましたが >全部プログラムが流れてしまって >なにがなんだかわかりませんでした十進BASICの実行画面はスクロールすると表示した文は読めますが、、、 >１年１組 >在籍数　　名　机　　個　いす　　個 >と入力・表示した後 > >何号の机　　　何年何組へ　　なんこもっていく > >というように指示がだせるといいですね人間が移動先、個数を指示するのですか？プログラムが一例を提案するものを求めていらしたのではないですか？ >入力枠はひつようですね DATA文で個数を記述した方が、毎回実行するたびに入力する手間が省けけますが、、、

Re: 確認ですが	返事を書く
もりの 2004/02/15 17:41:53
できれば自動的にわりふれればいいですねでも必ずあとで調整が必要になりますのでコンピュータで割り振ったあと手動で訂正できるようにしていただけますでしょうか？

Re: 確認ですが	返事を書く
もりの 2004/02/15 18:48:56
とりあえず机　椅子　とも１号から９号までの教室数は５０までの一覧表をエクセルで作成いたしましたもし改良して使えるようでしたらつかってみたいですね私がエクセルでやるのとどちらがはやいでしょうエクセルでマクロの処理ができればそれでもいいんですが十進でできるといいですね

Re: とりあえず	返事を書く
山中和義 2004/02/15 21:29:44
支障がなければ、エクセルのデータをメールしてください。そのデータでプログラムしてみます。 kz4ymnk@ymg.urban.ne.jp

Re: 支障がなければ、エクセルのデータを	返事を書く
もりの 2004/02/15 21:37:40
さきほど届いていたメールについてですが安全でないため途中で遮断しましたとホットメールのメッセージがでていました・・中身ですからみていません

Re: 支障がなければ、エクセルのデータを	返事を書く
もりの 2004/02/15 21:47:08
セキュリティーのためデータはおくれませんがエクセルでつくったのはこんな感じです　　　机一覧表　　　月　　日　現在　　　　　　　１号　２号　３号　４号　５号　６号　７号　８号　９号１年１組　　　　１５　２０　　　１年２組　　　　１６　２０　｜６年４組　　　　　　　　　　　　　　　　　　　　５　　３０　椅子も同じまだ移動一覧表は作っていません

Re: セキュリティーのためデータはおくれません...	返事を書く
もりの 2004/02/15 21:55:53
号数はうち間違えました６年が　１号５年が　２号４年が　３号３年が　４号２年が　５号１年が　６号です大体ひとクラス３６人くらいですからクラスの児童数は３６として適当に机や椅子の数を２、３個＋－おおくしたり少なくしたりしてみて下さい

Re: 号数はうち間違えました	返事を書く
もりの 2004/02/15 21:58:24
やっぱりクラスの児童数は３０～４０にんまで入力できなけばやはりだめですね

Re: やっぱりクラスの児童数は３０～４０にんま...	返事を書く
もりの 2004/02/15 23:05:50
表の中に直接入力し保存できあるクラスの机を２つへらすと合計も２へりべつのクラスへそれをもっていくとそのくらすが２こふえるというようなことができるということですどのクラスへもっていくかはやってみなければ」わかりませんそのつど表のかたちでそのまま保存でき上書きできるといいと思います

Re: とりあえず	返事を書く
山中和義 2004/02/15 23:16:48
どうやって、渡せるの？変更したプログラムがメールで送れないようですね。 hotmailではなく、ちゃんとしたメールアドレスはお持ちではないのですか？児童の数はこの場合必要ではないとおもいますが、、、

Re: どうやって、渡せるの？	返事を書く
もりの 2004/02/15 23:54:25
もっていますがいままでもちゃんとついていましたよなぜ山中さんのだけチェックにかかるのでしょうかウイルスだとおもいますが

Re: どうやって、渡せるの？	返事を書く
もりの 2004/02/15 23:55:18
掲示板でいいですよよろしく

Re: とりあえず	返事を書く
山中和義 2004/02/16 00:11:00
いま、メールを送りました。

Re: いま、メールを送りました。	返事を書く
もりの 2004/02/16 00:40:58
に机１　で　文法エラーになっています

Re: いま、メールを送りました。	返事を書く
もりの 2004/02/16 00:44:51
プログラムがちゃんと動くようになりましたら実際の数字をいれてためしてみますその結果をまたおしらせします

Re: いま、メールを送りました。	返事を書く
もりの 2004/02/16 01:00:18
-DESK でまだひっかかっています

Re: -DESKでまだひっかかって	返事を書く
山中和義 2004/02/16 09:31:46
送付したプログラムはそのままで実行できませんか！？変更して動作しなくなったら、変更場所がおかしいです。１つ１つ変更していって、実行できていることを確認しながら、追加・修正していってください。

Re: 送付したプログラムはそのままで実行できま...	返事を書く
もりの 2004/02/16 21:09:48
変更していませんがまたやってみます