58 lines
972 B
ObjectPascal
58 lines
972 B
ObjectPascal
|
// (c) Mikst, Juliet 2010
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> Oberon
|
|||
|
|
unit Oberon00System;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> (TRUE | FALSE)
|
|||
|
|
BOOLEAN = System.boolean;
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
INTEGER = System.Int32;
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
SHORTINT = System.byte;
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
LONGINT = System.int64;
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
REAL = System.double;
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
LONGREAL = System.double;
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
CHAR = System.char;
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
STRING = System.string;
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
iset = array of integer;
|
|||
|
|
|
|||
|
|
procedure Print(o: object);
|
|||
|
|
procedure Println(o: object);
|
|||
|
|
procedure Println(o1,o2: integer);
|
|||
|
|
procedure Println;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
|
|||
|
|
uses System;
|
|||
|
|
|
|||
|
|
procedure Print(o: object);
|
|||
|
|
begin
|
|||
|
|
Console.Write(o);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
/// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
procedure Println(o: object);
|
|||
|
|
begin
|
|||
|
|
Console.WriteLine(o);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure Println(o1,o2: integer);
|
|||
|
|
begin
|
|||
|
|
Print(o1);
|
|||
|
|
Println(o2);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure Println;
|
|||
|
|
begin
|
|||
|
|
Console.WriteLine;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|