#99 Article 981 Posted at 1995/12/05 19:16:40 by だまりん (MAP3443) [SAHOU.1]

Subject: Re:*6 プログラミングお作法の話 /946 ... /941 /940 

面白そうなので参加希望。


program nyan;

var
  i,j,k : word;

procedure write_nyan;        {面倒なので手続きに…}
begin
  begin
  for k := 1 to i do         {にゃんをi回書き出す}
    write('にゃん');         {文字列ごと掛け算できればねぇ}
  end;
  writeln;                   {にゃんの最後にcrlfを書き込む}
end;


begin
  write('どこまで数える?');
  read(j);
  for i := 1 to j-1 do         {case文で他の変数とそのまま評価できない}
  begin                        {みたいなので指定の一つ前までループ}
    case i of
      3, 5  : write_nyan;
    else
      writeln(i);
    end;
  end;
inc(i);                      {最後に一つカウンタの数値を増やして}
write_nyan;                  {さいごにもひとつ にゃん }
end.


　Mick'nさんがperlで書いたのを見ておもわず苦笑い、どうしてこんなに短く書けるんでしょ(^^;。Pascalだとどうしてもでかくなるなぁ。


						だまりん