Ada 95 , , ( ). , . Ada 95 . , , , .
-
() ,
with <_>;
- ( ) . .1.
.1. -
| - | |
| Ada.Text_IO Ada.lnteger_Text_IO Ada.Float_Text_IO | Character, String Integer Float |
- , , () . .
. .2, - - Ada.Text_IO.
.2. - Ada.Text_IO
| Integer_IO Float_IO Enumeration_IO Fixed_IO Decimal_IO Modular_IO |
, Ada.Text_IO.Modular_IO, Ada.Text_IO.Enumeration _IO.
. . .
:
with < >;
package < -> is
new < > (< >);
, :
Type Summer is (may. jun, jul. aug);
- :
with Ada.Text_IO.Enumeration_IO;
package Summer_IO is new Ada.Text_IO.Enumeration_IO (Summer);
SummerJO .
:
<>. Get (<>);
, Character
Ada.Text_IO.Get (Var);
Var ( Character) , . , Enter .
:
Ada.Integer_Text_IO.Get (Var2);
Var2 Integer . Enter . , , +, - . Enter.
|
|
|
,
Put (<1>,
<> => <>,...);
.
,
Ada.Text_IO.Put (Item => Var3)
Var3 ( Character) , .
Ada.Integer_Text_IO.Put (Var4. Width => 4)
Var4, Width ( 4). ( ) , Width, , . , Width, , . Width , , .
<>:= <>;
: , .
if < 1> then
< 1>
elsif < 2> then
< 2>
else
3>
end if;
.
( elsif, else).
,
case < > is
when < 1> =>
< 1>
when < n> =>
< n>
when others =>
< n+1>
end case;
:
1) ;
2) ( ) ;
3) , , case;
4) , , when others.
('|') :
q <>;
q < n>..< m>.
:
case Number is
when 1 | 7 => Put ("Is 1 or 7");
when 5 => Put ("Is 5");
when 25..100 => Put ("Is number between 25 and 100");
when others => Put ("Is unknown number");
end case;
case Answer is
when 'A'..'Z' | 'a'..'z' => Put_Line ("It's a letter!");
when others => Put_Line ("It's not a letter!")
end case;
,
declare
< >
|
|
|
begin
< >
end;
declare .
:
declare
Ch: Character;
begin
Ch:= 'A';
Put (Ch);
end;
loop
loop
< 1>
exit when < >
< 2>
end loop;
.
.
1. 1.
2. . True, .
3. 2. 1.
, False. , , . exit exit when <>.
:
Count:= 1;
loop
Ada.Integer_Text_IO.Put (Count);
exit when Count = 10;
Count:= Count + 1;
end loop:
:
12345678910
:
Count:= 1
loop
Ada.Integer_Text_IO.Put (Count);
if Count = 10 then
exit;
end if;
Count:= Count + 1;
end loop;
while ,
while < > loop
< >
end loop;
.
1. . True, 2. ( False) .
2. . 1.
, .
while.
1. .
2. , True.
3. , ( ).
:
Count:=1;
loop
while Count <= 10 loop
Put (Count):
Count:= Count + 1;
end loop;
:
12345678910
for . .
for :
for < > in < > loop
< >
end loop;
, ( ). . .
min.. max;
( ).
:
for Count in 1.. 10 loop
Put (Count);
end loop;
:
1 2 3 4 5 7 8 9 10
for
for < > in reverse < > loop
< >
end loop;
, ( ). -, .
:
for Count in reverse 1.. 10 loop
Put (Count);
end loop;
:
10987654321
exit exit when while, for.
