0 / 0 / 0
Регистрация: 08.01.2017
Сообщений: 4
1

Формирование для каждой матрицы массива, состоящего из минимальных элементов строк матрицы

08.01.2017, 23:13. Показов 563. Ответов 3
Метки нет (Все метки)

Помогите, пожалуйста, найти ошибку в программе. Выводит неверно элементы.


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
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtnrs, Menus;
 
type   mass=array[1..4,1..4] of Real;
  TForm1 = class(TForm)
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    olcntnr1: TOleContainer;
    lbl1: TLabel;
    lbl2: TLabel;
    Button1: TButton;
    lbl3: TLabel;
    lbl4: TLabel;
 
    procedure Button1Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var a:mass=((1,0,9,0),(6,3,5,0),(4,2,0,0),(0,0,0,0));
b:mass=((113,14.5,117,36),(26,59,100,99),(34,11,23,81),(77,55,66,108));
  Form1: TForm1;
  
 
  i,k,j:integer;
 
 
implementation
 
{$R *.dfm}
 function min(x:mass; i:Integer; n:Integer):Real;
 var c:Real;
 begin
   for j:=0 to n-1 do
   if x[i,j]>x[i,j+1] then c:=x[i,j+1] else c:=x[i,j];
   result:=c;
 
 end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
var f,s:Real;
begin
   for i:=1 to 4 do begin  lbl3.caption:=lbl3.caption+'  '+floattostr(min(b,i,4));
end;
for i:=1 to 3 do lbl4.caption:=lbl4.caption+'  '+floattostr(min(a,i,3));
  end;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.01.2017, 23:13
Ответы с готовыми решениями:

Создать вектор, содержаший количество минимальных элементов в каждой строке матрицы
:help::help:Дана матрица. Создать вектор, содержаший количество минимальных элементов в каждой...

Формирование массива из элементов матрицы
Доброго времени суток. Помогите, пожалуйста, с решением задачи... совершенно не понимаю массивы. ...

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

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

3
6 / 6 / 3
Регистрация: 09.11.2014
Сообщений: 25
08.01.2017, 23:54 2
Можно объяснить что такое формирование? Весь курс паскаля учил матрицы и массивы. Но так и не ознакомлен с этим термином. Помогу если объясните
0
Модератор
7316 / 4791 / 2006
Регистрация: 21.01.2014
Сообщений: 20,339
Записей в блоге: 3
09.01.2017, 08:19 3
Валерия199,
1. Сформулируйте четко задание.
2. Когда вставляете в свой пост код программы - обрамляете его тэгами Delphi
0
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
09.01.2017, 09:11 4
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
const n=4;
type matr=array[1..n,1..n] of real;
     mass=array[1..n] of real;
const a:matr=((1,0,9,0),
              (6,3,5,0),
              (4,2,0,0),
              (0,0,0,0));
      b:matr=((113,14.5,117,36),
              (26,59,100,99),
              (34,11,23,81),
              (77,55,66,108));
procedure matrix(a:matr;st:TStringGrid);
var i,j:Byte;
begin
  for i:=1 to n do
  for j:=1 to n do
  st.Cells[j-1,i-1]:=FormatFloat('0.0',a[i,j]);
end;
procedure massiv(a:matr;var a1:mass;st:TStringGrid);
var i,j,jmn:Byte;
begin
for i:=1 to n do
 begin
   jmn:=1;
   for j:=2 to n do
   if a[i,j]<a[i,jmn] then jmn:=j;
   a1[i]:=a[i,jmn];
   st.Cells[i-1,0]:=FormatFloat('0.0',a1[i]);
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a1,b1:mass;
begin
matrix(a,StringGrid1);
matrix(b,StringGrid2);
massiv(a,a1,StringGrid3);
massiv(b,b1,StringGrid4);
end;
Вложения
Тип файла: rar 99.rar (185.8 Кб, 0 просмотров)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.01.2017, 09:11

Найти среднее арифметическое элементов каждой из строк этой матрицы
Помоги рассчитать среднее арифметическое элементов каждой из строк этой матрицы. unit Unit1; ...

Процедура построения одномерного массива из минимальных элементов каждой строки матрицы
Вечер добрый. У меня возникла проблема с использованием процедуры в программе. Алгоритм программы:...

Даны три квадратные матрицы. Сформировать вектор, состоящий из минимальных элементов каждой матрицы, отличных от нуля
Даны три квадратные матрицы. Сформировать вектор, состоящий из минимальных элементов каждой...

Формирование одномерного массива из сумм элементов каждой строки матрицы, кратных числу k
Все, вроде, правильно, но выводит только первый элемент попавший в if. #include &lt;conio.h&gt;...


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

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

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