Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
GeorgeLight
0 / 0 / 0
Регистрация: 19.05.2017
Сообщений: 130
#1

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

01.06.2017, 22:18. Просмотров 92. Ответов 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):

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

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

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

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

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

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

1
krapotkin
2736 / 2612 / 664
Регистрация: 14.04.2014
Сообщений: 12,595
Записей в блоге: 7
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
Привет! Вот еще темы с ответами:

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

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

Три миссионера и три каннибала - Delphi
Три миссионера и три каннибала находятся на одном берегу реки. Все они хотят перебраться через реку, но лодка может перевезти двух человек....

Дана строка. Вывести первые три символа и последние три символа - Delphi
Доброе утро, господа. Необходима Ваша помощь по решению этого вопроса, вроде как и не сложно, но в Delphi только-только начал разбираться,...


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

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

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