04.11.2007, 14:24
|
Прохожий
|
|
Регистрация: 04.11.2007
Сообщения: 2
Репутация: 10
|
|
TMemo
Поставленая задача:
В матрице сформировать массив, состоящий из номеров строк, в которых сумма элементов меньше или равна заданной величине А.
Найти минимальный элемент в этих строках и прибавить его ко всем элементам матрицы.
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Label1: TLabel;
Label2: TLabel;
Button2: TButton;
Edit1: TEdit;
Label3: TLabel;
summa: TMemo;
NewArray: TMemo;
Label4: TLabel;
MinElement: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
arrMat: array[1..5,1..5] of int64;
w,narr:array [1..5] of real;
iusl:array [1..5] of integer;
min,num:real;
s:array[1..6] of int64;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ModalResult:=mrOK;
Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('data.dan');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j: integer;
Summ:array [1..5] of int64;
begin
{ðàáîòà ñ ôîðìàìè}
summa.Visible:=true;
MinElement.Visible:=true;
NewArray.Visible:=true;
Label2.Visible:=true;
Label4.Visible:=true;
summa.Lines.Clear;
MinElement.Lines.Clear;
NewArray.Lines.Clear;
num := StrToFloat(Edit1.Text);
{âûâîä ñóììû âñåõ ñòðîê}
begin
for i:=1 to 6 do begin
for j:=1 to 6 do
Inc(Summ[i],arrMat[i,j]);
summa.Lines.Strings[i]:= summa.Lines.Strings[i] + ' ' + floattostr(summ[i]);
end;
end;
end;
end.
но почему-то сумма всех строк упорно не хочет выводится на экран...то есть поле TMemo пустое после нажатия на клавишу....помогите плз)
|