58 lines
972 B
ObjectPascal
58 lines
972 B
ObjectPascal
// (c) Mikst, Juliet 2010
|
|
/// Ñèñòåìíûé ìîäóëü äëÿ ÿçûêà Oberon
|
|
unit Oberon00System;
|
|
|
|
interface
|
|
|
|
type
|
|
/// Ëîãè÷åñêèé òèï (TRUE | FALSE)
|
|
BOOLEAN = System.boolean;
|
|
/// Öåëîå ÷èñëî
|
|
INTEGER = System.Int32;
|
|
/// Êîðîòêîå öåëîå ÷èñëî
|
|
SHORTINT = System.byte;
|
|
/// Äëèííîå öåëîå ÷èñëî
|
|
LONGINT = System.int64;
|
|
/// Âåùåñòâåííîå ÷èñëî
|
|
REAL = System.double;
|
|
/// Äëèííîå âåùåñòâåííîå ÷èñëî
|
|
LONGREAL = System.double;
|
|
/// Ñèìâîë
|
|
CHAR = System.char;
|
|
/// Ñòðîêà
|
|
STRING = System.string;
|
|
/// Ìíîæåñòâî öåëûõ
|
|
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;
|
|
|
|
/// Âûâåñòè çíà÷åíèå
|
|
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. |