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

Работа с матрицами

16.11.2018, 20:15. Показов 1109. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
НУЖНО ТОЖЕ САМОЕ ТОЛЬКО БЕЗ ИСПОЛЬЗОВАНИЯ ГЛОБАЛЬНЫХ ПАРАМЕТРОВ (ПОДПРОГРАММЫ ДОЛЖНЫ ОБМЕНИВАТЬСЯ ИНФОРМАЦИЕЙ ЧЕРЕЗ ФОРМАЛЬНЫЕ ПАРАМЕТРЫ СВОИХ ЗАГОЛОВКОВ). ПОМГИТЕ ПОЖАЛУЙСТА...
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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Math;
 
type TMatrix = array of array of integer;
     TVector = array of integer;
 
var A: TMatrix;
    B: TVector;
    R, C: integer;
 
procedure CreateMatrix;
begin
 repeat
  Write('Enter the number of rows of the matrix: ');
  Readln(R);
  Write('Enter the number of columns of the matrix: ');
  Readln(C);
 until (R > 2) and (C > 2);
 SetLength(A, R, C);
end;
 
procedure FillMatrix;
var i, j: integer;
begin
 for i := 0 to R - 1 do
  for j := 0 to C - 1 do
   A[i, j] := RandomRange(-99, 100);
end;
 
procedure PrintMatrix(Caption: String);
var i, j: integer;
begin
 Writeln('');
 Writeln(Caption);
 Writeln('');
 for i := 0 to R - 1 do
  for j := 0 to C - 1 do
   if j < C - 1 then Write(A[i, j]: 5) else Writeln(A[i, j]: 5);
end;
 
procedure CreateVector;
var i, j: integer;
begin
 B := nil;
 for i := 0 to C - 1 do
  for j := 0 to R - 1 do
   if A[j, i] < 0 then
    begin
     SetLength(B, Length(B) + 1);
     B[Length(B) - 1] := A[j, i];
     break;
    end;
end;
 
function GetIndex: integer;
var i, Min: integer;
begin
 result := 0;
 Min := High(integer);
 for i := Low(B) to High(B) do
  begin
   if B[i] < Min then
    begin
     Min := B[i];
     result := i;
    end;
  end;
  result := result + 1;
end;
 
procedure Transformation;
var i, j, k: integer;
begin
 k := GetIndex;
 Writeln('');
 Writeln('Index of the minimal element of a vector = ', k);
 for i := 0 to R - 1 do
  for j := 0 to C - 1 do
   A[i, j] := k * A[i, j];
end;
 
begin
 Randomize;
 CreateMatrix;
 FillMatrix;
 PrintMatrix('Initial matrix:');
 CreateVector;
 Transformation;
 PrintMatrix('Transformed matrix:');
 Readln;
end.
0
Лучшие ответы (1)
16.11.2018, 20:15
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
16.11.2018, 20:15
Ответы с готовыми решениями:

Работа с матрицами
&quot;Дана матрица. Сформировать одномерный массив, где на нечетных местах находится сумма, соответствующей строки, а на четных –...

Работа с матрицами
всем привет парни. сижу мучаюсь ничего в голову не лезет. выручайте. есть программа, ее нужно разбить на 2. в первой чтоб матрица выполняла...

Работа с матрицами
Будьте так добры написать программу на Delphi. В двухмерном массиве n на m найдите среднее арифметическое первого столбца и количество...

1
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
16.11.2018, 21:14 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
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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,Math;
type TMatrix = array of array of integer;
     TVector = array of integer;
procedure CreateMatrix(var A:TMatrix;var R,C:integer);
begin
 repeat
  Write('Enter the number of rows of the matrix: ');
  Readln(R);
  Write('Enter the number of columns of the matrix: ');
  Readln(C);
 until (R > 2) and (C > 2);
 SetLength(A, R, C);
end;
 
procedure FillMatrix(var A:TMatrix;R,C:integer);
var i, j: integer;
begin
 for i := 0 to R - 1 do
  for j := 0 to C - 1 do
   A[i, j] := RandomRange(-99, 100);
end;
procedure PrintMatrix(A:TMatrix;R,C:integer;Caption: String);
var i, j: integer;
begin
 Writeln('');
 Writeln(Caption);
 Writeln('');
 for i := 0 to R - 1 do
  for j := 0 to C - 1 do
   if j < C - 1 then Write(A[i, j]: 5) else Writeln(A[i, j]: 5);
end;
 
procedure CreateVector(A:TMatrix;R,C:integer;var B:TVector);
var i, j: integer;
begin
 B := nil;
 for i := 0 to C - 1 do
  for j := 0 to R - 1 do
   if A[j, i] < 0 then
    begin
     SetLength(B, Length(B) + 1);
     B[Length(B) - 1] := A[j, i];
     break;
    end;
end;
 
function GetIndex(B:TVector): integer;
var i, Min: integer;
begin
 result := 0;
 Min := High(integer);
 for i := Low(B) to High(B) do
  begin
   if B[i] < Min then
    begin
     Min := B[i];
     result := i;
    end;
  end;
  result := result + 1;
end;
 
procedure Transformation(var A:TMatrix;B:TVector;R,C:integer);
var i, j, k: integer;
begin
 k := GetIndex(B);
 Writeln('');
 Writeln('Index of the minimal element of a vector = ', k);
 for i := 0 to R - 1 do
  for j := 0 to C - 1 do
   A[i, j] := k * A[i, j];
end;
var A: TMatrix;
    B: TVector;
    R, C: integer;
begin
 Randomize;
 CreateMatrix(A,R,C);
 FillMatrix(A,R,C);
 PrintMatrix(A,R,C,'Initial matrix:');
 CreateVector(A,R,C,B);
 Transformation(A,B,R,C);
 PrintMatrix(A,R,C,'Transformed matrix:');
 Readln;
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.11.2018, 21:14
Помогаю со студенческими работами здесь

Работа с матрицами
Доброго времени суток! Может кто-то сможет подсказать по поводу следующего: Задана матрица размером NxM. Упорядочить ее столбцы по...

работа с матрицами
здравствуйте! решите примеры пожалуйста. А то я совсем не разбираюсь в delphi. 1.Даны квадратные матрицы А и В порядка n. Получить...

Работа с матрицами
Задача с матрицами. 1. Дана матрица размера M на N. Поменять местами левую нижнюю и верхнюю правую четверти матрицы. 2. Есть матрица...

Работа с матрицами
Здравствуйте. Нужна помощь с задачей: Дана действительная матрица размерности (n*n) .Если среднее арифметическое элементов стоящих над...

Работа с матрицами
Здраствуйте нужна помощь. вот задание ---Среди столбцов заданной матрицы найти столбец , сумма модулей элементов которого минимальна и...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Интеграция HTML и Angular
bytestream 15.02.2025
Когда речь заходит о современном веб-приложении, сложно представить более мощный тандем, чем HTML и Angular. Один выступает в роли проверенного фундамента, на котором строятся все веб-страницы,. . .
Как свернуть все методы в Visual Studio Code
bytestream 15.02.2025
Современная разработка программного обеспечения - это не только написание кода, но и постоянная работа с большими объемами уже существующего исходного кода. Когда размер файлов достигает нескольких. . .
Как удалить все локальные образы Docker
bytestream 15.02.2025
Управление контейнерами и образами в Docker требует регулярной очистки системы от неиспользуемых ресурсов. Особенно это актуально для разработчиков, которые часто создают и тестируют различные. . .
Ошибка "Could not find a declaration file for module 'module'. '/path/module.js' implicitly has an 'any' type"
bytestream 15.02.2025
Каждый разработчик, использующий TypeScript, рано или поздно сталкивается с ошибкой "Could not find a declaration file for module". Эта ошибка появляется при попытке импортировать модуль, для. . .
Отличия remote add origin от remote set-url origin в Git
bytestream 15.02.2025
Git - отличный помошник в управлении версиями кода, но иногда даже опытные разработчики путаются в похожих командах. Особенно часто возникает путаница между git remote add origin и git remote set-url. . .
Статические методы в Kotlin, как в Java
bytestream 15.02.2025
Когда разработчики переходят с Java на Kotlin, одним из первых вопросов становится отсутствие привычного ключевого слова static. И действительно, в мире Java статические методы - это неотъемлимая. . .
Как отрисовать компонент React без вызова setState
bytestream 15.02.2025
React - одна из наиболее востребованных библиотек для создания пользовательских интерфейсов, но даже в ней есть свои подводные камни. Иногда разработчики сталкиваются с ситуациями, когда стандартный. . .
Как сделать POST объекта JSON с помощью fetch в JavaScript
bytestream 15.02.2025
При обмене данными с веб-серверами fetch - отличный помошник, который скрывает в себе множество интересных возможностей. Это встроенный в JavaScript способ отправки HTTP-запросов, который появился. . .
Как продублировать строку или выделенный текст в Visual Studio Code
bytestream 15.02.2025
Самый быстрый и удобный способ продублировать строку - использовать комбинацию клавиш Shift+Alt+↓ (или Shift+Alt+↑). При нажатии этих клавиш редактор автоматически создает копию текущей строки и. . .
Как удалить неиспользуемые образы Docker
bytestream 15.02.2025
Docker - впечатляющая технология для работы с контейнерами, но иногда она может создавать неожиданные сложности в управлении ресурсами. Одна из таких проблем - постепенное накопление неиспользуемых. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru