Помощь - Поиск - Пользователи - Календарь
Полная версия: матрица
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Kolk
Помогите решить.
1.Дана матрица м на n Удалить указанную строку и столбец. и вывести матрицу.
2. Дана матриц м на н. ПОменять стркоу и столбец местами. и вывести.
Помогите плиз.
Фак ваш читал.
klem4
Цитата(Kolk @ 5.06.05 15:58)
Фак ваш читал.


и?
конкретные вопросы есть ? поищи по форуму аналогичных задач сотни, начни делать сам, будут конкретные вопросы, обращайся ..
:yes:
Guest
ниче подобного найти не могу....
klem4
1)

uses crt;
const n=3;
m=4;

var
x:array[1..n,1..m] of integer;
i,j,k,l:integer;

begin
clrscr;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
x[i,j]:=random(15);
write(x[i,j]:2,' ');
end;
end;

writeln;

write('Udalit stroku N ');
readln(k);

for i:=k to n-1 do
for j:=1 to m do
x[i,j]:=x[i+1,j];


write('Udalit stolbec N ');
readln(l);

for j:=l to m-1 do
for i:=1 to n do
x[i,j]:=x[i,j+1];

for i:=1 to n-1 do
begin
writeln;
for j:=1 to m-1 do
write(x[i,j]:2,' ');
end;

readln;
end.



вторую попробуй сам :yes:
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.