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

Дана матрица размером n на m. Определите число равное ср. арифм. знач. макс. и мин. элемента каждого столбца

07.12.2014, 18:57. Показов 665. Ответов 5
Метки нет (Все метки)

Здравствуйте! Помогите исправить данную программу:
Дана вещественная матрица размером NхM. Определить числа В1,..,Вm, равные среднему арифметическому значению максимального и минимального элементов каждого столбца.
Все исходники имеются в прикрепленном архиве.

Проблема заключается в том, что с 6 столбцом происходят непонятные вещи, именно в нем неверно находится максимальный и минимальный элемент. Также возникает проблема с нахождением среднего арифметического, значение макс[i] и мин[i] берутся непонятно откуда, и поэтому даже просто при их сложении получается неверное значение.

Исходный код моей программы:
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    StringGrid2: TStringGrid;
    Label3: TLabel;
    StringGrid3: TStringGrid;
    Label4: TLabel;
    StringGrid4: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
  strk=5;
  stlb=15;
 
var
  Form1: TForm1;
  massiv:array [0..strk,0..stlb] of integer;
  minmas:array [0..strk] of integer;
  maxmas:array [0..strk] of integer;
  srarf:array [0..strk] of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
  var i,j,n:integer;
begin
  randomize;
 
 
  StringGrid1.RowCount:=strk;
  StringGrid1.ColCount:=stlb;
  StringGrid2.RowCount:=0;
  StringGrid2.ColCount:=stlb;
  StringGrid3.RowCount:=0;
  StringGrid3.ColCount:=stlb;
  StringGrid4.RowCount:=0;
  StringGrid4.ColCount:=stlb;
 
for i:=0 to stlb-1 do
  for j:=0 to strk-1 do
    begin
      massiv[i,j]:=random(100);
      StringGrid1.Cells[i,j]:=IntToStr(massiv[i,j]);
      end;
 
 
  for i:=0 to stlb do
    begin
    minmas[i]:=massiv[i,0];
      for j:=0 to strk-1 do
      begin
        if massiv[i,j]<minmas[i] then
        minmas[i]:=massiv[i,j];
      end;
      StringGrid2.Cells[i,0]:=IntToStr(minmas[i]);
    end;
 
  for i:=0 to stlb do
    begin
    maxmas[i]:=massiv[i,0];
      for j:=0 to strk-1 do
      begin
        if massiv[i,j]>maxmas[i] then
        maxmas[i]:=massiv[i,j];
      end;
      StringGrid3.Cells[i,0]:=IntToStr(maxmas[i]);
    end;
 
   for i:=0 to stlb do begin
    srarf[i]:=minmas[i]+maxmas[i];
      StringGrid4.Cells[i,0]:=IntToStr(srarf[i]); end;
 
 
end;
 
end.
Вложения
Тип файла: zip Программа.zip (236.3 Кб, 2 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2014, 18:57
Ответы с готовыми решениями:

Дана целочисленная матрица размером nxm. Определите кол-во элементов принадлежащих диапазону [1,7] для каждого столбца
Добрый день! Гуру помогите с задачкой: Дана целочисленная матрица размером nxm. Определите...

Дана матрица целых чисел размером 4x4. Определите сумму и количество положительных элементов каждого столбца матрицы
Дана матрица целых чисел размером 4x4. Определите сумму и количество положительных элементов...

Дана матрица размером m*n. Вывести разницу между макс. и мин. компонентами и саму матрицу
дана матрица размером m*n. вывести разницу между максимальным и минимальным компонентами и саму...

Дана матрица К размером m*n. Вычислить сумму минимальных элементов каждого столбца
Не могу понять как сделать задачу, подскажите #include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; int...

5
Модератор
3477 / 2600 / 741
Регистрация: 19.09.2012
Сообщений: 7,967
07.12.2014, 19:33 2
Циклы должны быть до stlb-1
0
0 / 0 / 0
Регистрация: 07.10.2014
Сообщений: 60
07.12.2014, 19:38  [ТС] 3
Может быть так и нужно сделать, но на деле, это совершенно ничему не поможет.
0
Модератор
3477 / 2600 / 741
Регистрация: 19.09.2012
Сообщений: 7,967
07.12.2014, 19:41 4
И строки со столбцами в некоторых местах попутаны.
0
0 / 0 / 0
Регистрация: 07.10.2014
Сообщений: 60
08.12.2014, 13:20  [ТС] 5
Местами менял очень много всего, на практике это не помогало.
Если вы сможете мне помочь, я буду вам благодарен.

Добавлено через 17 часов 28 минут
Актуально.
0
0 / 0 / 0
Регистрация: 07.10.2014
Сообщений: 60
11.12.2014, 00:52  [ТС] 6
Актуально.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2014, 00:52

Дана матрица размером M на N. Найти сумму элементов каждого чётного столбца
Найти сумму элементов каждого чётного столбца. Создать программу с использованием массивов

Дана матрица Размером m*n . Найти сумму минимальных элементов каждого столбца матрицы
помогите пж Добавлено через 1 минуту delphi

Ввести матрицу с внешнего файла и поменять местами макс. и мин. элементы каждого столбца матрицы
Дана матрица A . Необходимо поменять местами максимальный и минимальный элемент каждого...

Дана целочисленная матрица A(N, M). Вычислите и запомните сумму и число положительных элементов каждого столбца матрицы
Помогите дописать программу,числа больше нуля не правильно показывает #include &lt;stdio.h&gt; #include...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru