フォーラム


ゲスト  

ようこそ ゲスト さん。このフォーラムに投稿するには 登録が必要です。
ページ: [1]
トピック: FizzBuzz
DEKO
管理者
投稿数: 2693
FizzBuzz
on: 2013/04/06 12:04 Sat

ネタコードです。

program FizzBuzz;

{$APPTYPE CONSOLE}

uses
  System.SysUtils;

const
  FIZZ      = 3;
  BUZZ      = 5;
  FIZZ_BUZZ = FIZZ * BUZZ; // FIZZ も BUZZ も素数なのでこれでいい 
  SPLITTER  = 5;
var
  i: WORD;
  s: AnsiString;
  p: PAnsiChar;
begin
  s := 'Fizz Buzz';
  for i:=1 to 100 do
    begin
      p := @s[1];
      if      (i mod FIZZ_BUZZ) = 0 then
        s[SPLITTER] := #$20
      else if (i mod  FIZZ    ) = 0 then
        s[SPLITTER] := #$00
      else if (i mod  BUZZ    ) = 0 then
        Inc(p, SPLITTER)
      else
        begin
          Writeln(i);
          Continue;
        end;
      Writeln(StrPas(p));
    end;
end.

　
See Also:
[Delphi による FizzBuzz 解法 ]
http://ht-deko.minim.ne.jp/ft1207.html#120719
ページ: [1]
WP Forum Server by ForumPress | LucidCrew
バージョン: 1.7.5 ; ページロード: 0.023 sec.