99 lines
4.9 KiB
ObjectPascal
99 lines
4.9 KiB
ObjectPascal
unit РусскийЯзыг;
|
|
|
|
interface
|
|
|
|
uses PABCSystem;
|
|
|
|
// =====================================================
|
|
// 🇷🇺 РУССКИЕ СИНОНИМЫ для функций ввода-вывода
|
|
// =====================================================
|
|
|
|
// --- Вывод ---
|
|
procedure Вывод; overload;
|
|
procedure Вывод(obj: object); overload;
|
|
procedure Вывод(obj1, obj2: object); overload;
|
|
procedure Вывод(params args: array of object); overload;
|
|
|
|
procedure ВыводСтроку; overload;
|
|
procedure ВыводСтроку(obj: object); overload;
|
|
procedure ВыводСтроку(obj1, obj2: object); overload;
|
|
procedure ВыводСтроку(params args: array of object); overload;
|
|
|
|
procedure Печать(o: object); overload;
|
|
procedure Печать(s: string); overload;
|
|
procedure Печать(params args: array of object); overload;
|
|
|
|
procedure ПечатьСтроку; overload;
|
|
procedure ПечатьСтроку(o: object); overload;
|
|
procedure ПечатьСтроку(params args: array of object); overload;
|
|
|
|
// --- Ввод ---
|
|
function ВводЦелого: integer; overload;
|
|
function ВводЦелого(prompt: string): integer; overload;
|
|
function ВводВещественного: real; overload;
|
|
function ВводВещественного(prompt: string): real; overload;
|
|
function ВводСтроки: string; overload;
|
|
function ВводСтроки(prompt: string): string; overload;
|
|
|
|
// --- Математика ---
|
|
function МодЧисла(x: integer): integer; overload;
|
|
function МодЧисла(x: real): real; overload;
|
|
function Корень(x: real): real;
|
|
function Квадрат(x: integer): int64; overload;
|
|
function Квадрат(x: real): real; overload;
|
|
function Случайное(maxValue: integer): integer; overload;
|
|
function Случайное(a, b: integer): integer; overload;
|
|
function Случайное(a, b: real): real; overload;
|
|
function Случайное: real; overload;
|
|
|
|
// --- Прочее ---
|
|
procedure Пауза(ms: integer);
|
|
procedure Завершить; overload;
|
|
procedure Завершить(exitCode: integer); overload;
|
|
|
|
implementation
|
|
|
|
// --- Вывод ---
|
|
procedure Вывод; begin PABCSystem.Write; end;
|
|
procedure Вывод(obj: object); begin PABCSystem.Write(obj); end;
|
|
procedure Вывод(obj1, obj2: object); begin PABCSystem.Write(obj1, obj2); end;
|
|
procedure Вывод(params args: array of object); begin PABCSystem.Write(args); end;
|
|
|
|
procedure ВыводСтроку; begin PABCSystem.Writeln; end;
|
|
procedure ВыводСтроку(obj: object); begin PABCSystem.Writeln(obj); end;
|
|
procedure ВыводСтроку(obj1, obj2: object); begin PABCSystem.Writeln(obj1, obj2); end;
|
|
procedure ВыводСтроку(params args: array of object); begin PABCSystem.Writeln(args); end;
|
|
|
|
procedure Печать(o: object); begin PABCSystem.Print(o); end;
|
|
procedure Печать(s: string); begin PABCSystem.Print(s); end;
|
|
procedure Печать(params args: array of object); begin PABCSystem.Print(args); end;
|
|
|
|
procedure ПечатьСтроку; begin PABCSystem.Println; end;
|
|
procedure ПечатьСтроку(o: object); begin PABCSystem.Println(o); end;
|
|
procedure ПечатьСтроку(params args: array of object); begin PABCSystem.Println(args); end;
|
|
|
|
// --- Ввод ---
|
|
function ВводЦелого: integer; begin Result := PABCSystem.ReadInteger; end;
|
|
function ВводЦелого(prompt: string): integer; begin Result := PABCSystem.ReadInteger(prompt); end;
|
|
function ВводВещественного: real; begin Result := PABCSystem.ReadReal; end;
|
|
function ВводВещественного(prompt: string): real; begin Result := PABCSystem.ReadReal(prompt); end;
|
|
function ВводСтроки: string; begin Result := PABCSystem.ReadString; end;
|
|
function ВводСтроки(prompt: string): string; begin Result := PABCSystem.ReadString(prompt); end;
|
|
|
|
// --- Математика ---
|
|
function МодЧисла(x: integer): integer; begin Result := PABCSystem.Abs(x); end;
|
|
function МодЧисла(x: real): real; begin Result := PABCSystem.Abs(x); end;
|
|
function Корень(x: real): real; begin Result := PABCSystem.Sqrt(x); end;
|
|
function Квадрат(x: integer): int64; begin Result := PABCSystem.Sqr(x); end;
|
|
function Квадрат(x: real): real; begin Result := PABCSystem.Sqr(x); end;
|
|
function Случайное(maxValue: integer): integer; begin Result := PABCSystem.Random(maxValue); end;
|
|
function Случайное(a, b: integer): integer; begin Result := PABCSystem.Random(a, b); end;
|
|
function Случайное(a, b: real): real; begin Result := PABCSystem.Random(a, b); end;
|
|
function Случайное: real; begin Result := PABCSystem.Random; end;
|
|
|
|
// --- Прочее ---
|
|
procedure Пауза(ms: integer); begin PABCSystem.Sleep(ms); end;
|
|
procedure Завершить; begin PABCSystem.Halt; end;
|
|
procedure Завершить(exitCode: integer); begin PABCSystem.Halt(exitCode); end;
|
|
|
|
end. |