#はじめに
「GNAT Community 2018」を見つけてしまったので、当分Ubuntuから離れてWindowsでやっていこうと思います。
そして、今回はキーボード入力を活用して整数の足し算をやってみました。
整数型を範囲を超えた場合の処理はしていませんので、整数型に入らないとエラーが出ます。

#ソースと結果

main.adb

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

procedure main is

   nyuuryoku1 : Integer := 0;
   nyuuryoku2 : Integer := 0;
   
begin

   Ada.Text_IO.Put_Line("X = ");
   Ada.Integer_Text_IO.Get(nyuuryoku1, 0);
   
   Ada.Text_IO.Put_Line("Y = ");
   Ada.Integer_Text_IO.Get(nyuuryoku2, 0);
   
   Ada.Text_IO.Put_Line("X + Y = ");
   Ada.Integer_Text_IO.Put(nyuuryoku1 + nyuuryoku2, 0);

end main;

実行結果 : 足し算ができました。

勉強不足で、Integer_Text_IOのPutやGetの、第二引数の意味が分かりませんが、0と1で試したところ、動作したので0にしました。

#最後に
現在のままだと、IDEで日本語入力ができないのでどうにかしたいと思います。

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