Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Матрицы

Автор: MEDJIK 13.12.2003 23:56

Пивет всем. Помогите кто могёт. Нужно составить матрицу , а затем удалить
из неё i-ю строку и j-столбец. Зарание благодарю.

Автор: fms 14.12.2003 0:59

такое где то уже было. поковыряйся в форуме.

Автор: trminator 14.12.2003 1:13

Так что ковыряться-то? Он же и спрашивал. Давненько, между прочим. Я ему тогда посоветовал посмотреть еще в какой-то теме, тем дело и закончилось. А этот бедолага оказывается за все это время ни строчки ни написал. Наверное, времени нет, жена, дети, работа...
На вот, бедняга, готовую программу. Может, она тебе чем и поможет

Код

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.

Если ошибки есть - не судите слишком строго, времени на нее ушло минут пять, не больше

Автор: MEDJIK 15.12.2003 12:33

Ок ! спосибо большое .... а то что я когода то давно писал , я уже чесно говоря не помню так как я много где всего пишу smile.gif ... но ТО я уже сделал ....
Спосибо ребята .

Автор: trminator 15.12.2003 13:35

http://forum.pascal.net.ru/?board=zd;action=display;num=1071156113 - действительно, времени прошло аж два дня >:(

Автор: fms 15.12.2003 21:54

мог бы потрудиться и запомнить что где написал.  :-/