Китайская компания с ограниченной ответственностью по произ-водству гусеничных механизмов выпускает пять сходных друг с другом товаров – а, в, с, d и е. в табл. 2.7 представлены расходы ресурсов, необходимых для выпуска единицы каждого товара, а также недельные запасы каждого ресурса и цены продажи единицы каждого продукта.

таблица 2.7

товар недельный
ресурсы запас

а в с d е ресурсов

сырье, кг 6,00 6,50 6,10 6,10 6,40 35000
сборка, ч 1,00 0,75 1,25 1,00 1,00 6000
обжиг, ч 3 4,50 6 6 4,50 3
упаковка, ч 0,50 0,50 0,50 0,75 1,00 4000

цена продажи, ф. ст. 40 42 44 48 52


известны также издержки, связанные с использованием каждого вида ресурсов:

сырье – 2,10 ф. ст. за 1 кг; сборка – 3,00 ф. ст. за 1 ч; обжиг – 1,30 ф. ст. за 1 ч; упаковка – 8,00 ф. ст. за 1 ч.

требуется сформулировать линейного программирования таким образом, чтобы в качестве переменных как целевой функции, так и ограничений выступали ресурсы. кратко сформулировать предпосылки применения модели. для максимизации элементов, составляющих прибыль за неделю, следует использовать компьютерный пакет прикладных программ.

1. количество ядер процессора  2. частота процессора и частота системной шины (fsb) процессора  3. объем и количество кэш-памяти процессора (cpu)4. совпадение частоты системной шины cpu и материнской платы5. частота оперативной памяти (ram) и частота шины памяти материнской платы  6. объем оперативной памяти  7. используемый на материнской плате чипсет (intel, via, sis, nvidia, ati/amd)8. используемая графическая подсистема – встроенная в материнскую плату или дискретная  9. тип интерфейса винчестера (hdd) – параллельный ide или последовательные sata и sata-210. кэш винчестера

и это еще не все, можно продолжать. 

2^i = 24

i = 5

ответ. 5 лампочек.

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.