bin/Lib/TasksMatr.pas - master - n-dimens/pascalabcnet

bin/Lib/TasksMatr.pas
106 строк4 KB
Mikhalkovich Stanislav
Поправлен LightPT
01 июл 2024, 21:06
01 июл 2024, 21:0667aa35b
unit TasksMatr;

uses LightPT;

var AllTaskNames: array of string;

procedure CheckTaskT(name: string);
begin
  ClearOutputListFromSpaces; // Это чтобы a.Print работал. По идее, надо писать всегда. Яне знаю задач, где пробелы в ответе

  case name of
  'ДвумерныеМассивы1': begin 
    // Есть проблема - если при выводе вещественные будут перемежаться с целыми, то ошибка!
    ConvertStringsToNumbersInOutputList; // Это при выводе двумерных массивов возникают строки. 
    // Если строка не преобразуется в массив, то так и останется строкой
    FilterOnlyNumbersAndBools; // после преобразования те строки, которые нельзя преобразовать в числа, отфильтровать
    CheckOutput(5,4,5,5,2,4,3,3,5,3,5,4);
  end;
  'ДвумерныеМассивы2': begin 
    ConvertStringsToNumbersInOutputList;
    FilterOnlyNumbersAndBools;
    CheckOutput(5,4,5,5,2,4,3,3,5,3,5,4);
  end;
  'ДвумерныеМассивы3': begin 
    ConvertStringsToNumbersInOutputList;
    CheckData(Input := cInt*12);
    CheckOutput(InputList);
  end;
  'Заполн1_Формула','Заполн2_Matr': begin 
    ConvertStringsToNumbersInOutputList;
    CheckData(Input := Empty);
    
    var ob := new ObjectList;
    for var i:=0 to 8 do
    for var j:=0 to 8 do
      ob.Add((i+1)*(j+1));
    CheckOutput(ob);
  end;
  'Заполн3_Шахм': begin 
    ConvertStringsToNumbersInOutputList;
    CheckData(Input := Empty);
    
    var ob := new ObjectList;
    for var i:=0 to 8 do
    for var j:=0 to 8 do
      if (i + j).IsEven then
        ob.Add(1)
      else ob.Add(0);
    CheckOutput(ob);
  end;
  'SumInMatr': begin 
    ConvertStringsToNumbersInOutputList;
    var n := 12;
    CheckData(InitialInput := cInt*n, InitialOutput := cInt*n);
    var res := IntArr(n).Sum;
    CheckOutputAfterInitial(res);
  end;
  'MaxInMatr': begin 
    ConvertStringsToNumbersInOutputList;
    var n := 12;
    CheckData(InitialInput := cInt*n, InitialOutput := cInt*n);
    var res := IntArr(n).Max;
    CheckOutputAfterInitial(res);
  end;
  'СтрокаСтолбец1','СтрокаСтолбец3': begin 
    ConvertStringsToNumbersInOutputList;
    var n := 54;
    CheckData(InitialInput := cInt*n, InitialOutput := cInt*n);

    var m := MatrByRow(6,9,IntArr(n));
    CheckOutputAfterInitial(m.Row(2)); 
  end;
  'СтрокаСтолбец2','СтрокаСтолбец4': begin 
    ConvertStringsToNumbersInOutputList;
    var n := 54;
    CheckData(InitialInput := cInt*n, InitialOutput := cInt*n);

    var m := MatrByRow(6,9,IntArr(n));
    CheckOutputAfterInitial(m.Col(8)); 
  end;
  'MaxInRow': begin 
    ConvertStringsToNumbersInOutputList;
    var n := 54;
    CheckData(InitialInput := cInt*n, InitialOutput := cInt*n);

    var m := MatrByRow(6,9,IntArr(n));
    CheckOutputAfterInitial(m.Row(0).Max,m.Row(5).Min,m.Col(4).Average);    
  end;
  'CountInRowsCols': begin 
    ConvertStringsToNumbersInOutputList;
    var n := 54;
    CheckData(InitialInput := cInt*n, InitialOutput := cInt*n);
    GenerateTests(10, tInt(1,5) * n);
    
    var m := MatrByRow(6,9,IntArr(n));
    CheckOutputAfterInitial(m.Row(1).CountOf(2), m.Col(2).Count(x->x.IsOdd));
  end;  end;
end;

initialization
  CheckTask := CheckTaskT;
  AllTaskNames := Arr('ДвумерныеМассивы1','ДвумерныеМассивы2','ДвумерныеМассивы3',
  'Заполн1_Формула','Заполн2_Matr','Заполн3_Шахм','SumInMatr','MaxInMatr',
  'СтрокаСтолбец1','СтрокаСтолбец3','СтрокаСтолбец2','СтрокаСтолбец4','MaxInRow','CountInRowsCols' );
finalization
end.