Помощь - Поиск - Пользователи - Календарь
Полная версия: матрица
Форум «Всё о Паскале» > 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:
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.