Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 28.05.2014, 13:38   #1 (permalink)
Alexander
Сисадмин по жизни
 
Аватар для Alexander
 
Регистрация: 30.11.2009
Сообщений: 910
Записей в дневнике: 1
Сказал(а) спасибо: 0
Поблагодарили 5 раз(а) в 3 сообщениях
Репутация: 1991
Smile Помогите с задачей по информатике

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

Старый 28.05.2014, 13:38
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Люди интересуются одним и тем же, зачастую создают аналогичные темы

Помогите с задачей
Помогите с задачей
Помогите решить задачи по информатике
Помогите с задачей
Помогите, пожалуйста, решить задачи по информатике
Очень прошу, помогите, пожалуйста, решить задание курсовой работы по информатике

Старый 28.05.2014, 23:11   #2 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Ну... если я правильно понял, что фермер покупает удобрения только целыми килограммами, а не, скажем, отвешивает с точностью до миллиграмма, и если устроит решение на Паскале, то так:
Код:
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.
Миниатюры
aa01.jpg  
Vladimir_S вне форума   Ответить с цитированием
Старый 31.05.2014, 21:36   #3 (permalink)
Alexander
Сисадмин по жизни
 
Аватар для Alexander
 
Регистрация: 30.11.2009
Сообщений: 910
Записей в дневнике: 1
Сказал(а) спасибо: 0
Поблагодарили 5 раз(а) в 3 сообщениях
Репутация: 1991
По умолчанию

Обалдеть) Владимир, спасибо вам) вы мегамозг просто
Alexander вне форума   Ответить с цитированием
Старый 31.05.2014, 21:46   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от Alexander Посмотреть сообщение
вы мегамозг просто
Да, я - он!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:22.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.