Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
demon05500
0 / 0 / 0
Регистрация: 14.11.2013
Сообщений: 43
1

Упорядочить элементы матрицы по убыванию, и найти максимальные элементы в строках матрицы

20.10.2014, 21:15. Просмотров 228. Ответов 0
Метки нет (Все метки)

Добрый вечер, у меня есть программа, как упорядочить элементы матрицы(во втором элементе) по убыванию и найти максимальные элементы в строках матрицы? заранее спасибо
Pascal
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
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
const
  n = 4;
  m = 5;
var
  Mat: array[1..n, 1..m] of integer;
  Summa: integer;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
begin
randomize;
with StringGrid1 do
 begin
    colcount:=m+1;
    rowcount:=n+2;
    defaultcolwidth:=50;
    for i:=1 to m do
    cells[i,0]:=IntToStr(i);
    for i:=1 to n do
    cells[0,i]:=IntToStr(i);
    cells[0,n+1]:='Среднее';
  end;
for i:=1 to n do
for j:=1 to m do
 begin
  Mat[i, j]:=random(20);
  StringGrid1.Cells[j,i]:=IntToStr(Mat[i, j]);
  end;
 end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:byte;
    summa:real;
begin
for j:=1 to m do
 begin
  Summa:=0;
  for i:=1 to n do
  Summa:=summa+Mat[i,j];
  Summa:=Summa / n;
  StringGrid1.Cells[j,n+1]:=FloatToStrF(summa,ffFixed,5,2);
 end;
end;
 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.10.2014, 21:15
Ответы с готовыми решениями:

Отсортировать элементы третьего столбца матрицы по убыванию.
В массиве А отсортировать элементы третьего столбца по убыванию. Вывести новый массив на печать. ...

Заменить все элементы матрицы значениями их квадратов
var a:array of longint; n,m,i,j:longint; begin begin n:=4; m:=3; for i:=1 to n do for...

Заменить нулями все элементы матрицы, расположенные на главной диагонали
Здравствуйте, помогите решить задачу: дана действительная квадратная матрица порядка 12. Заменить...

Заменить нулями элементы матрицы, лежащие выше главной диагонали
Дана квадратная матрица порядка M. Заменить нулями элементы матрицы, лежащие выше главной...

Создать новый файл, содержащий все элементы матрицы (по строкам) из исходного файла
Помогите пожалуйста !!! Дан файл вещественных чисел, содержащий ненулевую часть нижнетреугольной...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.10.2014, 21:15

Передвинуть элементы, расположенные на периметре матрицы, на одну позицию по ходу часовой стрелки
Дан массив A(M,N),автоматически заполненный по заранее определенному закону. Передвинуть элементы,...

Удалить из заданного массива целых чисел размером M x N все максимальные его элементы
Удалить из заданного массива целых чисел размером M x N все максимальные его элементы при этом...

Получить массив, где будут храниться индексы строк матрицы, в которых есть равные элементы
2. Дан прямоугольный массив A. Получить линейный массив B, в котором будут храниться номера тех...


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

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

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