fj.comp.lang.cの記事<20432.9...@rananim.ie.u-ryukyu.ac.jp>で
ko...@ie.u-ryukyu.ac.jpさんは書きました。
> 僕も最初は、
> int
> main()
> {
> if ()
> {
> }
> }
> みたいなスタイルを自分勝手に使っていました。Pascal の影響が
> 少し入ってますね。
つーかPascalでもいろいろあったのでは?
私はPascalでは
procedure ほげ;
begin
if 条件 then begin
文の並び
end else if 条件 then begin
文の並び
end else begin
文の並び
end
end;
こんな感じでした。(たぶん少数派:-)
実際には
if 条件 then
文の並び
elif 条件 then
文の並び
else
文の並び
fi
と書いておいてプリプロセッサーで
then → then begin
elif → end else if
else → end else begin
fi → end
に変換していたのですが...。
--
太田純(Junn Ohta) (株)リコー/新横浜事業所
oh...@sdg.mdd.ricoh.co.jp
Borland Turbo PASCAL 7.0のサンプルコードはこんな感じみたいです。
procedure Hoge1
begin
if 条件 then
begin
文の並び
end else
if 条件 then
begin
文の並び
end else
begin
文の並び
end
end;
昔の教科書みたいな書籍で見たような気がする、どんどん深くなっていくタイプとか。
#そういう学校には行ったことがないです。
procedure Hoge2
begin
if 条件 then
begin
文の並び
end
else (*ここ変?*)
if 条件 then
begin
文の並び
.....
私ならこんな感じかな。
procedure Hoge3
begin
if 条件 then begin
文の並び
end else
if 条件 then begin (*たいして変わらんか*)
文の並び
end else begin
文の並び
end
end;
Pascalといっても人によって結構違うみたいです。が、そんなに多くの
ソースコードがあるわけじゃないですね。(^^;
--
Yukio Sakuma
> Pascalといっても人によって結構違うみたいです。
Wirth さんの本では、begin の後に文を書いてましたね。
while j<=n do {eliminate}
begin sieve := sieve - [j]; j := j+c
end
みたいな。2つくらいなら上記のようだけど、たくさんあると、
begin pi := 3/14159;
writeln(2.0,7,power(2.0,7));
spi := power(pi,2);
writeln(pi,2,spi);
writeln(spi,2,power(spi,2));
writeln(spi,4,power(pi,4))
end.
だったり、
begin try(18,27);
try(312,2142);
try(61,53);
try(98,868)
end.
だったり。あたしゃ、どうしても馴染めなかったです。
# 「↑」って、どう書くんでしたっけ?
--
池田研二 稲城駅前在住