with Ada.Text_IO;
use Ada.Text_IO;

procedure Merhaba is
begin
   Put_Line ("Merhaba Dünya!");
end Merhaba;
Kopyala

package body multiply is
   my_pi: constant Float := 3.1416;
   function multiply(m:Integer) return Float is
   begin
       return my_pi*float(m);
   end;
end multiply;
Kopyala

multiply.adb

multiply.ads

• medium.com'da "Ada Programlama Dili: Metotlar ve Procedures" makalesi 1;
• codeporting.ai sitesinde Ada programlama dili hakkında genel bakış 5.