FMIC7743.log.exe/D

日記です。ありとあらゆる怪文書がここに

FMIC7743.log.exeのほぼ日記
べんりなショートカット:青年と少女、伝道師とかみさま(ゲートウェイ)
曲紹介 / MMD向け配布物 / フリーフォント「2_4_IX_1」 / 「もちもちした生物をつくる」 / 「胡乱混沌神宮開運神籤」
ニコニコ動画 / YouTube
pixiv / Twitter + Twilog / soundcloud / privatter / note / 胡乱観光物産館 渦音BOOTH店SUZURI店 / Skeb / /words(@wiki)
その他各種ご用命の際はメールまたは各種SNSのメッセージ・念波・狼煙・伝書鳩などをご利用ください。

Fizz-Buzz問題か…

面白そうネ…プログラミングの授業は面白いので好きですの。
↓と言うわけでちょっとやってみた。Pascalで。問題についてはキーワードを参照。
{}のコメントアウトは脚注にしてあります

var
i:integer;
begin
for i:=1 to 100 do{*1}
 if i mod 15=0{*2}
 then writeln("FizzBuzz")
 else
  if i mod 3=0{*3}
  then writeln("Fizz")
  else
   if i mod 5=0{*4}
   then writeln("Buzz")
  else writeln(i);{*5}
end.

…多分色々おかしいです。文法が合ってる自信ありません。
でも理屈はこれでええはず…多分。

*1:iが1から100まで繰り返す

*2:iが3と5の両方で割り切れる=3と5の公倍数15で割ったあまりが0の時

*3:iが3で割り切れる=iを3で割った時のあまりが0の時

*4:iが5で割り切れる=iを5で割った時のあまりが0の時

*5:それ以外…3でも5でも割ったあまりが0ではない時