3GL - .   4GL -     DB-

, . , , .

. , . , , , .

, , , :

:

     with _; use _;

     procedure _

        : __;

     begin

       _1;
       _2;

     end _;

_ .
( : begin - end, (.. /) ).

: __ . , "__"? . , Variable : Integer;. , Variable : Float; ..

, .
( : , ! ).

begin .

_1; _1; ; , .

end _; . , "" , , . , , ;-) "Hello World", .

     with Ada.Text_IO; use Ada.Text_IO;

     procedure Hello_World is

       --       :)

     begin

       Put ("Hello world!");

     end Hello_World;

"Text_IO" /;
.
( : "" /, ).
"Ada." "Text_IO". -- -- , .
( : . Text_IO Ada).

( ) "Hello_World." "with" "use" . , hello_world.ada. : GNAT hello_world.adb.

, , . (--) " :)". , . . " :)" , , , " :)" , . Put ("Hello world!"); .

, , . "Put "Hello world!";"!

, Notice also that many of the names begin with capital letters ("Text_IO" ). - , .

. / :

     with Ada.Text_IO; use Ada.Text_IO;

     procedure Get_Name is

       Name   : String (1..80);
       Length : Integer;

     begin

       Put ("  > ");
       Get_Line (Name, Length);
       New_Line;
       Put (" ");
       Put (Name (1..Length));
       Put (",      !");

     end Get_Name;

? , Text_IO, procedure Get_Name is

Name , String (1..80) , Name 80 . , Length, .

: , " > ", . Enter (New_Line;) " [ ], !".

            3GL - .   4GL -     DB-

, --, Class-responsibility-collaboration - -- - - , :
- - - , ;
- - - , .




 10.11.2021 - 12:37: - Personalias -> WHO IS WHO - - _.
10.11.2021 - 12:36: - Conscience -> . ? - _.
10.11.2021 - 12:36: , , - Upbringing, Inlightening, Education -> ... - _.
10.11.2021 - 12:35: - Ecology -> - _.
10.11.2021 - 12:34: , - War, Politics and Science -> - _.
10.11.2021 - 12:34: , - War, Politics and Science -> . - _.
10.11.2021 - 12:34: , , - Upbringing, Inlightening, Education -> , - _.
10.11.2021 - 09:18: - New Technologies -> , 5G- - _.
10.11.2021 - 09:18: - Ecology -> - _.
10.11.2021 - 09:16: - Ecology -> - _.
10.11.2021 - 09:15: , , - Upbringing, Inlightening, Education -> - _.
10.11.2021 - 09:13: , , - Upbringing, Inlightening, Education -> - _.
Bourabai Research -  XXI Bourabai Research Institution