Поменять первую и последнюю строки матрицы

@denis_stell · Регистрация: 07.02.2010

Author24 — интернет-сервис помощи студентам

Дана прямоугольная матрица
поменять первую строку с последней(без использования процедур и функций)

Помогите пожалуйста!

@Law[L]esS · 09.02.2010, 22:50

Pascal

program kalk;
uses crt;
const
 n = 8;
 m = 10;
var
 a:array[1..n,1..m] of integer;
 i,i2,tmp:integer;
begin
 for i:= 1 to n do
 for i2:= 1 to m do
 a[i,i2]:= random(20);
 for i:= 1 to n do begin
   writeln;
   for i2:= 1 to m do
   write(a[i,i2]:3);
 end;
 writeln;
 writeln;
 for i:= 1 to m do begin
   tmp:= a[1,i];
   a[1,i]:= a[n,i];
   a[n,i]:= tmp;
 end;
 for i:= 1 to n do begin
   writeln;
   for i2:= 1 to m do
   write(a[i,i2]:3);
 end;
end.

@denis_stell · 09.02.2010, 23:37 **[ТС]**

привет,а можешь прокомментировать вот такие строки
for i:= 1 to m do begin

tmp:= a[1,i];
a[1,i]:= a[n,i];
я понимаю что это обмен между строками,но не совсем понимаю почему не tmp:= a[1,i2];
a[1,i2]:= a[n,i2];???

Добавлено через 3 минуты
а так for i2:= 1 to m do begin
tmp:= a[1,i2];
a[1,i2]:= a[n,i2];
a[n,i2]:= tmp;
не правильно???

@][акер · 10.02.2010, 00:54

denis_stell, какая разница какая перемменая это счётчик?

Добавлено через 4 минуты

Сообщение от Law[L

esS;534229]
for i:= 1 to m do begin
tmp:= a[1,i];
a[1,i]:= a[n,i];
a[n,i]:= tmp;
end;

denis_stell, tmp:= a[1,i]; присваиваем этой перемменой значение a[1,i], ПОТОМУ-ЧТО если мы бы это не сделали, то при присвоении a[1,i]:= a[n,i];, старое значение a[1,i]; удалилось бы(а как же тогда присваивать это значение a[n,i]?), а так мы запоминаем его старое значение, а потом это старое значение присвоили a[n,i]. Понял?

@denis_stell · 10.02.2010, 01:35 **[ТС]**

Сообщение от ][акер

denis_stell, какая разница какая перемменая это счётчик?

Добавлено через 4 минуты

denis_stell, tmp:= a[1,i]; присваиваем этой перемменой значение a[1,i], ПОТОМУ-ЧТО если мы бы это не сделали, то при присвоении a[1,i]:= a[n,i];, старое значение a[1,i]; удалилось бы(а как же тогда присваивать это значение a[n,i]?), а так мы запоминаем его старое значение, а потом это старое значение присвоили a[n,i]. Понял?

спасибо!понял

@denis_stell 1 / 1 / 0 Регистрация: 07.02.2010 Сообщений: 129
		1
	Поменять первую и последнюю строки матрицы 09.02.2010, 22:32. Показов 3379. Ответов 4 Метки нет (Все метки) Дана прямоугольная матрица поменять первую строку с последней(без использования процедур и функций) Помогите пожалуйста! 0

@denis_stell 1 / 1 / 0 Регистрация: 07.02.2010 Сообщений: 129
	09.02.2010, 23:37 [ТС]	3
	привет,а можешь прокомментировать вот такие строки for i:= 1 to m do begin tmp:= a[1,i]; a[1,i]:= a[n,i]; я понимаю что это обмен между строками,но не совсем понимаю почему не tmp:= a[1,i2]; a[1,i2]:= a[n,i2];??? Добавлено через 3 минуты а так for i2:= 1 to m do begin tmp:= a[1,i2]; a[1,i2]:= a[n,i2]; a[n,i2]:= tmp; не правильно??? 0

@][акер #define книжный_червь Я 185 / 96 / 21 Регистрация: 30.01.2010 Сообщений: 780
	10.02.2010, 00:54	4
	denis_stell, какая разница какая перемменая это счётчик? Добавлено через 4 минуты Сообщение от Law[L esS;534229] for i:= 1 to m do begin tmp:= a[1,i]; a[1,i]:= a[n,i]; a[n,i]:= tmp; end; denis_stell, tmp:= a[1,i]; присваиваем этой перемменой значение a[1,i], ПОТОМУ-ЧТО если мы бы это не сделали, то при присвоении a[1,i]:= a[n,i];, старое значение a[1,i]; удалилось бы(а как же тогда присваивать это значение a[n,i]?), а так мы запоминаем его старое значение, а потом это старое значение присвоили a[n,i]. Понял? 1

@denis_stell 1 / 1 / 0 Регистрация: 07.02.2010 Сообщений: 129
	10.02.2010, 01:35 [ТС]	5
	Сообщение от ][акер denis_stell, какая разница какая перемменая это счётчик? Добавлено через 4 минуты denis_stell, tmp:= a[1,i]; присваиваем этой перемменой значение a[1,i], ПОТОМУ-ЧТО если мы бы это не сделали, то при присвоении a[1,i]:= a[n,i];, старое значение a[1,i]; удалилось бы(а как же тогда присваивать это значение a[n,i]?), а так мы запоминаем его старое значение, а потом это старое значение присвоили a[n,i]. Понял? спасибо!понял 0