二丁目で働く社長の日記へのコメント

admin より 05/20　『やさしいPascal入門』を上梓しましたへのコメント

admin — Thu, 17 May 2012 11:13:22 +0000

いとい様、kamuycikap様、watanabe様。
拙著をお買い上げいただき、誠にありがとうございます。

> Delphiの最も基本的なバージョンが5,000円くらいで販売されれば
そうですね。実際には逆の方向（有償化）へ行ってしまったので、発売元がかわらない限り難しいでしょうね。

> 是非、コンポーネント利用編を執筆してください。
やはりあまり売れていないようで、続編の声がかかりません（涙
それとは別に、フリーのコンパイラを使ったプログラミング入門的な本を書くことになりました。

そしてwatanabe様、サンプルプログラムのデバッグまでしていただきまして、本当にありがとうございます。「-1」の時を試してみるという基本的なことを忘れていました。

T.Watanabe より 05/20　『やさしいPascal入門』を上梓しましたへのコメント

T.Watanabe — Sun, 06 May 2012 10:38:26 +0000

“10.4 2次元配列を扱う”のサンプルプログラムですが、P145実行例のように入力した段数-1段までしか表示されません(1段目は常に表示される)。それでコードの16行目の表示する部分のforループを修正すると今度は最終段の両端が1にならなくなります。
＃一つのバグを修正すると別のバグが顕在化するというパターンです…
両端に1を入れる処理と、右上・左上の和の処理のforループは違う範囲でループする必要がありそうです。
長くなりますが以下、コード修正案です。

program pascalstriangle;
var
i,j,Max : integer;
number : array [1..10,1..10] of integer;
begin
WriteLn(‘何段目まで書きますか？(≦10)’);
ReadLn(Max);
number[1,1] := 1;
for i := 2 to Max do
begin
number[i,1] := 1;
number[i,i] := 1;
end;
for i := 2 to Max-1 do
begin
for j := 2 to i do
number[i+1,j] := number[i,j-1] + number[i,j];
end;
for i := 1 to Max do
begin
for j := 1 to Max-i do
Write(‘ ‘);
for j := 1 to i do
Write(number[i,j]:8);
WriteLn;
end;
end.

T.Watanabe より 05/20　『やさしいPascal入門』を上梓しましたへのコメント

T.Watanabe — Sat, 05 May 2012 06:42:35 +0000

“10.3 動的配列”のサンプルプログラムですが、SetLengthが呼ばれた後に配列インデックスの範囲は0からMax-1となるはずですが、SetLengthの2行下で
for i := 1 to Max do
となっています。これではReadLn(databox[i])で配列インデックスが1からMaxの範囲にデータが読み込まれ、その後のデータ入れ替えのforループは0から始まっているので、負の整数データを入力するとソート結果に0が混じります。

データ入れ替えのforループが10回なのは静的配列の時と同様なのですが、こちらの方は何故か0が混じることは無く(私の環境では)実行できてしまうのですが、9回の方が良いのではないでしょうか。

T.Watanabe より 05/20　『やさしいPascal入門』を上梓しましたへのコメント

T.Watanabe — Fri, 04 May 2012 08:31:13 +0000

「やさしいPascal入門」購入しました。
“10.2 1次元配列でバブルソートを行う”のサンプルプログラムですが、データ入れ替えのforループは9回で良いところが10回になっています。iが10の時、databox[i+1]がdatabox[11]となり、実行例のような正の整数データだけなら問題ないのですが、負の整数を入力するとデータに0が混じるようになります。あるいは昇順ソートするように書き換えた場合も同様です。
説明部分では9回と書かれているのでタイプミスでしょうか。

Pascalは大学生の時にTurboPascalをちょっとやっただけなのですが、感覚的に合う言語のようで、その時と同様に楽しくやっています。

kamuycikap より 05/20　『やさしいPascal入門』を上梓しましたへのコメント

kamuycikap — Wed, 07 Mar 2012 06:39:48 +0000

Delphi（Ver7）やLazarusを利用している者です。
日曜プログラマとしてObjectPascalを楽しんでいるユーザー、結構いるのではないかと思います。

LCLのライブラリに関する日本語のドキュメントはありませんが触ってればなんとかなる、Lazarusを知る一つの良いきっかけになるのではないでしょうか。
このような本を見るとうれしくなります。
是非、コンポーネント利用編を執筆してください。

admin より 04/09　豪華客船「にっぽん丸」で銀婚式part2 へのコメント

admin — Sun, 22 Jan 2012 02:24:56 +0000

すずきさん、土屋です
コメントありがとうございます

妻に見せたら、「あの。背の高い鈴木さんかな」と言ってました。鈴木姓は多いので、よろしければ今度メールでプロフィール送っていただけるとうれしいです。

気がついたら結婚から25年経ち、そろそろ26年目を迎えようとしています。これからもよろしくお願いします。

すずきより 04/09　豪華客船「にっぽん丸」で銀婚式part2 へのコメント

すずき — Wed, 18 Jan 2012 02:00:02 +0000

はじめまして。
にっぽん丸で検索をかけたら、懐かしいお顔に出会うことができました。
奥様の元部下でございます。

昨年までお勤めされていたんですね。
乗船していた当時、ご結婚なさっているのにロングクルーズに出て、でも、東京泊ではうれしそうにお帰りになる奥様は、怖いマネジャーの女性が多い中（笑）、とてもすてきでした。
そして、すてきなご夫婦なんだろうなと思っていました。

思いがけず、すてきなニュースに触れることができ、とてもうれしいです。
銀婚式、おめでとうございました。
私は3年弱で辞めた者ですのでご記憶にないかと思いますが、元シースチュワーデスがそう申しておったと奥様にもお伝えいただければ幸いです。

いといより 05/20　『やさしいPascal入門』を上梓しましたへのコメント

いとい — Sun, 18 Dec 2011 12:58:36 +0000

DelphiやLazarusを愛用している者です。
先日、『やさしいPascal入門』をAmazonで購入いたしました。
最近は、大きな書店に行っても、Pascal言語に関する書籍がほとんど無く、さびしい限りです。
頭の体操のために簡単なプログラムをしているにすぎない日曜プログラマーですので、Ｃ言語の勉強を始める気力はありません。
Delphiの最も基本的なバージョンが5,000円くらいで販売されれば、Pascal愛好家も増えるのでしょうが、実際はそうではなく残念です。

LRQ より 09/21　台風15号で屋上タワーが倒壊へのコメント

LRQ — Fri, 23 Sep 2011 01:41:37 +0000

タワーの倒壊、お悔やみ申し上げます。
今回の台風15号は多摩地区で強風を記録したようですが、南方向からの風による倒壊でしょうか。
ルーフタワーの途中が折れたことで倒壊したということでしょうか。
実家にルーフタワーを上げており、今回は無事だったようですが、一度点検に行こうかと考えています。

japanese より 09/10　府中平和祭り　反原発講演会をUstreamで放映へのコメント

japanese — Sun, 11 Sep 2011 00:21:33 +0000

各脱原発・反原発団体などを支援しよう。

9・１１：経産省を人間の鎖で囲もう！１万人アクション | 福島原発事故緊急会議情報共同デスク
http://2011shinsai.info/node/764
http://2011shinsai.info/

集まれ５万人！　９・１９は「さようなら原発集会」へ | さようなら原発1000万人アクション
http://sayonara-nukes.org/2011/09/110919_s-2/
http://sayonara-nukes.org/2011/08/110919_s/

脱原発：「さようなら原発」決断を　大江さんら新政権に要請、声明を発表 – 毎日ｊｐ(毎日新聞)
http://mainichi.jp/select/wadai/news/20110907ddm012040006000c.html
◇１９日に都内で集会

アンチ原発ウイーク（９・１１から９・１９）・・・は、まさに百花繚乱、蜂の巣をつついたような大騒ぎ！！田中洌
http://www.asyura2.com/11/genpatu16/msg/327.html

反原発リンク集
http://homepage3.nifty.com/h-harada/nonuke/link/

原発業界御用学者リスト @ ウィキ – 反原発学者リスト
http://www47.atwiki.jp/goyo-gakusha/pages/16.html

二丁目で働く社長の日記 へのコメント

admin より 05/20 『やさしいPascal入門』を上梓しました へのコメント

T.Watanabe より 05/20 『やさしいPascal入門』を上梓しました へのコメント

T.Watanabe より 05/20 『やさしいPascal入門』を上梓しました へのコメント

T.Watanabe より 05/20 『やさしいPascal入門』を上梓しました へのコメント

kamuycikap より 05/20 『やさしいPascal入門』を上梓しました へのコメント

admin より 04/09 豪華客船「にっぽん丸」で銀婚式part2 へのコメント

すずき より 04/09 豪華客船「にっぽん丸」で銀婚式part2 へのコメント

いとい より 05/20 『やさしいPascal入門』を上梓しました へのコメント

LRQ より 09/21 台風15号で屋上タワーが倒壊 へのコメント

japanese より 09/10 府中平和祭り 反原発講演会をUstreamで放映 へのコメント

二丁目で働く社長の日記へのコメント

admin より 05/20　『やさしいPascal入門』を上梓しましたへのコメント

T.Watanabe より 05/20　『やさしいPascal入門』を上梓しましたへのコメント

T.Watanabe より 05/20　『やさしいPascal入門』を上梓しましたへのコメント

T.Watanabe より 05/20　『やさしいPascal入門』を上梓しましたへのコメント

kamuycikap より 05/20　『やさしいPascal入門』を上梓しましたへのコメント

admin より 04/09　豪華客船「にっぽん丸」で銀婚式part2 へのコメント

すずきより 04/09　豪華客船「にっぽん丸」で銀婚式part2 へのコメント

いといより 05/20　『やさしいPascal入門』を上梓しましたへのコメント

LRQ より 09/21　台風15号で屋上タワーが倒壊へのコメント

japanese より 09/10　府中平和祭り　反原発講演会をUstreamで放映へのコメント