1. Заполнить прямоуг. Матрицу единицами и нулями в шахматном порядке, начиная с верхнего левого угла.
2. Найти в каждой строке матрицы макс. и мин. элементы и поместить их на место первого и последнего эл-та строки, соответственно. Матрицу напечатать в общепринятом виде.
3. Задан массив А размером (N*M) и вектор В размером N . Элементы первого столбца массива А упорядочены по убыванию. Включить массив В в качестве новой строки в массив А с сохранением упорядоченности по эл-там первого столбца.
Заранее всем спасибо.
В чем конкретно проблема ? http://forum.pascal.net.ru/index.php?showtopic=2694
+ Поиск
1 Задача
вариант 1:
procedure CreateMatrix(var mx: TMatrix; n, m: Integer);
var
i, j: Integer;
begin
for i := 1 to n do
for j := 1 to m do
if odd(i) = odd(j) then mx[i, j] := 1 else mx[i, j] := 0;
end;
А что такое odd(i) - можно ли заменить odd каким-нить другим словом?
Я теории уже по матрицам столько начитался... но все равно не догоняю. Я конечно понимаю, что на этом форуме сидят компьютерные гении, но я не из вашего числа (пока). Поэтому хотелось бы увидеть то, что я прошу - т.е. решение задач.
2 klem4 - спасибо за первую.
odd(i) возвращает true если i - НЕчетное
odd(i) == (i mod 2 <> 0)