Ada言語 9日目 FizzBuzz

#はじめに
if文とfor文が使えるようになったのでFizzBuzzができるようになりました。
やるしかありませんね。

#ソースと結果

main.adb

with Ada.Text_IO;
with Ada.Integer_Text_IO;
use Ada.Text_IO;
use Ada.Integer_Text_IO;

procedure main is

    counter : Integer := 0;

begin

    for counter in 1 .. 32 loop

        Ada.Integer_Text_IO.Put(counter, 1);
        Ada.Text_IO.New_Line;

        if counter mod 3 = 0 then
            Ada.Text_IO.Put_Line("Fizz");
        end if;

        if counter mod 5 = 0 then
            Ada.Text_IO.Put_Line("Buzz");
        end if;

    end loop;

end main;

実行結果 : FizzBuzzは成功しました。

#最後に
Fizz!Buzz!

#日記一覧へ
Ada言語を習得する日記一覧