написанные программы / задание №7 — 2 / VAR0 / FINDMIN

Unit FindMin;
interface
function NumFirms: Byte;
function FindFirm(N, cMem, cCpu: Byte): String;

implementation
Const
Nm = 32;
Amem: Array[0..4] of Single=( 0.6, 1, 2, 4, 8 );
Acpu: Array[0..5] of Byte=( 10, 20, 25, 33, 40, 66 );
Type
Firm = record
name: String[16];
mem: array[0..4] of Real;
cpu: array[0..5] of Real;
end;
Var
Firms: Array[1..Nm] of Firm;
F: Text;
i, j, N: Integer;
function NumFirms: Byte;
begin
NumFirms:=N;
end;
function FindFirm(N, cMem, cCpu: Byte): String;
Var
i: Integer;
cFirm: String[16];
CompCost: Array[1..Nm] of Real;
nMinCost: Byte;
begin
for i:=1 to N do
CompCost[i]:= Firms[i].mem[cMem] + Firms[i].cpu[cCpu];
nMinCost:=1;
for i:=2 to N do
if CompCost[nMinCost] > CompCost[i] then nMinCost:=i;
FindFirm:=Firms[nMinCost].name;
end;
begin
Assign(F, 'hwpc.txt');
Reset(F);
ReadLn(F, N);
ReadLn(F);
for i:=1 to N do
With Firms[i] do
begin
Read(F, name);
for j:=0 to 4 do
Read(F, mem[j]);
ReadLn(F);
end;
ReadLn(F);
for i:=1 to N do
With Firms[i] do
begin
Read(F, name);
for j:=0 to 5 do
Read(F, cpu[j]);
ReadLn(F);
end;
end.