Новые примеры

This commit is contained in:
Mikhalkovich Stanislav 2026-02-03 20:56:57 +03:00
parent eaa0f21025
commit 1078e9ae21
7 changed files with 52 additions and 0 deletions

View file

@ -0,0 +1,8 @@
// 3.11.1. В интерполированных строках теперь интерполируется содержимое контейнеров
begin
Println($'{[1,2,3]}');
Println($'{Lst(1,2,3)}');
Println($'{Lst([1,2],[3,4])}');
Println($'{SetOf(1,2,3)}');
Println($'{Dict(1 to 2, 3 to 4)}');
end.

View file

@ -0,0 +1,7 @@
// 3.11.1. ArrRandomInteger и MatrRandomInteger с диапазоном
begin
var a := ArrRandomInteger(10,5..10);
a.Println;
var m := MatrRandomInteger(3,4,2..9);
m.Println(3);
end.

View file

@ -0,0 +1,6 @@
// 3.11.1. ToString(digits) для массива вещественных
begin
var a := ArrRandomReal(5);
var s := a.ToString(1);
Print(s);
end.

View file

@ -0,0 +1,9 @@
// 3.11.1. ToString(digits) для массива вещественных
begin
var a := [1,3,5];
var a1 := a.Copy;
Println(a1);
var m := Matr([2,4,6],[3,5,8]);
var m1 := m.Copy;
Println(m1);
end.

View file

@ -0,0 +1,10 @@
// 3.11.1. Стандартные функцции GCD, LCM
begin
var (a,b) := (56,98);
var GCD := GCD(a, b);
var LCM := LCM(a, b);
Println($'НОД({a}, {b}) = {GCD}');
Println($'НОК({a}, {b}) = {LCM}');
end.

View file

@ -0,0 +1,5 @@
// 3.11.1. Стандартная функция Hypot
begin
Hypot(3,4).Println;
Hypot(6,5).Println;
end.

View file

@ -0,0 +1,7 @@
// 3.11.1. Метод Elements для матрицы - элементы по строкам
begin
var m := MatrRandomInteger(3,4);
m.Println;
m.Elements.Println;
Println(m.Elements.Min,m.Elements.Max,m.Elements.Sum);
end.