23 lines
523 B
Ada
23 lines
523 B
Ada
-- SAMPLE4.ADA Strings
|
||
|
||
with TEXT_IO; use TEXT_IO;
|
||
|
||
procedure SAMPLE4 is
|
||
|
||
CONST : constant STRING (1..5) := "Artek";
|
||
|
||
subtype STR10 is STRING (1..10);
|
||
|
||
S4 : STRING (1..4) := " Ada";
|
||
S10 : STR10 := ('C', 'o', 'm', 'p', 'i', 'l', 'e', 'r', others => ' ');
|
||
S20 : STRING (1..21) := (others => ' ');
|
||
|
||
begin
|
||
S20 (S20'FIRST .. CONST'LAST) := CONST;
|
||
S20 (CONST'LAST + 1 .. CONST'LAST + S4'LAST + S10'LAST + 1) :=
|
||
S4 & " " & S10;
|
||
NEW_LINE (2);
|
||
PUT_LINE (S20);
|
||
end SAMPLE4;
|
||
|
||
|