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

@zenitsu · Регистрация: 19.05.2017

Author24 — интернет-сервис помощи студентам

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

У меня есть код подобной задачи, только тут немного другое условие... Может сможете по нему разобраться? Спасибо огромное, буду очень благодарен!

Delphi

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.

@krapotkin · 02.06.2017, 08:33

нет никакого желания делать за вас. и даже разбираться в этом коде. ибо задание примитивное
но помочь советом - легко
выделите элементарные действия в отдельные процедуры
из условия вытекают:
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

если будут КОНКРЕТНЫЕ вопросы по каждому из пунктов, пишите, поможем

@krapotkin 5874 / 4595 / 1452 Регистрация: 14.04.2014 Сообщений: 20,388 Записей в блоге: 20
	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