Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
CyberForum.ru - форум программистов и сисадминов > > >
Восстановить пароль Регистрация

Ответ Создать новую тему
 
kazantipo
Новичок
0 / 0 / 0
Регистрация: 06.01.2013
Сообщений: 9
11.01.2013, 22:24     Двумерный массив: замена, вставка, удаление и обмен строк / столбцов
  #1
Дан двумерный массив размером 5*8, запол¬ненный случайным образом.
1. Заменить все симметричные элементы на нули.
2. Вставить после столбцов с максимальными элементами столбец из единиц.
3. Удалить среднюю строку.
4. Поменять местами средние столбцы.
AdAgent
Объявления
11.01.2013, 22:24
Puporev
Модератор
42220 / 30734 / 1800
Регистрация: 18.05.2008
Сообщений: 65,416
12.01.2013, 14:10
  #2
Цитата Сообщение от kazantipo Посмотреть сообщение
1. Заменить все симметричные элементы на нули.
Что понимается под этим?
kazantipo
Новичок
0 / 0 / 0
Регистрация: 06.01.2013
Сообщений: 9
12.01.2013, 19:59  [ТС]
  #3
Цитата Сообщение от Puporev Посмотреть сообщение
Что понимается под этим?
Не знаю. Так сказано в условии.

Добавлено через 2 часа 21 минуту
Может имеется ввиду , например , 5 и (-5) . можно пока что без первого задания.
Puporev
Модератор
42220 / 30734 / 1800
Регистрация: 18.05.2008
Сообщений: 65,416
13.01.2013, 09:59     Двумерный массив: замена, вставка, удаление и обмен строк / столбцов
  #4
Код 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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
uses crt;
type mtr=array[1..5,1..18] of integer;
procedure vvod(var a:mtr;var m,n:integer);
var i,j:integer;
begin
m:=5;
n:=8;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
end;
procedure vyvod(a:mtr;m,n:integer);
var i,j:integer;
begin
writeln('Исходный массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
end;
var a,a1:mtr;
    m,m1,n,n1,i,j,k,mx:integer;
    f:boolean;
begin
randomize;
vvod(a,m,n);
vyvod(a,m,n);
//2.вставка столбца
a1:=a;
n1:=n;
mx:=a1[1,1];
for i:=1 to m do
for j:=1 to n do
if a1[i,j]>mx then mx:=a1[i,j];
writeln('Максимальный элемент=',mx);
j:=1;
while j<=n1 do
 begin
  f:=false;
  i:=1;
  while(i<=m)and not f do
  if a1[i,j]=mx then f:=true
  else i:=i+1;
  if f then
   begin
    for i:=1 to m do
    for k:=n1+1 downto j+2 do
    a1[i,k]:=a1[i,k-1];
    for i:=1 to m do
    a1[i,j+1]:=1;
    n1:=n1+1;
    j:=j+2;
   end
  else j:=j+1
 end;
writeln('Вставка столбцов из 1 после столбцов с максимальным элеметом');
for i:=1 to m do
 begin
  for j:=1 to n1 do
  write(a1[i,j]:4);
  writeln
 end;
write('Нажмите Enter для продолжения');
readln;
clrscr;
//3.Удаление средней строки
vyvod(a,m,n);
a1:=a;
m1:=m;
for i:=m1 div 2+1 to m1-1 do
for j:=1 to n do
a1[i,j]:=a1[i+1,j];
m1:=m1-1;
writeln('Удаление средней строки:');
for i:=1 to m1 do
 begin
  for j:=1 to n do
  write(a1[i,j]:4);
  writeln
 end;
write('Нажмите Enter для продолжения');
readln;
clrscr;
//Обмен средних столбцов
vyvod(a,m,n);
for i:=1 to m do
 begin
  k:=a[i,j div 2];
  a[i,j div 2]:=a[i,j div 2+1];
  a[i,j div 2+1]:=k;
 end;
writeln('Обмен средних столбцов:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
writeln('Программа завершена...')
end.
Yandex
Объявления
13.01.2013, 09:59
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
Pascal ABC Матрица: замена элементов, вставка и удаление строк / столбцов
дан двумерный массив размером 5*6, заполненный случайным образом 1. заменить максимальный элемент каждой строки на противоположный 2. вставить после столбцов с максимальными элементами столбец из...
Pascal ABC Мара Мара 20.01.2013 16:00
Turbo Pascal Двумерный массив. Замена, вставка, удаление, обмен строк и столбцов
Дан двумерный массив размерностью 5 х 6, заполненный случайным образом. − заменить минимальный элемент каждой строки на противоположный. − вставить после столбцов с максимальными элементами столбец...
Turbo Pascal Юляшка Л. 18.06.2012 17:44
Pascal ABC Двумерный массив. Замена элементов, удаление и обмен строк и столбцов
Дан двумерный массив размерностью 5 х 6, заполненный случайным образом. − заменить максимальный элемент каждой строки на противоположный. − вставить после столбцов с максимальными элементами...
Pascal ABC hellbringer 15.06.2012 17:50
Turbo Pascal Матрица. Обмен, замена строк, удаление столбцов
Лес План волшебного леса прямоугольной формы с размерностью n х m состоит из квадратных зон со стороной 1-ца .Для каждой зоны леса задан тип деревьев которые там находятся(натуральные числа меньше...
Turbo Pascal алла 29.05.2012 11:56
Pascal ABC Массив. Удаление, вставка, обмен элементов
211. Удалить из массива: а) все отрицательные элементы; б) все элементы, большие данного числа n; в) все элементы, начиная с n^го до n2-й (n1 < n2). 194. Дан массив из четного числа элементов....
Pascal ABC Predgornoe 30.04.2012 13:26
Turbo Pascal Двумерный массив: обмен, вставка и удаление строк и столбцов
Помогите написать программу. Дан двумерный массив с размерностью 8*7,заполненный случайным образом. -заменить все элементы первых трех столбцов на их абсолютные значения. -вставить между средними...
Turbo Pascal Cлавиk 23.05.2010 12:11
Опции темы

Текущее время: 01:01. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.