С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Sharaki
0 / 0 / 0
Регистрация: 20.12.2009
Сообщений: 3
1

поменять местами элементы первой и второй строк, элементы третьей и четвертой и т.д.

20.12.2009, 11:17. Просмотров 1108. Ответов 1
Метки нет (Все метки)

В матрице NxN (N - четное), поменять местами элементы первой и второй строк, элементы третьей и четвертой и т.д.. Эту операцию сделать и со столбцами...

Буду очень благодарен )
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.12.2009, 11:17
Ответы с готовыми решениями:

В матрице поменять местами наименьшие элементы во второй и третьей строке
В матрице А (3 строки, 5 столбцов) поменять местами наименьшие элементы во...

Найти число, образованное перестановкой первой и второй, третьей и четвертой цифр заданного числа
2.44 В трехзначном числе зачеркнули его вторую цифру. Когда к образовавшемуся...

Найти все четырехзначные числа, у которых сумма первой и третьей цифр равны сумме второй и четвертой.
найти все четырехзначные числа, у которых сумма первой и третьей цифр равны...

Поменять местами второй минимальный и второй максимальный элементы
Поменять местами второй минимальный и второй максимальный элементы! Заранее...

Динамика. Поменять местами наименьший и второй по величине элементы
Доброго времени суток господа программисты! Вот возникла проблема с решением...

1
yanyk1n
4333 / 1465 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
20.12.2009, 11:21 2
Лучший ответ Сообщение было отмечено Sharaki как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
uses crt;
const n=6;
var m:array[1..n,1..n]of integer;
i,j:integer;
 
 
procedure swap_row(a,b:integer);
var j,t:integer;
begin
 if a<>b then
 begin
  for j:=1 to n do
  begin
   t:=m[a,j];
   m[a,j]:=m[b,j];
   m[b,j]:=t;
  end;
 end;
end;
 
procedure swap_col(a,b:integer);
var i,t:integer;
begin
 if a<>b then
 begin
  for i:=1 to n do
  begin
   t:=m[i,a];
   m[i,a]:=m[i,b];
   m[i,b]:=t;
  end;
 end;
end;
 
begin
 clrscr; 
 randomize;
 for i:=1 to n do
 begin
  for j;=1 to n do
  begin
   m[i,j]:=random(100);
   write(m[i,j]:3);
  end;
 writeln;
 end;
 
 for i:=1 to n div 2 do swap_row(i*2-1,i*2);
 for j:=1 to n div 2 do swar_col(j*2-1,j*2);
 
 for i:=1 to n do
 begin
  for j:=1 to n do write(m[i,j]:3);
  writeln;
 end;
 readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.12.2009, 11:21

Первый и второй, третий и четвертый и т.д. отрицательные элементы поменять местами
Дан одномерный массив. Первый и второй, третий и четвертый и т.д. отрицательные...

Поменять местами столбцы матрицы, имеющие минимальный и максимальный элементы в первой строке
Задана матрица (n × m). Поменять местами столбцы, имеющие минимальный и...

Найти максимальный и минимальный элементы в каждой строке и поменять их местами с элементами первой и последней позиции соответственно
Program Proga; uses crt; var a: array of real; i,j:integer; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru