突然ですが、クイズです。 - 1118334869

10：名無しサンム：2005/06/13(月) 11:38:44 ID:iLVh86V6: さて、問題です。
産能が潰れるのはいつでしょう？
11：サン：2005/06/15(水) 03:10:44 ID:MdrBqZ7A: 産能大学は潰れません。
産能ユニオンとか言うけしからん組織が「産能大学は新入生が定員割れしている」
とか「産能大学は残務的に傾いている」とかいうけしからんことを言いふらしていますが、
そんなことはありません。定員割れなどしていません。財務的に傾いているわけでもありません。
もし万一、仮にそうだとしても、そういうことを言いふらすことによって産能に不利な状況を生み出すこと自体が
不届き千万です。学生なのにそんなことを言うなら、当然、退学処分が相当です。
我々はあなたがたが簡単に単位が取れるようにしているではありませんか。
授業に遅刻しても、寝ていても、私語をしても、携帯電話で話していても教員が叱ったりしないようにしているではありませんか。
あなたがたが楽に、簡単に卒業できるように、卒業論文だって必修から外しましたし、
英語だって一時期は必修から外しました。
今は少しだけ必修にしていますが、実際には、先生を選べばビデオ映画の感想文だけで単位が取れるようにしてあります。
数学なんか勉強しなくてもいいのです。それだってちゃんと卒業できるのです。
コンピュータは数学なんか知らなくたって使えます。
情報処理技術者資格が取れなくったって、就職には困りません。
なのに、どうしてそんなに産能大学の悪口を言うのですか。
ここはあなたがたが楽しく過ごせるようにしてある大学なのですよ。
レジャーランドなどと悪口を言う人間たちなど、放っておけばいいではありませんか。
大学は、レジャーランドでいいのです。ひいひい言いながら何かを身につける必要などないのですよ。
そんなことを要求する不心得な教師はすてべ追い出しました。
なのに、どうしてあなた方は産能の悪口を言うのですか。
私は悲しい。
12：名無しサンム：2005/06/15(水) 07:49:12 ID:Dnc9yoiY: >>11
産能ユニオンとか言うけしからん組織から遙々お疲れ様です。

読もうよ、空気。オトナなんだし。
13：名無しサンム：2005/06/15(水) 13:54:33 ID:Z4NwjXbE: >>5で書かれたコードを多言語に移植するスレはこちらで宜しいですか？
VBAで書いてみました。
原型留めて無い気もしますが（苦笑

Private Sub CommandButton1_Click()

Range("4:65536").Clear

Row = Range("B1").Value
col = Range("B2").Value
beginFlag = Range("B3").Value
Length = Row * col
returnFlag = IIf(col Mod 2 = 0, 0, 1)

For i = 1 To Length
Cells(Int((i - 1) / col) + 4, i - (Int((i - 1) / col) * Row)).Value = IIf(beginFlag = 1, "□", "■")
beginFlag = IIf(((returnFlag <> 1) And ((i Mod col) = 0)), beginFlag, 1 Xor beginFlag)
Next i

End Sub
14：5：2005/06/15(水) 23:10:27 ID:XVxhpPTI: >>13
すげぇなｗ
座標、全部計算で出してるのかｗ

所で、同じ計算式が二箇所あるのは何故？
具体的にはこれ -> Int((i - 1) / col
15：13：2005/06/16(木) 10:56:01 ID:UP.hgXt2: >>14
どうも（笑
配列と変数を使えばもっと見通しが良くなりそうだったのですが、
元ソースが計算して改行を入れていたので計算にこだわってみました。

同じ計算が2個所あるのはコードの行数を減らす為です。

さしずめこんな感じでしょうか？
now_row = Int((i - 1) / col
Cells(now_row + 4, i - (now_row * Row)).Value = IIf(beginFlag = 1, "□", "■")
beginFlag = IIf(((returnFlag <> 1) And ((i Mod col) = 0)), beginFlag, 1 Xor beginFlag)

たったの一行ですが（笑
16：sage：2005/06/16(木) 22:59:50 ID:ynX11plk: >>15
なるほどねぇ。
VBだと1物理行に2論理行は書けないんだっけか？
VBつーかPascal系のシンタックスは読み難くて手を出してないから
こういうの見れると勉強になる。
17：13：2005/06/17(金) 14:33:21 ID:v2kLInH.: >>16
そう言って頂けるとやりがいがあります。（笑
残念ながら、環境を持っていないのでDelphiは試せませんが・・・

>VBだと1物理行に2論理行は書けないんだっけか？
そうなります。
18：sage：2005/07/13(水) 21:27:03 ID:l8MpmXWg: いまさらだけど、思いついたので…
「ひまわり」を使ってみるテスト。面倒だったのでXOR使っちゃったのは勘弁m(_)m

「何列表示しますか？」と、尋ねて、列の数に、入れる。
「何行表示しますか？」と、尋ねて、行の数に、入れる。
「どちらから始めますか？」が、「白｜黒」の、どれか尋ねて、白黒に、入れる。
もし、白黒が、「白」ならば、白黒は、0。
違えば、白黒は、1。
行の数を、0から、行の数まで、繰り返す(
行は、「」。
列の数を、0から、列の数まで、繰り返す(
旗は、MOD((行の数+列の数),2)。
もし、XOR(白黒,旗)が、0ならば、行は、行＆「□」。
違えば、行は、行＆「■」。
)。
行を、表示。
)。