フォーラム


ゲスト  

ようこそ ゲスト さん。このフォーラムに投稿するには 登録が必要です。

ページ: [1]
トピック: FizzBuzz
DEKO
管理者
投稿数: 2651
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.024 sec.