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

Дана квадратная матрица, создать транспонированную.

13.01.2009, 13:15. Просмотров 1161. Ответов 3
Метки нет (Все метки)

Нужно сделать через массивы и StringGrid: Дана квадратная матрица, создать транспанированную.
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2009, 13:15
Ответы с готовыми решениями:

Задана квадратная матрица порядка n. Получить транспонированную матрицу
Задана квадратная матрица порядка n. Получить транспонированную матрицу Заранее большое...

Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной
Дана квадратная матрица А порядка n. Проверьте, является ли матрица единичной. Описать с помощью...

Дана квадратная матрица A порядка n
Дана квадратная матрица A порядка n.Найдите суммы тех строк матрицы, на главной диагонали которой...

Дана квадратная матрица А порядка n
Разработайте алгоритм и программу, реализующую этот алгоритм. Основные функции программы оформите в...

3
Модератор
60572 / 45566 / 31447
Регистрация: 18.05.2008
Сообщений: 109,518
14.01.2009, 14:06 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
34
35
36
37
38
39
40
41
42
43
44
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
StringGrid2: TStringGrid;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Edit1: TEdit;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a,b:array of array of integer;
n,i,j:integer;
begin
n:=StrToInt(Edit1.Text);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
StringGrid2.ColCount:=n;
StringGrid2.RowCount:=n;
Setlength(a,n,n);
Setlength(b,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
a[i,j]:=(i+1)*10+j+1; //для наглядности
for i:=0 to n-1 do
for j:=0 to n-1 do
StringGrid1.Cells[i,j]:=IntToStr(a[j,i]);
for i:=0 to n-1 do
for j:=0 to n-1 do
b[i,j]:=a[j,i];
for i:=0 to n-1 do
for j:=0 to n-1 do
StringGrid2.Cells[i,j]:=IntToStr(b[j,i]);
end;
end.
1
Вложения
Тип файла: rar Транспонированная матрица.rar (190.9 Кб, 81 просмотров)
Kloun
15.01.2009, 07:18 3
Спасибо выручил, а то зачет ставить не хотели
Модератор
60572 / 45566 / 31447
Регистрация: 18.05.2008
Сообщений: 109,518
15.01.2009, 14:27 4
Вот нехорошие люди!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.01.2009, 14:27

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

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

Дана действительная квадратная матрица порядка 2n
Дана действительная квадратная матрица порядка 2n. Не используя дополнительные массивы, получить...

Дана квадратная матрица А порядка n. Определите норму заданной матрицы
Условие задачи: Дана квадратная матрица А порядка n. Определите норму заданной матрицы. Одна из...

Дана квадратная матрица А порядка n. Определите норму заданной матрицы
Дана квадратная матрица А порядка n. Определите норму заданной матрицы. Одна из норм матрицы равна...


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

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

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