Ada | 2. Grundlegende Sprachelemente

Konditionale Ausdrücke

if-Statement

if N < 15 then 
elseif N = 15
else -- else ist pflicht 
end if;

case-Statement

case N is 
	when 0 | 360 =>
		Put_Line("1");
	when 1 .. 89 =>
		Put_Line("2");
	when 90 =>
		Put_Line("3");
	when others =>
		Put_Line("4");
end case;

Schleifen

For-Schleife

For I in inverse 1 .. 10 loop -- inverse
	Put_Line("1");
end loop;

loop 
	exit when I = 5;
	I := I + 1;
end loop;

Datentypen

Integer

type LINE_NUMBER is range 1..15;

Records:

type Date is record
	Day: Integer range 1 .. 30;
	Month: Months;
	Year: Integer range 1.. 3000 := 2021; --Default
end record;

Enum:

type Weekend is (Saturday, Sunday);

Arrays:

type myArray is array (1..10) of Float;