Ada Programlama Dili — Örnekler: Döngüler
Published in
May 30, 2024
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