106 lines
3.9 KiB
ObjectPascal
106 lines
3.9 KiB
ObjectPascal
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. |