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言語を習得する日記一覧