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

Массив: Построить вторую матрицу по заданному правилу

10.06.2017, 08:00. Просмотров 808. Ответов 4
Метки нет (Все метки)

Дана матрица целых чисел(размеры и элементы вводит пользователь). Построить вторую матрицу по правилу : если элемент исходной матрицы лежит ниже главной диагонали, является нечётным и сумма его индексов кратна 4, то соответствующий ему элемент второй матрицы задать равным 0, иначе - 3. Вывести эти матрицы на экран.

не в консоли, StringGrid
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2017, 08:00
Ответы с готовыми решениями:

Построить матрицу по заданному правилу
Помогите пожалуйста написать код,срочно очень нужно. Дана матрица целых чисел(размеры и элементы...

Преобразовать квадратную матрицу по заданному правилу
Помогите решить задачу.5. Дана квадратная матрица. Преобразовать ее по правилу: строку с номером N...

Сформировать массив по заданному правилу
Необходимо сформировать массив : A(0)=100, A(1)=99..A(100)=0 array of integer; for i:=0 to 100 do...

Получить одномерный массив по заданному правилу
Даны действительные числа а1 ... а20 . Получить: а1,а3,...,а19,а2,а4,...,а20.

4
Модератор
60557 / 45556 / 31442
Регистрация: 18.05.2008
Сообщений: 109,496
10.06.2017, 09:00 2
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
var
  Form1: TForm1;
  a:array[1..10,1..10]of integer;
  n:integer;
implementation
 
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
StringGrid2.ColCount:=n;
StringGrid2.RowCount:=n;
ShowMessage('Введите в таблицу 1 целые числа');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var b:array[1..10,1..10] of integer;
    i,j:integer;
begin
//в таблицах нет фиксированных строк и столбцов
for i:=1 to n do
for j:=1 to n do
a[i,j]:= StrToInt(StringGrid1.Cells[j-1,i-1]);
for i:=1 to n do
for j:=1 to n do
if (j<i)and((i+j)mod 4=0)and odd(a[i,j])
then b[i,j]:=0 else b[i,j]:=3;
for i:=1 to n do
for j:=1 to n do
StringGrid2.Cells[j-1,i-1]:=IntToStr(b[i,j]);
end;
0
0 / 0 / 0
Регистрация: 19.05.2017
Сообщений: 156
10.06.2017, 17:28  [ТС] 3
Puporev, не работает. Ввожу в эдит "1". Он пишет "введите целые1 числа".
прикрепляю программку.

м1.rar
0
Модератор
60557 / 45556 / 31442
Регистрация: 18.05.2008
Сообщений: 109,496
10.06.2017, 18:13 4
Вводите в Эдит1 размер массива, целое положительное число, жмете кнопку 1. Программа просит вести целые числа в первую таблицу (кстати уберите в таблицах фиксированные строку и столбец, а также выставьте свойство Options.goEditing=true).
Нажмите на кнопку 2.
0
Модератор
60557 / 45556 / 31442
Регистрация: 18.05.2008
Сообщений: 109,496
10.06.2017, 18:17 5
Лучший ответ Сообщение было отмечено GeorgeLight как решение

Решение

Держи.
1
Вложения
Тип файла: rar м1a.rar (188.4 Кб, 1 просмотров)
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2017, 18:17

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Заполнить произвольный массив размером NxN (N<10) по заданному правилу
Заполнить произвольный массив размером NxN (N&lt;10) по следующему правилу 00100 00100 11111 00100...

Из элементов массива А сформировать массив С той же размерности по заданному правилу
УСЛОВИЕ: Из элементов массива А сформировать массив С той же размерности по правилу: если номер...

Из элементов массива D сформировать массив A той же размерности по заданному правилу
Из элементов массива D сформировать массив A той же размерности по правилу: если номер четный, то...

Построить массив по заданному условию
Дана целочисленная матрица A размером n×m. Построить массив B, каждый элемент которого принимает...


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

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

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