3.14zDoS
Вот пример с удельной стоимостью.
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Grids;
type
TForm1 = class(TForm)
Button1: TButton;
StringGrid1: TStringGrid;
Label1: TLabel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure CreateUCost();
procedure FullSort();
procedure FullGrid();
type
TGen = record
Name: string[255];
mass: integer;
cost: integer;
ucost: real;
zap: Boolean;
end;
var
Form1: TForm1;
MyGen: array of TGen;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(MyGen, 8);
MyGen[0].Name := 'Tovar1';
MyGen[1].Name := 'Tovar2';
MyGen[2].Name := 'Tovar3';
MyGen[3].Name := 'Tovar4';
MyGen[4].Name := 'Tovar5';
MyGen[5].Name := 'Tovar6';
MyGen[6].Name := 'Tovar7';
MyGen[7].Name := 'Tovar8';
MyGen[0].mass := 1500;
MyGen[1].mass := 2000;
MyGen[2].mass := 1500;
MyGen[3].mass := 1500;
MyGen[4].mass := 2500;
MyGen[5].mass := 1000;
MyGen[6].mass := 1500;
MyGen[7].mass := 500;
MyGen[0].cost := 200;
MyGen[1].cost := 100;
MyGen[2].cost := 200;
MyGen[3].cost := 100;
MyGen[4].cost := 200;
MyGen[5].cost := 100;
MyGen[6].cost := 200;
MyGen[7].cost := 100;
MyGen[0].ucost := 0;
MyGen[1].ucost := 0;
MyGen[2].ucost := 0;
MyGen[3].ucost := 0;
MyGen[4].ucost := 0;
MyGen[5].ucost := 0;
MyGen[6].ucost := 0;
MyGen[7].ucost := 0;
MyGen[0].zap := False;
MyGen[1].zap := False;
MyGen[2].zap := False;
MyGen[3].zap := False;
MyGen[4].zap := False;
MyGen[5].zap := False;
MyGen[6].zap := False;
MyGen[7].zap := False;
end;
procedure CreateUCost();
var
i: integer;
begin
for i := 0 to 7 do begin
MyGen[i].ucost := MyGen[i].cost/MyGen[i].mass;
end;
end;
procedure FullSort();
var
i, k: integer;
temp: TGen;
begin
for i := 0 to 6 do
for k := i to 7 do begin
if MyGen[i].ucost < MyGen[k].ucost then begin
temp := MyGen[i];
MyGen[i] := MyGen[k];
MyGen[k] := temp;
end;
end;
end;
procedure FullGrid();
var
i, msum, sum: integer;
s: string;
begin
if MyGen[0].mass <= 5000 then begin
MyGen[0].zap := True;
msum := MyGen[0].mass;
end;
for i := 0 to 7 do begin
if msum + MyGen[i].mass <= 5000 then begin
msum := msum + MyGen[i].mass;
MyGen[i].zap := True;
end;
end;
for i := 0 to 7 do begin
if MyGen[i].zap = true then begin
Form1.StringGrid1.Cells [1, i+1] := MyGen[i].Name;
sum := sum + MyGen[i].cost;
end;
end;
Form1.Label1.Caption := intTostr(msum);
Form1.Label2.Caption := intTostr(sum);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CreateUCost;
FullSort;
FullGrid;
end;
end.
|
Прости, что без коментариев, какие то траблы с кодировкой.
Тип TGen заполняется не из файла, но это ты сам допишишь.
Я сортил методом пузырька, ты можешь использовать любой другой алгоритм. |
