1 / 1 / 0
Регистрация: 24.09.2014
Сообщений: 34
1

Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив случайным об

26.03.2015, 10:54. Показов 3806. Ответов 1
Метки нет (Все метки)

Создать двумерный динамический массив произвольного размера NxN (размер ввести). Заполнить массив случайным образом. Найти все значения элементов массива, расположенные на главной диагонали и вывести их значения и индексы.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.03.2015, 10:54
Ответы с готовыми решениями:

Создать двумерный динамический массив произвольного размера (размер ввести)
Создать двумерный динамический массив произвольного размера (размер ввести). Заполнить массив...

Создать одномерный динамический массив произвольного размера (размер ввести)
Ввести значения элементов массива. Определить содержит ли массив заданное число. Если элемент не...

Создать одномерный динамический массив произвольного размера (размер ввести)
Определить содержит ли массив заданное число. Если элемент не найден, то вставить его на последнее...

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

1
Почетный модератор
64257 / 47557 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.03.2015, 12:13 2
Лучший ответ Сообщение было отмечено grinder821 как решение

Решение

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
var
  Form1: TForm1;
  x: 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;
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;
Setlength(x,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  x[i,j]:=10+random(50);
  StringGrid1.Cells[j,i]:=IntToStr(x[i,j])
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
begin
Memo1.Clear;
Memo1.Lines.Add('Элементы главной диагонали');
for i:=0 to n-1 do
Memo1.Lines.Add('a['+inttostr(i+1)+','+inttostr(i+1)+']='
                +inttostr(x[i,i]));
 
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2015, 12:13
Помогаю со студенческими работами здесь

Заполнить двумерный динамический массив случайным образом
Написать функции для работы с двумерным динамическим массивом: - создать массив указанного...

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

Случайным образом заполнить двумерный массив фиксированного размера целыми числами в заданном диапазоне
Кто знает как решить задачу на С++, при помощи двумерного массива? Написать программу, которая...

Создать двумерный динамический массив для переменных произвольного типа
это часть кода. сначала создал 2д массив для интов- все работало. но мне сказали сделать так чтобы...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru