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

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

20.10.2014, 21:15. Просмотров 219. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Упорядочить элементы матрицы по убыванию, и найти максимальные элементы в строках матрицы (Lazarus):

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

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

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

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

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

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

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

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

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

Для заданной матрицы размером 8 на 8 найти такие k, что k-я строка матрицы совпадает с k-м столбцом
Для заданной матрицы размером 8 на 8 найти такие k, что k-я строка матрицы...

Все элементы массива расположить по убыванию
Здравствуйте. Имеются 3 задачи,буду очень признателен,если пропишите...


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

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

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