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

Три матрицы, замена переменных - Delphi

01.06.2017, 22:18. Просмотров 101. Ответов 1
Метки нет (Все метки)

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

У меня есть код подобной задачи, только тут немного другое условие... Может сможете по нему разобраться? Спасибо огромное, буду очень благодарен!
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
var a,b,c:array of array of integer; min,d,s,i,j:integer;
begin 
d:=strtoint(edit1.text);
s:=strtoint(edit2.text);
stringgrid1.ColCount:=d;
stringgrid1.RowCount:=s;
stringgrid2.ColCount:=d;
stringgrid2.RowCount:=s;
stringgrid3.ColCount:=d;
stringgrid3.RowCount:=s;
setlength(a,d,s); setlength(b,d,s); setlength(c,d,s);
min:=a[1,1];
  for i:=0 to d-1 do begin
   for j:=0 to s-1 do begin
   c[i,j]:=random(30);
   stringgrid3.cells[i,j]:=(inttostr(c[i,j]));
   If (j=0) and (c[i,j]<min) then min:=c[i,j];
   end;
  end;
 
  for i:=0 to d-1 do begin
   for j:=0 to s-1 do begin
   a[i,j]:=random(30)-11;
   If a[i,j]<0 then a[i,j]:=c[i,j];
   stringgrid1.cells[i,j]:=(inttostr(a[i,j]));
   end;
  end;
 
  for i:=0 to d-1 do begin
   for j:=0 to s-1 do begin
   b[i,j]:=random(30)-10;
   If b[i,j]>0 then b[i,j]:=min;
   stringgrid2.cells[i,j]:=(inttostr(b[i,j]));
   end;
  end;
 
 
end;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.06.2017, 22:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Три матрицы, замена переменных (Delphi):

Три переменных в одной строке
В данном коде необходимо вместо переменная 1, переменная 2, переменная 3,...

Заданы три прямоугольные матрицы A(n,m), B(r,p), C(k,q). Найти матрицы, в которых по периметру расположены только отрица
Помогите пожалуйста с кодом на делфи with StringGrid1 do for i:=1 to...

Даны три матрицы А, В и С
Даны три матрицы А, В и С. решить уравнение px2 + dx + r = 0, где p -...

Три квадратные матрицы A, B и C порядка n размещены по строкам в одномерных массивах a, b, c
Помогите пожалуйста, завтра ФЭПО по информатике... Ни чего не понятно... Хотя...

Даны три матрицы размером m*n, напечатать те из них, где больше нулевых строк
Вот такая вот задачка: &quot;Даны три матрицы размером m*n, напечатать те из них,...

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

1
krapotkin
3297 / 2937 / 1015
Регистрация: 14.04.2014
Сообщений: 14,261
Записей в блоге: 13
02.06.2017, 08:33 #2
нет никакого желания делать за вас. и даже разбираться в этом коде. ибо задание примитивное
но помочь советом - легко
выделите элементарные действия в отдельные процедуры
из условия вытекают:
1. Формирование массива заданной размерности и заполнение его случайными целыми числами
2. Задание размерности гриду
3. Заполнение указанного грида числами из указанного массива
4. создать функцию - является ли комбинация индексов I,J - поддиагональной и элемент[i,j]<0
5. создать функцию - является ли комбинация индексов I,J - наддиагональной
6. найти сумму индексов максимального элемента в третьей матрице
7. В цикле по всем элементам первого массива проверить
если элемент поддиагональный и отрицательный (привет, функция 4)
то заменить его на аналогичный из третьего массива
7.1. с помощью процедуры (3) обновить грид1
8. В цикле по всем элементам второго массива проверить
если элемент наддиагональный (исп. функция 5)
то заменить его на число из функции 6
8.1. с помощью процедуры (3) обновить грид2

если будут КОНКРЕТНЫЕ вопросы по каждому из пунктов, пишите, поможем
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2017, 08:33
Привет! Вот еще темы с решениями:

Замена элементов отдельно взятого столбца (строки) матрицы на элементы вектора
Замена элементов отдельно взятого столбца (строки) матрицы на элементы вектора

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

Выполнить подсчет в массиве количества чисел, кратных 2,3,5 создав для этого три кнопки и три метки вывода
Помогите плиз, подруге задали задачу, она попросила меня решить ее, не охота...

Три миссионера и три каннибала
Три миссионера и три каннибала находятся на одном берегу реки. Все они хотят...


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

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

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