東方算程譚

コメントを追加

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 19:34 επιστημη

ついでだから問題を公募しましょ。
条件：第N+1問 は N問より"すこしだけ"ホネがあること。
採用の可否はεπι権限で。
コメントで受け付けまーす。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 19:46 ネタ好き未記入

初級という事なので、伝統深い？プログラムの行数を数えるというのはいかがでしょうか？
条件は次のとおりです。

１、コメント（XMLコメントも含む）はカウント外。

２、_（改行文字）で改行されている場合は、文意で1行とカウントする。
例：
foo.(1, 2, 3, 4, _
)
の場合2行ではなくて1行

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 19:51 επιστημη

"お約束"の問題すね。VBのプログラムをVBでカウントする、と。
ファイルIOが絡んでおもしろそげ。

まずはベタな行カウントで、次第に難易度UPするか。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 20:20 ネタ好き未記入

＞まずはベタな行カウントで、次第に難易度UPするか。

LV0：1ファイルを対象にカウント
LV1:複数ファイルを対象にカウント
LV2：プロジェクトファイルを読み込んで、プロジェクト内にある全てのファイルを対象にする
LV3:クラス数、構造体数などの詳細をカウント

こんな感じでいかがでしょうか？

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 20:20 non

最初からなんなんですが・・・・

おヒントいただけないでしょうか
＞パパと未記入様

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 20:35 えムナウ

１）mainはこんな感じ
int 配列 を作って値を代入する。
Sort1を呼ぶ
結果を表示する
別のint 配列 を作って値を代入する。
Sort2を呼ぶ
結果を表示する
別のint 配列 を作って値を代入する。
Sort3を呼ぶ
結果を表示する

２）昇順にソートっていうのは小さいもの順に並べ替えること
Sub Sort1(data() As Integer)
　：
End Sub
Sub Sort2(data() As Integer)
End Sub
Sub Sort3(data() As Integer)
End Sub

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 20:56 はつね

(1)配列を作ってばらばらの数字いれる
　　→配列宣言して初期値代入
(2)ソートする（ここが３種類）
(3)ソートした結果の配列を表示する

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 21:25 さかもと

VB1.0を利用しての回答ということでよろしいでしょうか？

大先生もVB0.5で答えを示すということでよろしいでしょうか？

その他諸々の問題の前に解決してもよろしいでしょうか？

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 21:36 non

Sub sort()
Dim test() As Integer = {50, 80, 150}

Console.WriteLine(test(0))
Console.WriteLine(test(1))
Console.WriteLine(test(2))

End Sub


1,2ってこんな感じでしょうか？

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 21:39 non

ソートって考えたらやったことなかったです。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 21:40 επιστημη

ヒントはみんなのいうてくれたとおり。
配列を用意して Sort に食わせると小さい順に並び換わってればおっけぃ。

まずは

Module NonExam

Sub Sort(data() As Integer)
　' とりあえずなーにもしない
End Sub

Sub Main()
　配列用意して
　全部プリントして
　Sortに食わせて
　全部プリントする
End Sub

End Module

なんてーのをこしらえませう。
これでSortの前後で配列のナカミを確認できる。
んでもってSortを実装すりゃええべな。
　

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 21:44 επιστημη

> こんな感じでしょうか？

ダメダメ、プリントするのはその関数を抜けてからMainでやればいい。

ソートの対象となる配列はMainで用意して
Sortの引数として渡す。

上記のひな型参照。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 21:47 επιστημη

> VB1.0を利用しての回答

...入手できるかなー。VB3ならまだ持ってた希ガス。
# 回答は最新VB2008(VB9)で。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 23:22 刈歩 菜良 CTP

せんせーしつもーん
(・o・)／

VBで解くアルゴリズムの問題という観点でよろしいのでしょうか？

と、いうのも、アルゴリズムの前段階に構文の理解というハードルもあるので...

で、ちなみに、うちでは新人ちゃん向け以外にアルゴリズムを教えるコースはなかったり...
# それほど（教育コースとしては）高度かつ需要がないってことです。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 23:29 アクア

あわわわ・・・

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/05 23:51 επιστημη

> VBで解くアルゴリズム

えぇ、そゆことで。
のんちゃん、VBの通信教育受けてるそぉで、
ならば文法/構文はよかろう、と。

> 高度かつ需要がない

「知らずに書ける」ちゅーのはいいことなのかぁ?
ちょっと凝ったことしよう思うといきなしブ厚い壁
にブチ当たるわけっしょ。それってどーよ、どーなのよ。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 0:04 επιστημη

ん? どぉしましたかアクアたん。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 0:15 刈歩 菜良 CTP

> 「知らずに書ける」ちゅーのはいいことなのかぁ?
> ちょっと凝ったことしよう思うといきなしブ厚い壁
> にブチ当たるわけっしょ。それってどーよ、どーなのよ。

もちろん、わたしの意見はεπιさん寄りです。

ちょっと、流れ的に誤解されかねない感じでしたね。ごめんなさい。

言いたかったのは
構文をマスター → アルゴリズム
というのがよいのではないかと...
で、アルゴリズムは今のIT教育業界では実は高度で需要がない扱いなのですよっていう現実をついでに紹介しただけなのです。

言いたかったのは、構文完璧かしら？ってことだけです。

話を戻すと、
アルゴリズムに関してはそういうコースにお金を出してくれるお客様がいれば、当然ラインアップされます。
そういうお客さんがいないというのが現実なのですねぇ。

つまり、アルゴリズムなんてどーでもえーと考えてる会社が多いってことではないかと？

実際、言語コースでifを教えるのに、数値が入った配列から最大値最小値を取り出す問題があったりします。

なんと、こんなイージーな問題に設計などの上流過程をやってきましたっていう経験者がハマるんです。
# しかも、穴埋め問題。

自分でぐるぐる回して最大値を取り出すって言う考えにいたらないんです。ifのところが穴埋めになってるだけなんですよ。ループのとこは記述済みなんすよ！！
ばんざいフレームワーク、ばんざいRADワールドです。

いやはや、嘆かわしいこってす。

で、さらに話を戻して、多次元配列とかあと判定のループとか、SELECT CASE色々とか、ByRef/ByValとか大丈夫かしら？という感じです。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 0:17 刈歩 菜良 CTP

s/あと判定/後判定/

汚してすみません。
_(._.)_

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 0:34 επιστημη

なるほどぉ。って感心しちゃあかんて。

うん、まだ文法/構文にもぁゃιぃトコはいくらもあろうか
とは思うですし、その段階でｱﾙｺﾞﾘｽﾞﾑはどうなの?
ｶﾅﾂﾞﾁとﾉｺｷﾞﾘが扱えんうちから犬小屋すか? ってなこと
になるやも知れんけど。

ともあれこいつで力量図れるですから、適宜フィードバック
かけりゃえぇかなーと。
難しいって音をあげるなら一段落とせばええやん、
マンツーマンのメリットを有効活用っすよ♪

てゆっかですねー、そーゆーためになるお話は
トラックバックしたうえでご自身のblogでおもっきし
ぶちかまして留飲を下げていただければ
「さぁすがはかるぼ先生、CTPはまだ取れんのか」と
評価うなぎ上りちゃうかと。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 1:11 刈歩 菜良 CTP

ぃゃ、このネタは表では書きにくいんです。
内容とかうっすら触れちゃってるし...
# 長くなっちゃったから一瞬考えたんですけどねぇ。

てか、別スレ展開されてましたね。
そっちで触れるべき内容でしたね。
しくじっちゃいました。
(^^ゞ

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 1:30 επιστημη

> 表では書きにくい

あーそかそかそかそか。
んじゃ実情云々はさっくし端折って
「わしわこぉ思うー」ゆーのんを♪

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 5:26 ネタ好き未記入

>おヒントいただけないでしょうか

私の課題の場合は【VBの文の終わり】がポイントとなります。
VBで書いたプログラムの行数を自分で数えてみて、
その時の自分の数え方をVBでやるにはどうすればいいか考えてみましょう。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 5:37 ネタ好き未記入

あ、そうそう。VBの文法で分らない事があれば、是非うちのブログを見てね。
無差別に技術をついばむ鳥　インドリ
で検索したら出てくると思うから、右の方にあるVB.NETとか、プログラム言語全般を見たら重要な構文は一通り出来るようになると思う。
＃URLを張った方が早いけど出来ないだよね。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 6:31 れい

私は構文よりアルゴリズム先かなぁ

アルゴリズムは言語に依らず普遍。
構文は多少なりとも変わる。
最低限の構文は知らないとアルゴリズムをコードに落とせないので学習せざるをえないし。

> ともあれこいつで力量図れるですから、適宜フィードバックかけりゃえぇかなーと。

これと

> 条件：第N+1問 は N問より"すこしだけ"ホネがあること。

これを合わせると…
次に解く問題は第0問となる可能性があるということですね。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 8:25 刈歩 菜良 CTP

επιさん
> 「わしわこぉ思うー」ゆーのんを♪

了解です。
(^^ゝ

# 月曜日にでも (^^ゞ

ネタ好きさん

> ＃URLを張った方が早いけど出来ないだよね。

つ tinyurl

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 8:59 アクア

だいぶ手こずる。ｗ

1時間近くもかかってしまった。
うち、問題を理解するのに30分。（でも正しく理解できているかは不明。）

3種類のソートアルゴリズムを作れって事でしょうか?

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 9:32 επιστημη

> 3種類のソートアルゴリズムを作れっ

「3種類のソートアルゴリズムを実装しる!」です。
有名ドコをﾃｹﾄｰに見繕って。

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 10:51 アクア

今までArray.Sort()でイイじゃんって思ってたんで、
このアルゴリズムの問題はいい勉強になります。^^;;;

ソートの種類とその考え方ぐらいはネットとかで調べてもいいんですよね。>επι先生
# とはいえ、目がコードについつい行ってしまうが…

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/06 15:08 ネタ好き未記入

うちのブログのtinyurl張っとくから、文法で分らない事があったら見てね。
ttp://indori.blog32.fc2.com/

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/07 9:49 まさる

＞
配列を用いて自前でリスト実装とかはどうですか？
・Add
・Remove
・Count
くらいに絞って。

ちょっと１段飛ばしかな・・・

# re: のんちゃんのVBお勉強に協力する試み (1) 2008/07/07 10:16 ネタ好き未記入

自前で配列を実装もいいかもしれない。

# ソートだそうで 2008/07/08 22:57 何となく Blog by Jitta

ソートだそうで

# ソートされたらいいな、をカタチにする。 2008/07/19 10:06 とりこらぼ。

ソートされたらいいな、をカタチにする。

# ソートされたらいいな、をカタチにする。 2008/07/19 10:07 とりこらぼ。

ソートされたらいいな、をカタチにする。

# PbAWyUKvBJxqe 2011/12/22 21:33 http://www.discreetpharmacist.com/

iaFug8 Right from this article begin to read this blog. Plus a subscriber:D

# kighjTdTwMeVeNVo 2011/12/27 18:57 http://www.smithtitleservices.com

Can be also this issue because the truth can be achieved only in a dispute :D

# AEQjQdHyPLFBFYIG 2012/01/07 8:39 http://www.luckyvitamin.com/m-135-country-life

The topic is pretty complicated for a beginner!...

# That isnhigt's just what I've been looking for. Thanks! 2013/01/16 20:31 Anis

That isnhigt's just what I've been looking for. Thanks!

# This shows real expertise. Thanks for the anwser. 2013/01/16 20:31 Brad

This shows real expertise. Thanks for the anwser.

# Is that really all t 2015/05/03 10:16 buy tadalafil online

Is that really all there is to it because that'd be flabbergasting.

# For the love of God, 2015/05/09 16:37 buy an essay

For the love of God, keep writing these articles.

# Thanks alot - your a 2015/05/10 11:48 custom essay writing services

Thanks alot - your answer solved all my problems after several days struggling

# ロレックス時計コピー 2018/01/23 1:32 pluemvadls@live.jp

コピー時計通販専門店
人気コピー時計通販専門店

◆在庫情報随時更新!
◆お客さんたちも大好評です：
◆新品種類がそろっています。
◆品質がよい、価格が低い、実物写真！
◆経営方針: 品質を重視、納期も厳守、信用第一！
◆超格安価格で、安心、迅速、確実、にお客様の手元にお届け致します。

豊富な品揃えで最新作も随時入荷致しておりますのでごゆっくりとご覧ください。
広大な客を歓迎してご光臨！

# stromectol 6 mg dosage 2021/09/28 15:14 MarvinLic

stromectol canada https://stromectolfive.com/# ivermectin 12

# ivermectin rx 2021/11/01 8:41 DelbertBup

ivermectin uk http://stromectolivermectin19.com/# cost of ivermectin lotion
ivermectin buy australia

# ivermectin 90 mg 2021/11/02 11:48 DelbertBup

ivermectin over the counter http://stromectolivermectin19.online# ivermectin cream uk
ivermectin cream

# prednisone buy canada https://prednisonesnw.com/#
prednisone cost 10mg 2021/11/13 9:38 Prednisone

prednisone buy canada https://prednisonesnw.com/#
prednisone cost 10mg

# sildenafil 20 mg tablet 2021/12/06 21:48 JamesDat

http://iverstrom24.com/# stromectol ivermectin dosage

# bimatoprost buy online usa 2021/12/11 18:37 Travislyday

https://plaquenils.com/ hydroxychloroquine 900mg

# best place to buy careprost 2021/12/12 13:21 Travislyday

https://baricitinibrx.com/ barinat

# buy careprost in the usa free shipping 2021/12/13 9:08 Travislyday

http://stromectols.com/ ivermectin buy australia

# bimatoprost https://bimatoprostrx.com
bimatoprost generic
2021/12/13 16:09 Hksfnjkh

bimatoprost https://bimatoprostrx.com
bimatoprost generic

# careprost bimatoprost for sale 2021/12/14 5:02 Travislyday

https://bimatoprostrx.com/ bimatoprost generic best price

# stromectol cream 2021/12/17 10:32 Eliastib

tdvqqt https://stromectolr.com ivermectin 8000

# where to buy stromectol online http://stromectolabc.com/
ivermectin humans 2022/02/08 16:41 Busjdhj

where to buy stromectol online http://stromectolabc.com/
ivermectin humans

# ivermectin oral 0 8 2022/02/21 0:18 Jamesscons

https://stromectolis.com/# ivermectin over the counter canada

# buy cheap doxycycline https://doxycyline1st.com/
cheap doxycycline online 2022/02/26 0:27 Jusidkid

buy cheap doxycycline https://doxycyline1st.com/
cheap doxycycline online

# cheap doxycycline online https://doxycyline1st.com/
buy doxycycline monohydrate 2022/02/26 9:30 Jusidkid

cheap doxycycline online https://doxycyline1st.com/
buy doxycycline monohydrate

# vibramycin 100 mg https://doxycyline1st.com/
doxycycline 50mg 2022/02/26 20:07 Doxycycline

vibramycin 100 mg https://doxycyline1st.com/
doxycycline 50mg

# ivermectin for lice 2022/03/16 17:54 Tommiegathe

https://stromectolfastusa.com/# ivermectin dog

# cost of clomid http://clomidfast.site/ 2022/04/12 12:45 Clomids

cost of clomid http://clomidfast.site/

# can you buy prednisone over the counter in mexico http://prednisoneen.store/ 2022/04/16 22:40 Prednisone

can you buy prednisone over the counter in mexico http://prednisoneen.store/

# furosemide 40mg https://buylasix.icu/
lasix furosemide 2022/06/24 16:58 LasixRx

furosemide 40mg https://buylasix.icu/
lasix furosemide

# the best ed pill https://erectionpills.best/
cheap erectile dysfunction pills 2022/06/28 19:55 ErectionPills

the best ed pill https://erectionpills.best/
cheap erectile dysfunction pills

# online prescription for ed meds https://withoutprescription.store/
cvs prescription prices without insurance 2022/07/03 3:35 CanadaRx

online prescription for ed meds https://withoutprescription.store/
cvs prescription prices without insurance

# clomid https://clomidonline.icu/ 2022/07/08 13:26 Clomidj

clomid https://clomidonline.icu/

# discount prescription drug https://allpharm.store/ 2022/07/21 21:54 AllPharm

discount prescription drug https://allpharm.store/

# how much ivermectin to give a dog with sarcoptic mange https://stromectolbestprice.com/ 2022/07/30 0:20 BestPrice

how much ivermectin to give a dog with sarcoptic mange https://stromectolbestprice.com/

# prednisone price australia https://deltasone.icu/
prednisone 10 mg brand name 2022/08/22 9:32 Prednisone

prednisone price australia https://deltasone.icu/
prednisone 10 mg brand name

# best otc ed pills https://ed-pills.xyz/
the best ed pills 2022/09/16 7:24 EdPills

best otc ed pills https://ed-pills.xyz/
the best ed pills

# cheap ed pills https://ed-pills.xyz/
male erection pills 2022/09/17 7:39 EdPills

cheap ed pills https://ed-pills.xyz/
male erection pills

# cure ed https://ed-pills.xyz/
non prescription erection pills 2022/09/17 19:44 EdPills

cure ed https://ed-pills.xyz/
non prescription erection pills

# doxycycline mono https://buydoxycycline.icu/ 2022/10/08 11:49 Doxycycline

doxycycline mono https://buydoxycycline.icu/

#  https://clomidforsale.site/ 2022/11/13 14:16 ForSale

https://clomidforsale.site/

# online order prednisone https://prednisone20mg.site/
prednisone buy online nz 2022/11/15 17:59 Prednisone

online order prednisone https://prednisone20mg.site/
prednisone buy online nz

# hot dating match https://datingsiteonline.site/
free dating date 2022/12/05 23:49 Tading

hot dating match https://datingsiteonline.site/
free dating date

# meet and fuck https://datingonlinehot.com/
free single dating sites 2022/12/09 19:21 Dating

meet and fuck https://datingonlinehot.com/
free single dating sites

# buying ed pills online https://cheapestedpills.com/
best pills for ed 2022/12/10 16:23 CheapPills

buying ed pills online https://cheapestedpills.com/
best pills for ed

# subtle asian dating https://datingonline1st.com/
women for free 2023/01/17 22:31 Dating

subtle asian dating https://datingonline1st.com/
women for free

# ï»¿Medicament prescribing information. All trends of medicament.
https://canadianfast.com/
Learn about the side effects, dosages, and interactions. Get here. 2023/02/19 7:52 CanadaBest

Medicament prescribing information. All trends of medicament.
https://canadianfast.com/
Learn about the side effects, dosages, and interactions. Get here.

# doors2.txt;1 2023/03/14 16:26 cBeqDGvUTElgb

doors2.txt;1

# generic for doxycycline - https://doxycyclinesale.pro/# 2023/04/21 17:31 Doxycycline

generic for doxycycline - https://doxycyclinesale.pro/#

# prednisone over the counter south africa - https://prednisonesale.pro/# 2023/04/22 4:48 Prednisone

prednisone over the counter south africa - https://prednisonesale.pro/#

# buy cytotec pills - https://cytotecsale.pro/# 2023/04/28 23:32 Cytotec

buy cytotec pills - https://cytotecsale.pro/#

# erection pills that work: https://edpills.pro/# 2023/05/15 15:32 EdPillsPro

erection pills that work: https://edpills.pro/#

# buy prednisone 40 mg https://prednisonepills.pro/# - how can i get prednisone 2023/06/04 21:29 Prednisone

buy prednisone 40 mg https://prednisonepills.pro/# - how can i get prednisone

# ed meds online https://edpills.ink/# - the best ed pills 2023/07/26 20:06 EdPills

ed meds online https://edpills.ink/# - the best ed pills

# paxlovid for sale https://paxlovid.bid/ paxlovid india 2023/10/25 18:29 Paxlovid

paxlovid for sale https://paxlovid.bid/ paxlovid india

タイトル		タイトルを入力してください
名前		名前を入力してください
URL
コメント   コメントを入力してください
名前をブラウザに記憶する