Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
bob56
0 / 0 / 0
Регистрация: 26.06.2014
Сообщений: 15
1

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

26.06.2014, 09:19. Просмотров 1082. Ответов 7
Метки нет (Все метки)

Помогите решить задачку плизз
Заполнить квадратный массив размером nхn таким образом, чтобы:
а) его элементы имели значения, симметричные относительно главной диагонали;
б) его элементы имели значения, симметричные относительно побочной диагонали.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2014, 09:19
Ответы с готовыми решениями:

Заполнить одномерный массив так, чтобы все его элементы были различны и выбраны случайным образом
В Delphi создать консольные приложения (File-New-Console Application) для...

Слить массивы А и В по 100 элементов в массив С из 200 элементов так,чтобы элементы массива А имели номера от 51 до 150
делфи

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

Заполните одномерный массив так, чтобы все его элементы были различны
Помогите решить задачу пожалуста. На Turbo Delphi Заполните одномерный массив...

Переставить строки матрицы так, чтобы на главной диагонали стояли минимальные по модулю элементы
В матрице n-го порядка переставить строки так, чтобы на главной диагонали...

7
Puporev
Модератор
55001 / 42300 / 29209
Регистрация: 18.05.2008
Сообщений: 99,947
26.06.2014, 09:57 2
Лучший ответ Сообщение было отмечено bob56 как решение

Решение

Delphi
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
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблиц
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
with StringGrid2 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var x,y: array of array of integer;
    n,i,j,code:integer;
begin
randomize;
//проверим ввод размеров
val(Edit1.Text,n,code);
if (code<>0)or(n<2)then
 begin
  ShowMessage('Неверно введен размер матриц');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
Setlength(x,n,n);
Setlength(y,n,n);
//создадим матрицу, симметричную главной диагонали
for i:=0 to n-1 do
for j:=0 to i do
x[i,j]:=1+random(20);
for i:=0 to n-2 do
for j:=i+1 to n-1 do
x[i,j]:=x[j,i];
for i:=0 to n-1 do
for j:=0 to n-1 do
StringGrid1.Cells[j,i]:=IntToStr(x[i,j]);
//создадим матрицу, симметричную побочной диагонали
for i:=0 to n-1 do
for j:=0 to n-i-1 do
y[i,j]:=1+random(20);
for i:=1 to n-1 do
for j:=n-i to n-1 do
y[i,j]:=y[n-j-1,n-i-1];
for i:=0 to n-1 do
for j:=0 to n-1 do
StringGrid2.Cells[j,i]:=IntToStr(y[i,j])
end;
1
bob56
0 / 0 / 0
Регистрация: 26.06.2014
Сообщений: 15
26.06.2014, 14:26  [ТС] 3
Спасибо большое щас проверю и помогите плизз еще одно что то вступаре
Дан двумерный массив.
а) Поменять местами первую и третью строки.
б) Поменять местами второй и последний столбцы.
0
Puporev
Модератор
55001 / 42300 / 29209
Регистрация: 18.05.2008
Сообщений: 99,947
26.06.2014, 14:36 4
Лучший ответ Сообщение было отмечено bob56 как решение

Решение

Посмотри это и пиши сам.
Нужно поменять местами 1 строчку с предпоследней
1
bob56
0 / 0 / 0
Регистрация: 26.06.2014
Сообщений: 15
26.06.2014, 14:49  [ТС] 5
кстате я пробывал через листбокс все мозги сломал ни черта не получается ахаха вс отлично работает спс большое.

Добавлено через 55 секунд
А можете написать плизз просто через пару часов надо здать уже не успеваю надо еще отчет закончить плизз если не трудно

Добавлено через 11 минут
Напишите плизз если не трудно просто щас отчет делаю боюсь не успетью
0
Puporev
Модератор
55001 / 42300 / 29209
Регистрация: 18.05.2008
Сообщений: 99,947
26.06.2014, 15:06 6
Delphi
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
var
  Form1: TForm1;
  a:array of array of integer;
  n:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблиц
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
with StringGrid2 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
with StringGrid3 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=30;
  scrollBars:=ssBoth
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,code:integer;
begin
randomize;
//проверим ввод размеров
val(Edit1.Text,n,code);
if (code<>0)or(n<2)then
 begin
  ShowMessage('Неверно введен размер матриц');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.RowCount:=n;
StringGrid1.ColCount:=n;
StringGrid2.RowCount:=n;
StringGrid2.ColCount:=n;
StringGrid3.RowCount:=n;
StringGrid3.ColCount:=n;
Setlength(a,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=1+random(20);
  StringGrid1.Cells[j,i]:=IntToStr(a[i,j]);
 end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j,x:integer;
begin
for j:=0 to n-1 do
 begin
  x:=a[0,j];
  a[0,j]:=a[2,j];
  a[2,j]:=x;
 end;
for i:=0 to n-1 do
for j:=0 to n-1 do
StringGrid2.Cells[j,i]:=IntToStr(a[i,j]);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var i,j,x:integer;
begin
for i:=0 to n-1 do
 begin
  x:=a[i,1];
  a[i,1]:=a[i,n-1];
  a[i,n-1]:=x;
 end;
for i:=0 to n-1 do
for j:=0 to n-1 do
StringGrid3.Cells[j,i]:=IntToStr(a[i,j]);
 
end;
1
Вложения
Тип файла: rar Обмен строк и столбцов с таблицей.rar (196.1 Кб, 2 просмотров)
bob56
0 / 0 / 0
Регистрация: 26.06.2014
Сообщений: 15
27.06.2014, 09:45  [ТС] 7
Спасибо большое.

Добавлено через 3 минуты
Огроменное спасибо выручили.

Добавлено через 18 часов 33 минуты
Помогите еще одну вот товарищу надо решить
Дан двумерный массив.
а) К элементам четных строк прибавить элемент первой строки соответствующего столбца.
б) Из элементов нечетных столбцов вычесть элемент последнего столбца соответствующей строки.
Желательно через stringrid
я в элементах не шарю ото.
0
Puporev
Модератор
55001 / 42300 / 29209
Регистрация: 18.05.2008
Сообщений: 99,947
27.06.2014, 10:11 8
Цитата Сообщение от bob56 Посмотреть сообщение
вот товарищу надо решить
Пусть сам решает, Просто чуть переделать эту программу.
1
27.06.2014, 10:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.06.2014, 10:11

Массив: изменить массив так, чтобы в начале находились отрицательные элементы в порядку их уменьшения...
Здравствуйте! Обращаюсь с просьбой. Дали задачу, а решить не могу. Дан...

Упорядочить элементы матрицы так, чтобы при чтении матрицы по столбцам ее элементы образовывали отсортированный массив
Метод быстрой сортировки: Пусть дан массив x размерности n. Шаг 1....

Массив: Изменить порядок строк так, чтобы элементы последнего столбца расположились по убыванию.
помогите написать программу в делфи 7 Дана целочисленная матрица размером 4 x...


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

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

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