Задание:

1. Для поставленной задачи (по варианту) в тетради составить математическую модель задачи. 2. Подготовить лист рабочей книги MS Excel для вычислений. 3. Работа с надстройкой Поиск решения (Сервис – Поиск решения). 4. Вывести два отчета: 4.1. Отчет по результатам 4.2. Отчет по пределам

В литейном цехе в жидкий металл для получения нужного сплава вводится 4 элемента в количестве не менее 6, 12, 4, 9 единиц соответственно. В наличии имеется два материала В1 и В2, которые содержат эти 4 элемента и имеют различную стоимость (таблица 7). Сколько нужно ввести в сплав металла В1 и В2, чтобы получился нужный сплав при минимуме затрат.

Program z3;  Var y: array [1..15] of real;      g: array [1..20] of real;      i,d: integer; sum, sum_2: real;Begin  writeln('Введите оплату труда за день'); read(d);  for i := 1 to 15 do    y[i] := random (30) * d * 0.8;      for i:=1 to 20 do    g[i] := random (30) * d * 0.8;    for i:=1 to 15 do  begin    writeln('Сотрудник y_',i,' - ',y[i]);    sum:= sum + y[i];  end;  writeln;  writeln('Сумма отдела y - ', sum);  writeln;  for i:=1 to 20 do  begin    writeln('Сотрудник g_',i,' - ',g[i]);    sum_2:= sum_2 + g[i];  end;  writeln;  writeln('Сумма отдела g - ', sum_2);  writeln;    End.

Program z3;  Var y: array [1..15] of real;      g: array [1..20] of real;      i,d, a,b: integer; sum, sum_2: real;Begin  writeln('Введите оплату труда за день'); read(d);  a:= 0;  b:= 0;  for i := 1 to 15 do  begin    y[i] := random (30);    if (y[i] < 10) then a:= a + 1;    y[i] := y[i] * d * 0.8;  end;      for i:=1 to 20 do    g[i] := random (30);    if (g[i] < 10) then b:= b + 1;    g[i] := g[i] * d * 0.8;    for i:=1 to 15 do  begin    writeln('Сотрудник y_',i,' - ',y[i]);    sum:= sum + y[i];  end;  writeln;  writeln('Сумма отдела y - ', sum);  writeln;  for i:=1 to 20 do  begin    writeln('Сотрудник g_',i,' - ',g[i]);    sum_2:= sum_2 + g[i];  end;  writeln;  writeln('Сумма отдела g - ', sum_2);  writeln;      writeln('В отделе y ', a, ' сотрудников работало меньше 10 дней');  writeln;  writeln('В отделе g ', b, ' сотрудников работало меньше 10 дней');  End.