Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 09.02.2023
Сообщений: 7
1

Как перемножить две матрицы, которые пользователь вписывает в stringgrid?

13.02.2023, 18:47. Показов 324. Ответов 2

Author24 — интернет-сервис помощи студентам
здравствуйте. нужно в задании перемножить две матрицы, пользователь задает размер сам, а потом вписывает в каждую ячейку стрингрида значения. как их перемножить? знаю, что там нужен двойной цикл, а как дальше не бум бум. пишу код в делфи 7.
вот код, который я написал.
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    Button2: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    StringGrid3: TStringGrid;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a, b:Integer;
  i, j:Integer;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
StringGrid1.ColCount:=a+1;
StringGrid1.RowCount:=b+1;
StringGrid1.Cells[0,0]:='Массив 1';
StringGrid2.ColCount:=a+1;
StringGrid2.RowCount:=b+1;
StringGrid2.Cells[0,0]:='Массив 2';
Button1.Visible:=False;
StringGrid1.Visible:=True;
StringGrid2.Visible:=True;
Button2.Visible:=True;
Edit2.Visible:=False;
Edit1.Visible:=False;
Label1.Visible:=False;
Label2.Visible:=True;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
StringGrid1.Visible:=False;
StringGrid2.Visible:=False;
Label2.Visible:=False;
Label3.Visible:=True;
StringGrid3.ColCount:=a+1;
StringGrid3.RowCount:=b+1;
StringGrid3.Visible:=True;
end;
 
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.02.2023, 18:47
Ответы с готовыми решениями:

Как перемножить две матрицы
в чем ошибка ? #include <conio.h> #include <stdio.h> #include <stdlib.h> #include <iostream.h>...

Как перемножить две матрицы разной размерности
Всем доброго дня! Столкнулся с проблемой, что не могу перемножить матрицы в C#. Может вы...

Как разбить матрицу на две равные матрицы и перемножить их?
Имеется матрица размером 128х127 диапазоном от +10 до +200. Нужно разбить данную матрицу на две...

Написать программу, чтобы умножить две матрицы, которые задаёт пользователь
Мне нужно в MathCAD создать программу которая будет работать.

2
120 / 102 / 18
Регистрация: 23.05.2015
Сообщений: 606
13.02.2023, 19:56 2
Chemurhes228, Попробуйте поискать решение где-нибудь здесь.
0
0 / 0 / 0
Регистрация: 09.02.2023
Сообщений: 7
13.02.2023, 20:02  [ТС] 3
спасибо, посмотрю
0
13.02.2023, 20:02
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.02.2023, 20:02
Помогаю со студенческими работами здесь

Перемножить две матрицы
Задача 1 Перемножить две матрицы (3х4 и 4х5)

Перемножить две матрицы
надо эти две матрицы перемножить, так и не дойдёт как это сделать. int r =...

Перемножить две матрицы
Сформировать два одномерных массива целочисленных из 10 элементов каждый, а потом сформировать...

Перемножить две прямоугольные матрицы
Помогите, пожалуйста, составить программу для Перемножения двух прямоугольных матриц.

Перемножить две заданные матрицы
Доброго времени. Возможно уже были подобные задачи или сами когда-то делали. 5. Задать две...

Перемножить две матрицы используя SSE
Прив. Есть две квадратные матрицы, размер которых кратен 4, и необходимо их перемножить. Я так...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru