• TOP /
• BBS /
• #99 プログラム技術 /
• Article 954

• Older
• Newer

#99 Article 954 Posted at 1995/12/02 22:19:40 by えす (MAP2303) [NYAN]

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

はい、とりあえずターパスです。

-----------------------------------------------------------------------
program nyan;

uses crt;

procedure help(s:string);
begin
  writeln;
  if (length(s) > 0) then begin
    writeln(s);
    writeln;
  end;
  writeln('  usage: nyan.exe <n>');
  writeln('               n: 1..255');
  writeln;
  readln;
  halt;
end;

const
  sp : set of byte = [3,5];
var
  n,i,j : word;
  error : integer;
begin
  if (paramcount = 0) then
    help('');
  val(paramstr(1), n, error);
  if (error > 0) or (n = 0) then
    help('Illegal argument.');

  i := 1;
  while (i < n) do begin
    if (i in sp) then begin
      for j:=1 to i do
        write('にゃん');
      writeln;
    end else
      writeln(i);
    i := i+1;
  end;
  for i:=1 to n do
    write('にゃん');
  writeln('！(*^^*)');
end.
-------------------------------------------------------------------------

　　診断。
　・タブは２。
　・ヘルプを作りたがる。
　・引数が多くても無視する。
　・最初とか最後にちょっと違った処理を入れる場合、for や while ループから
　　出して処理する。
　・ちょっとしたifは、caseでなく、inを使う。

　みっくんさんのperl見て、いいなぁ。
　あんなに簡単なんですね(^^;

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　えす