Upload New File

ТЕСТЫ/РусскийЯзыг.pas

@@ -0,0 +1,99 @@
+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.