Пивет всем. Помогите кто могёт. Нужно составить матрицу , а затем удалить
из неё i-ю строку и j-столбец. Зарание благодарю.
Полная версия: Матрицы
такое где то уже было. поковыряйся в форуме.
Так что ковыряться-то? Он же и спрашивал. Давненько, между прочим. Я ему тогда посоветовал посмотреть еще в какой-то теме, тем дело и закончилось. А этот бедолага оказывается за все это время ни строчки ни написал. Наверное, времени нет, жена, дети, работа...
На вот, бедняга, готовую программу. Может, она тебе чем и поможет
const N = 5;
var a : array[1..N, 1..N] of integer;
i, j, x, y : integer;
begin
for i:=1 to N do
for j:=1 to N do read(A[i,j]);
readLn(x, y);
for i:=1 to N do
for j:=x to N-1 do
A[i,j]:=A[i,j+1];
for i := y to N-1 do
for j:=1 to N do
A[i,j]:=A[i+1,j];
for i:=1 to N-1 do begin
for j:=1 to N-1 do
write(A[i,j]:5);
writeLn
end;
end.
Если ошибки есть - не судите слишком строго, времени на нее ушло минут пять, не больше
На вот, бедняга, готовую программу. Может, она тебе чем и поможет
Код
const N = 5;
var a : array[1..N, 1..N] of integer;
i, j, x, y : integer;
begin
for i:=1 to N do
for j:=1 to N do read(A[i,j]);
readLn(x, y);
for i:=1 to N do
for j:=x to N-1 do
A[i,j]:=A[i,j+1];
for i := y to N-1 do
for j:=1 to N do
A[i,j]:=A[i+1,j];
for i:=1 to N-1 do begin
for j:=1 to N-1 do
write(A[i,j]:5);
writeLn
end;
end.
Если ошибки есть - не судите слишком строго, времени на нее ушло минут пять, не больше
Ок ! спосибо большое .... а то что я когода то давно писал , я уже чесно говоря не помню так как я много где всего пишу 
... но ТО я уже сделал ....
Спосибо ребята .
... но ТО я уже сделал ....Спосибо ребята .
http://forum.pascal.net.ru/?board=zd;actio...;num=1071156113 - действительно, времени прошло аж два дня >:(
мог бы потрудиться и запомнить что где написал. :-/
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.