Помогите с задачей по информатике

[Alexander]

Помогите с задачей по информатике

При подкормке посевов необходимо внести на 1 га почвы не менее 8 единиц азота, 21 единицы аммония и 16 единиц фосфора. Фермер закупает комбинированные удобрения двух видов: суперфосфат и аммофос. Содержание количества единиц химических веществ в 1 кг каждого вида удобрений и цена 1 кг удобрений указаны в таблице. Определить потребность фермера в удобрениях каждого вида на 1 га посевной площади при минимальных затратах на их приобретение.
Решение надо в exel предоставить.
Огромное спасибо решившему)

 

[Vladimir_S]

Ну... если я правильно понял, что фермер покупает удобрения только целыми килограммами, а не, скажем, отвешивает с точностью до миллиграмма, и если устроит решение на Паскале, то так:

Var
 Super,Ammof,Price,Am1,Am2,Am3,Dif,
 Pr_min,S_min,A_min:Integer;

Function Max2(M1,M2:Integer):Integer;
begin
 if M1>M2 then Max2:=M1 else Max2:=M2;
end;

Function Max3(M1,M2,M3:Integer):Integer;
begin
 Max3:=Max2(Max2(M1,M2),M3);
end;

Begin    
 writeln('Super  Ammof  Price');
 Pr_min:=1000;
 for Super:=0 to 8 do
  begin
   Dif:=8-Super*1;
   If Dif<=0 then Am1:=0 else Am1:=(Dif div 5)+1;
   Dif:=21-Super*12;
   If Dif<=0 then Am2:=0 else Am2:=(Dif div 3)+1;
   Dif:=16-Super*4;
   If Dif<=0 then Am3:=0 else Am3:=(Dif div 4)+1;
   Ammof:=Max3(Am1,Am2,Am3);
   Price:=Super*5+Ammof*2;
   if Price<Pr_min then
    begin
     Pr_min:=Price;
     S_min:=Super;
     A_min:=Ammof;
    end;
   writeln(Super:3,Ammof:7,Price:8);
  end;
 writeln;
 Writeln('Result:');
 Writeln('Superfosfat: ',S_min,' kg');
 Writeln('    Ammofos: ',A_min,' kg');
 Writeln('      Price: ',Pr_min);
 readln
End.

 

[Alexander]

Обалдеть) Владимир, спасибо вам) вы мегамозг просто

 

[Vladimir_S]

вы мегамозг просто

Да, я - он!