Задача на исключение строк в матрице

[DRAG]

Написать подпрограмму в Паскале
Входные параметры
1)Матрица "A" размром (m) х (n)
2) Матрица "B" размером (m-1) x (n-1)
3)Целые числа(integer?) номер строки и столбца матрицы "A"

Задание: Заполнить матрицу "В" элементами "А" исключив строки и столбец номера которых даны.

-----------------------------------------
Люди пожалуста помогите как можно скорее... Заранее крайне благодарен

[DRAG]

Млиин лююди неужели она сложная такая... этож первый курс всего-то... это я нимагу решить туплю неполучается.. а тут же вроде мега прогеры сидят... или млин... че делать то...

[Flash_]

program z1;
 
const n=10; m=10;
 
var A: array[1..n,1..m] of integer;
     B: array[1..n-1,1..m-1] of integer;
     t, t2, i, k, ni, mi: integer;
 
begin
 
write('Введите элементы 1-ой матрицы: ');
for i:=1 to n do
for k:=1 to m do
readln ('a[' ,i, ',' ,k,']');
 
write('Введите номера удаляемой строки и столбца: ');
readln (ni,mi);
 
for i:=1 to ni do
for k:=1 to m-1 do
b[i,k] := a[i,k];
 
t:=i+1;
t2:=k;
 
for i:=t to n do
for k:=t2 to m-1 do
b[i-1,k]:=a[i,k];
 
if mi<>n then
begin
for k:=1 to mi do
for i:=1 to n-1 do
b[i,k] := a[i,k];
 
t:=i;
k:=k+1;
 
for i:=t to n do
for k:=t2 to m-1 do
b[i-1,k]:=a[i,k];
end;
writeln ('Матрица заполнена!');
end.

[DRAG]

Спасибо друг))

[Doll-killer]

Дана матрица [A], размером N x M. Исключить из матрицы К-ую строку. Вывести на печать исходную и полученную матрицы

Задача решена, но мне срочно нужен подробный комментарий к листингу, ребят помогите пожалуйста

[profi]

Листинг давайте.

[Doll-killer]

var
n, m, k: byte;
a: array of array of integer;
b: array of array of integer;
i,j: byte;
begin
repeat
//writeln('Введите количество строк (количество строк должно быть больше 1): ');
writeln('Input rows count (row count must be more than 1): ');
readln(n);
until n>1;
//writeln('Введите количество столбцов: ');
writeln('Input columns count: ');
readln(m);
SetLength(a,n);
for i:=0 to n-1 do
SetLength(a[i],m);
//writeln('Введите построчно элементы матрицы: ');
writeln('Input elements of matrix (by rows): ');
for i:=0 to n-1 do
for j:=0 to m-1 do
read(a[i,j]);
repeat
//writeln('Введите номер строки, которую следует исключить (номер строки должен быть в диапазоне от 1 до ' + IntToStr(n) + '): ');
writeln('Input row number for exclude (row number must be between 1 and ' + IntToStr(n) + '): ');
readln(k);
until ((k>0) and (k<=n));
SetLength(b,n-1);
for i:=0 to n-2 do
SetLength(b[i],m);
for i:=0 to n-1 do begin
if i<(k-1) then
for j:=0 to m-1 do
b[i,j]:=a[i,j]
else if i>(k-1) then
for j:=0 to m-1 do
b[i-1,j]:=a[i,j];
end;
writeln('Source matrix:');
for i:=0 to n-1 do begin
for j:=0 to m-1 do
write(IntToStr(a[i,j]) + ' ');
writeln('');
end;
writeln('Result matrix (' + IntToStr(k) + ' row was excluded');
for i:=0 to n-2 do begin
for j:=0 to m-1 do
write(IntToStr(b[i,j]) + ' ');
writeln('');
end;
readln;
end.

[profi]

repeat
//writeln('Введите количество строк (количество строк должно быть больше 1): ');
writeln('Input rows count (row count must be more than 1): ');
readln(n);
until n>1;

Вводим кол-во строк до тех пор пока оно не будет больше 1.

SetLength(a,n);
for i:=0 to n-1 do
SetLength(a[i],m);

Устанавливаем длину массива массивов.

repeat
//writeln('Введите номер строки, которую следует исключить (номер строки должен быть в диапазоне от 1 до ' + IntToStr(n) + '): ');
writeln('Input row number for exclude (row number must be between 1 and ' + IntToStr(n) + '): ');
readln(k);
until ((k>0) and (k<=n));

Вводим номер строки пока оно не удовлетворит этому условию ((k>0) and (k<=n))

SetLength(b,n-1);
for i:=0 to n-2 do
SetLength(b[i],m);
for i:=0 to n-1 do begin
if i<(k-1) then
for j:=0 to m-1 do
b[i,j]:=a[i,j]
else if i>(k-1) then
for j:=0 to m-1 do
b[i-1,j]:=a[i,j];
end;

Устанавливаем размеры новой матрицы и записуем туда уже матрицу с исключеной k-ой строкой

writeln('Source matrix:');
for i:=0 to n-1 do begin
for j:=0 to m-1 do
write(IntToStr(a[i,j]) + ' ');
writeln('');
end;
writeln('Result matrix (' + IntToStr(k) + ' row was excluded');
for i:=0 to n-2 do begin
for j:=0 to m-1 do
write(IntToStr(b[i,j]) + ' ');
writeln('');
end;

Выводим обе матрицы.

[Doll-killer]

Спасибки)))А еще подробней можно??? просто задание в контрольной такое - "Листинги программы и результаты решения должны иметь подробные комментарии и пояснения." у меня завтра зачет я незнаю куда деться ни че не успеваю...

[profi]

Так что ли?

Код:

if i<(k-1) then
for j:=0 to m-1 do
b[i,j]:=a[i,j]

Пояснение к коду:

ЕСЛИ i<(k-1) ТОГДА
С j:=0 ПО m-1 ДЕЛАТЬ
b[i,j]:=a[i,j] // присвоение элементу b[i,j] элемента a[i,j]

Тогда открывайте книгу и читайте.