Ada言語 13日目 関数

#はじめに
今回は関数を使ってみました。

#ソースと結果

main.adb

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

procedure main is

   hennsuu1 : Integer := 0;
   
   -- function kannsuu1(hikisuu1 : Integer) return Integer;
   
   function kannsuu1(hikisuu1 : Integer) return Integer is
      hennsuu2 : Integer := 0;
   begin
      Ada.Text_IO.Put_Line("call kannsuu1");
      hennsuu2 := 100;
      return (hennsuu2 + hikisuu1);
   end kannsuu1;
   
begin
   
   Ada.Text_IO.Put_Line("Ada : sub program");
   
   hennsuu1 := kannsuu1(50);
   
   Ada.Integer_Text_IO.Put(hennsuu1, 1);

end main;

まず、コメントアウトしてある1行はC言語のプロトタイプ宣言にあたるものだと思います。
この1行を入れても入れなくても動作することを確認しました。

関数を宣言する場所は変数を宣言する場所と同じらしいです。

実行結果1行目 : call kannsuu1
実行結果2行目 : 150

#最後に
どうやらAda言語はクラスも使えるらしいのです!

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