Автор: Bronislav

Bronislav — Mon, 29 Oct 2018 22:17:53 +0000

program Param26;//pabc.net, для любых k1 и k2 в любых сочетаниях

type
  RealArr = array of real;

procedure PrintRealArr(a: array of RealArr);
begin
  for var i := 0 to a.GetLength(0) - 1 do
  begin
    for var j := 0 to a[i].High do 
      Write(a[i][j]:7:2);
    Writeln;
  end
end;

procedure RemoveRows(var a: array of RealArr; k1, k2: integer);
begin
  var BLen: integer;
  
  if ((k1 < 0) and (k2 < 0)) or ((k1 > a.GetLength(0) - 1) and (k2 > a.GetLength(0) - 1))
    then exit
  else if (k1 < 0) and (k2.InRange(0, a.GetLength(0) - 1))
    then BLen := a.GetLength(0) - k2 - 1
  else if (k2 < 0) and (k1.InRange(0, a.GetLength(0) - 1))
    then BLen := a.GetLength(0) - k1 - 1
  else if (k1.InRange(0, a.GetLength(0) - 1)) and (k2 > a.GetLength(0) - 1)
    then BLen := k1
  else if (k2.InRange(0, a.GetLength(0) - 1)) and (k1 > a.GetLength(0) - 1)
    then BLen := k2
  else if ((k1 < 0) and (k2 > a.GetLength(0) - 1)) or ((k2 < 0) and (k1 > a.GetLength(0) - 1))
    then BLen := 0
  else if (k1.InRange(0, a.GetLength(0) - 1)) and (k2.InRange(0, a.GetLength(0) - 1))
    then BLen := a.GetLength(0) - (Abs(k1 - k2) + 1);
  
  var b := new RealArr[BLen];
  var i2 := 0;
  for var i := 0 to a.GetLength(0) - 1 do
  begin
    if i.InRange(k1, k2) or i.InRange(k2, k1) then continue;
    b[i2] := a[i];//присваивается ссылка, содержимое не копируется
    i2 += 1
  end;
  a := b;//присваивается новая ссылка, меняется размер, поэтому var-параметр
end;

begin
  var m := 5;
  var n := 6;
  
  var a := new RealArr[m];
  for var i := 0 to m - 1 do 
    a[i] := ArrGen(n, Int(N * i * 2 + 1), i -> i + 2);//d-from-d, арифм прогрессия
  
  PrintRealArr(a);
  //   1.00   3.00   5.00   7.00   9.00  11.00
  //  13.00  15.00  17.00  19.00  21.00  23.00
  //  25.00  27.00  29.00  31.00  33.00  35.00
  //  37.00  39.00  41.00  43.00  45.00  47.00
  //  49.00  51.00  53.00  55.00  57.00  59.00
  
  var k1 := 5;
  var k2 := 6;
  
  k1 -= 1;
  k2 -= 1;
  RemoveRows(a, k1, k2);
  m := a.GetLength(0);
  
  Writeln($'k1 = {k1+1}, k2 = {k2+1}, m x n = {m} x {n}');//k1 = 5, k2 = 6, m x n = 4 x 6
  PrintRealArr(a);
  //   1.00   3.00   5.00   7.00   9.00  11.00
  //  13.00  15.00  17.00  19.00  21.00  23.00
  //  25.00  27.00  29.00  31.00  33.00  35.00
  //  37.00  39.00  41.00  43.00  45.00  47.00
end.

program Param26;//pabc.net, для любых k1 и k2 в любых сочетаниях

type

RealArr = array of real;

procedure PrintRealArr(a: array of RealArr);

begin

for var i := 0 to a.GetLength(0) - 1 do

begin

for var j := 0 to a[i].High do

Write(a[i][j]:7:2);

Writeln;

end

end;

procedure RemoveRows(var a: array of RealArr; k1, k2: integer);

begin

var BLen: integer;

if ((k1 < 0) and (k2 < 0)) or ((k1 > a.GetLength(0) - 1) and (k2 > a.GetLength(0) - 1))

then exit

else if (k1 < 0) and (k2.InRange(0, a.GetLength(0) - 1))

then BLen := a.GetLength(0) - k2 - 1

else if (k2 < 0) and (k1.InRange(0, a.GetLength(0) - 1))

then BLen := a.GetLength(0) - k1 - 1

else if (k1.InRange(0, a.GetLength(0) - 1)) and (k2 > a.GetLength(0) - 1)

then BLen := k1

else if (k2.InRange(0, a.GetLength(0) - 1)) and (k1 > a.GetLength(0) - 1)

then BLen := k2

else if ((k1 < 0) and (k2 > a.GetLength(0) - 1)) or ((k2 < 0) and (k1 > a.GetLength(0) - 1))

then BLen := 0

else if (k1.InRange(0, a.GetLength(0) - 1)) and (k2.InRange(0, a.GetLength(0) - 1))

then BLen := a.GetLength(0) - (Abs(k1 - k2) + 1);

var b := new RealArr[BLen];

var i2 := 0;

for var i := 0 to a.GetLength(0) - 1 do

begin

if i.InRange(k1, k2) or i.InRange(k2, k1) then continue;

b[i2] := a[i];//присваивается ссылка, содержимое не копируется

i2 += 1

end;

a := b;//присваивается новая ссылка, меняется размер, поэтому var-параметр

end;

begin

var m := 5;

var n := 6;

var a := new RealArr[m];

for var i := 0 to m - 1 do

a[i] := ArrGen(n, Int(N * i * 2 + 1), i -> i + 2);//d-from-d, арифм прогрессия

PrintRealArr(a);

// 1.00 3.00 5.00 7.00 9.00 11.00

// 13.00 15.00 17.00 19.00 21.00 23.00

// 25.00 27.00 29.00 31.00 33.00 35.00

// 37.00 39.00 41.00 43.00 45.00 47.00

// 49.00 51.00 53.00 55.00 57.00 59.00

var k1 := 5;

var k2 := 6;

k1 -= 1;

k2 -= 1;

RemoveRows(a, k1, k2);

m := a.GetLength(0);

Writeln($'k1 = {k1+1}, k2 = {k2+1}, m x n = {m} x {n}');//k1 = 5, k2 = 6, m x n = 4 x 6

PrintRealArr(a);

// 1.00 3.00 5.00 7.00 9.00 11.00

// 13.00 15.00 17.00 19.00 21.00 23.00

// 25.00 27.00 29.00 31.00 33.00 35.00

// 37.00 39.00 41.00 43.00 45.00 47.00

end.

Комментарии: Решаем задачи Абрамян на Паскале. Param26

Автор: Bronislav