program ChangeMatrix;
const
FileIn = 'C:\Users\admin\Documents\in.txt';
FileOut = 'C:\Users\admin\Documents\out.txt';
var
fin, fout: Text;
n: integer;
matrix: array of array of string;
row, col: integer;
src: string;
target: array of string;
counter: integer;
function Split(sep: string; source: string): array of string;
var
i: integer;
position: integer;
begin
result := Nil;
SetLength(result, n);
for i := 0 to n - 1 do
begin
position := Pos(sep, source);
if position > 0 then
begin
result[i] := Copy(source, 1, position - 1);
Delete(source, 1, position + Length(sep) - 1);
end
else
result[i] := source;
end;
end;
function Join(sep: string; source: array of string): string;
var
i: integer;
begin
result := source[0];
for i := 1 to n - 1 do
result := Concat(result, sep, source[i]);
end;
begin
Assign(fin, FileIn);
Reset(fin);
Assign(fout, FileOut);
Rewrite(fout);
While not EoF(fin) do
begin
// Читаем размер матрицы
Readln(fin, n);
// Обнуляем матрицу
matrix := Nil;
// Задаем размеры матрицы
SetLength(matrix, n);
for row := 0 to n - 1 do
SetLength(matrix[row], n);
// Читаем значения и заполняем матрицу
for row := 0 to n - 1 do
begin
Readln(fin, src);
target := Split(' ', src);
for col := 0 to n - 1 do
matrix[row][col] := target[col];
begin
end;
end;
// Удаляем элементы побочной диагонали
counter := 0;
row := n - 1;
col := 0;
while counter < n do
begin
matrix[row][col] := '*';
Dec(row);
Inc(col);
Inc(counter);
end;
// Записываем результат в файл
Writeln(fout, n);
for row := 0 to n - 1 do
begin
Writeln(fout, Join(' ', matrix[row]));
end;
end;
Close(fout);
Close(fin);
end.program ChangeMatrix;
const
DataFile = 'C:\Users\Jonathan\Documents\in.txt';
var
fdata: Text;
n: integer;
matrix: array of array of string;
change: array of string;
cursor: integer;
row, col: integer;
src: string;
target: array of string;
counter: integer;
function Split(sep: string; source: string): array of string;
var
i: integer;
position: integer;
begin
result := Nil;
SetLength(result, n);
for i := 0 to n - 1 do
begin
position := Pos(sep, source);
if position > 0 then
begin
result[i] := Copy(source, 1, position - 1);
Delete(source, 1, position + Length(sep) - 1);
end
else
result[i] := source;
end;
end;
function Join(sep: string; source: array of string): string;
var
i: integer;
begin
result := source[0];
for i := 1 to n - 1 do
result := Concat(result, sep, source[i]);
end;
begin
cursor := 0;
Assign(fdata, DataFile);
Reset(fdata);
While not EoF(fdata) do
begin
// Читаем размер матрицы
Readln(fdata, n);
// Обнуляем матрицу
matrix := Nil;
// Задаем размеры матрицы
SetLength(matrix, n);
SetLength(change, Length(change) + n + 1);
change[cursor] := IntToStr(n);
Inc(cursor);
for row := 0 to n - 1 do
SetLength(matrix[row], n);
// Читаем значения и заполняем матрицу
for row := 0 to n - 1 do
begin
Readln(fdata, src);
target := Split(' ', src);
for col := 0 to n - 1 do
matrix[row][col] := target[col];
begin
end;
end;
// Удаляем элементы побочной диагонали
counter := 0;
row := n - 1;
col := 0;
while counter < n do
begin
matrix[row][col] := '*';
change[cursor + row] := Join(' ', matrix[row]);
Dec(row);
Inc(col);
Inc(counter);
end;
Inc(cursor, n);
end;
Close(fdata);
Assign(fdata, DataFile);
Rewrite(fdata);
// Записываем результат в файл
for row := 0 to cursor - 1 do
begin
Writeln(fdata, change[row]);
end;
Close(fdata);
end.input_file = 'C:\\users\\admin\\documents\\input.txt'
with open(input_file, 'r') as file:
for line in file:
if all([raiting[-1] == '5' for raiting in line[line.index('{') + 1:line.index('}')].split(', ')]):
print(line[:line.index('=')].strip())Ivanon = {math:4, english:4, physic:4, chemistry:4, biology:4}
Petrov = {math:4, english:5, physic:4, chemistry:5, biology:4}
Sidorov = {math:5, english:5, physic:5, chemistry:5, biology:5}Sub ShiftUpEmptyCells()
Dim List As Worksheet
Set List = Excel.ActiveWorkbook.Worksheets("list")
' Пробегаем столбец "A" с конца и ищем первую непустую строку
For I = Rows.Count To 1 Step -1
If Not IsEmpty(List.Cells(I, 1)) Then
' Продолжаем пробегать от найденной, но уже удаляя пустые ячейки со сдвигом вверх
For J = I To 1 Step -1
If IsEmpty(Cells(J, 1)) Then
Cells(J, 1).Delete shift:=xlUp
End If
Next J
Exit For
End If
Next I
End Sub$x = 1.234;
$y = $x % 1; // 0
$y = $x - floor($x); // 0.234
$y = fmod($x, 1); // 0.234
$y = explode('.', $x); // $y[1] = 234
$x = -1.234;
$y = $x % 1; // 0
$y = $x - floor($x); // 0.766
$y = fmod($x, 1); // -0.234
$y = explode('.', $x); // $y[1] = 234Правило @page позволяет задать значение полей при печати документа или для страниц, у которых тип носителя задан как print.
program mtrx;
const
N = 5;
var
matrix: array of array of integer;
i, j: integer;
begin
SetLength(matrix, N);
for i := 0 to N - 1 do
SetLength(matrix[i], N);
Randomize;
for i := 0 to N - 1 do
begin
for j := 0 to N - 1 do
begin
matrix[i, j] := Random(100);
Write(matrix[i, j]:4);
end;
WriteLn();
end;
WriteLn();
for i := 0 to N - 1 do
SetLength(matrix[i], N + 2);
for i := 0 to N - 1 do
for j := N downto 0 do
matrix[i, j + 1] := matrix[i, j];
for i := 0 to N - 1 do
begin
matrix[i, 0] := 0;
for j := 0 to N + 1 do
Write(matrix[i, j]:4);
WriteLn();
end;
end.program transformation;
var
matrix: array of array of integer;
n, m: integer;
i, j: integer;
begin
Write ('M = ');
ReadLn (m);
Write ('N = ');
ReadLn (n);
// Создание размера динамического массива
SetLength(matrix, m);
for i := 0 to m - 1 do
SetLength(matrix[i], n);
// Заполнение матрицы
Randomize;
for i := 0 to m - 1 do
for j := 0 to n - 1 do
matrix[i, j] := Random(-100, 100);
// Вывод получившейся матрицы
WriteLn();
WriteLn('Исходная матрица:');
WriteLn();
for i := 0 to m - 1 do
begin
for j := 0 to n - 1 do
Write(matrix[i, j]:5);
WriteLn();
end;
// Преобразование матрицы
WriteLn();
WriteLn('Преобразованная матрица:');
WriteLn();
for i := 0 to m - 1 do
begin
for j := 0 to n - 1 do
begin
if matrix[i, j] < 0 then
matrix[i, j] := -1;
if matrix[i, j] > 0 then
matrix[i, j] := 1;
Write(matrix[i, j]:3);
end;
WriteLn();
end;
end.
config = [] пустым и потом снова очищать, и еще несколько раз?def generate_access_config(access, ps = False):
config_all = {}
access_template = ['switchport mode access',
'switchport access vlan',
'switchport nonegotiate',
'spanning-tree portfast',
'spanning-tree bpduguard enable']
port_security = ['switchport port-security maximum 2',
'switchport port-security violation restrict',
'switchport port-security']
for intf in access:
config = []
for line in access_template:
if line.endswith('vlan') == True:
config.append('{} {}'.format(line, access[intf]))
else:
config.append(line)
if ps == True:
config.extend(port_security)
config_all[intf] = config
return(config_all)