/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/Oberon00System.pas
58 строк
1 KB
Mikhalkovich Stanislav
fix #2058
02 авг 2019, 10:17
02 авг 2019, 10:17
66b7aa4
Код
Авторство
О чём код?
// Copyright (c) Ivan Bondarev, Stanislav Mikhalkovich (for details please see \doc\copyright.txt) // This code is distributed under the GNU LGPL (for details please see \doc\license.txt) 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.