Моделирование В Экономике

Тема в разделе "Pascal and Delphi", создана пользователем Xaxaxa, 30 мар 2012.

  1. Xaxaxa

    Xaxaxa Гость

    На предприятии могут выпускать изделия 5-ти видов (столы, стулья, шкафы, тумбочки и кресла). В силу ограниченности возможностей сборочного цеха в нем могут собирать за день 105, 240, 35, 95 и 68 изделий соответственно (если собирать только один вид изделия), либо какую-нибудь комбинацию тех и других, определяемую приемлемыми трудозатратами. Склад может принять не более 130 изделий любого вида в сутки. Известно, что шкаф стоит в 5 раза дороже стола, тумбочка в 3 раза дороже стула и в 1,5 раза дешевле кресла, которое в 2 раза дешевле шкафа. Требуется найти такой план выпуска продукции, который обеспечил бы предприятию наиболь¬шую выручку.



    Вот я ее в паскале решил но не совсем я не учел текст (если собирать только один вид изделия)я просто не знаю как сделать вот это (....определяемую приемлемыми трудозатратами)

    Код:


    #program m;
    var
    a,b,c,d,e,w,f,f1,f2,f22:integer;
    begin
    Writeln('vvedite kol-vo predmetov po paryadky');
    readln(a,b,c,d,e);
    Writeln('vvedite kol-vo det v sytki');
    readln(w);
    begin
    f1:=a+b+c+d+e;
    if f1>w then f:=f1-w
    else writeln ('stolov',a,'stylev ',b,'shkafof',c,'tymb',d,'kresel',e);
    end;
    begin
    f2:=f-e;
    if f2>0 then f22:=f2;
    if f2<0 then f22:=e-f;
    if f2=0 then writeln('stolov',a,'stylev ',b,'shkafof',c,'tymb',d);
    и так далее....
    end;
    end.
     
Загрузка...

Поделиться этой страницей