Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Матрица. Паскаль.

69K
24 декабря 2011 года
Ebon
13 / / 07.11.2011
Дана матрица. Поменять местами i-тый столбец c j-той строкой матрицы.
Код:
Program abc;
const m=2;
var
a: array [1..m,1..m] of integer;
d, b, c, j, i :integer;
begin
for i:=1 to m do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for j:=1 to m do
b:=a[1,j];
for i:=1 to m do
begin
d:=a[1,j];
a[1,j]:=a[1,m];
a[1,m]:=a[1,j];
end;
writeln('a[',i,',',j,']=',a[i,j]);

Правильно ли это? И как вывести новую матрицу на экран?
14
25 декабря 2011 года
Phodopus
3.3K / / 19.06.2008
Как-то слишком сложно. Одного цикла должно быть достаточно.
И выводить на экран - двумя циклами. Как в начале.
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог