35 lines
756 B
Plaintext
35 lines
756 B
Plaintext
|
-- SAMPLE3.ADA Overloading
|
|||
|
|
|
|||
|
|
with TEXT_IO; use TEXT_IO;
|
|||
|
|
|
|||
|
|
procedure SAMPLE3 is
|
|||
|
|
|
|||
|
|
procedure NAME (I : in INTEGER) is
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
PUT_LINE ("Following is an integer => " & INTEGER'IMAGE (I));
|
|||
|
|
NEW_LINE (2);
|
|||
|
|
end NAME;
|
|||
|
|
|
|||
|
|
procedure NAME (I : in STRING) is
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
PUT_LINE ("Following is a string => " & I);
|
|||
|
|
NEW_LINE (2);
|
|||
|
|
end NAME;
|
|||
|
|
|
|||
|
|
procedure NAME (I : in CHARACTER) is
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
PUT_LINE ("Following is a character => " & I);
|
|||
|
|
NEW_LINE (2);
|
|||
|
|
end NAME;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
NEW_LINE (2);
|
|||
|
|
NAME ('A'); -- NAME with character parameter
|
|||
|
|
NAME ("This is a string"); -- NAME with string parameter
|
|||
|
|
NAME (100); -- NAME with integer parameter
|
|||
|
|
end SAMPLE3;
|
|||
|
|
|
|||
|
|
|