Предприятие выпускает несколько видов продукции, расходуя при этом различные типы ресурсов. В таблице с вариантами исходных данных дано: 1) расход каждого ресурса на производство единицы продукции;
2) прибыль от производства единицы продукции;
3) количество имеющихся ресурсов каждого типа и величина прибыли, которую должно получить предприятие (столбец «Всего»);
4) дополнительные условия.
Найти оптимальный план выпуска изделий, при котором общее количество израсходованных ресурсов будет минимальным. Считать, что объем выпуска измеряется в условных единицах и не задавать условие целочисленности для переменных.
Продукция 1 Продукция 2 Продукция 3 Продукция 4 Всего
Ресурс 1 3,4 2,3 2,3 2,2 8620
Ресурс 2 4,8 4 4,6 4,2 14150
Ресурс 3 4,6 4,3 3,8 3,6 16400
Ресурс 4 1,8 1,8 1,8 1,7 5850
Ресурс 5 20 34 12 15 93000
Ресурс 6 11,5 18,6 21 42 72000
Прибыль 89 71 39 19 187000
const n = 30;
var a :array [1..n] of integer;
i, p :integer;
pr :real;
begin
randomize;
for i:= 1 to n do
a[i]:= random(33)-7;
p:= 1; for i:= 1 to n do
if a[i] > 0 then
p:= p * a[i];
pr:= p/2;
writeln(pr);
end.
program task2;
const n = 30;
var a: array [1..n] of integer;
i, sum, max, min: integer;
sr: real;
begin
randomize;
for i := 1 to n do
a[i] := random(33) - 7;
sum:= 0;
for i := 1 to n do
if a[i] >= 0 then
sum:= sum + sqr(a[i]);
min:= a[1]; max:= a[1];
for i := 1 to n do begin
if a[i] > max then max:= a[i];
if a[i] < min then min:= a[i];
end;
sr:= (max + min)/2;
writeln('Сумма кадратов: ',sum);
writeln('Среднее арифметическое: ',sr);
end.