Ada Programlama Dili — Örnekler: Döngüler

https://www.dogtas.com/images/uploaded/blog-images/kilim-motifleri-ve-anlamlari/kus-motifi.jpg

1. Numbers

Bu program, argüman olarak iki adet tamsayı ile çalıştırılacak ve girilen tamsayılar arasındaki tüm sayıları ekrana yazacak.

display_numbers.adb

with Ada.Text_IO;

procedure Display_Numbers (A, B : Integer) is
   use Ada.Text_IO;

   Min, Max : Integer := 0;

   procedure Find_Min_Max (A, B : Integer) is
   begin
      if A <= B then
         Min := A;
         Max := B;
      else
         Min := B;
         Max := A;
      end if;
   end Find_Min_Max;

begin

   Find_Min_Max (A, B);

   for I in Min .. Max loop
      Put_Line (I'Image);
   end loop;

end Display_Numbers;

Derleme ve Test

❯ gnatmake main.adb
gcc -c main.adb
gcc -c display_numbers.adb
gnatbind -x main.ali
gnatlink main.ali

❯ ./main 3 -1
-1
 0
 1
 2
 3

❯ ./main 100 100
 100

❯ ./main 1_100_230 1_100_232
 1100230
 1100231
 1100232

Soruların Aslı

1. Numbers