Используя программу Поиск решения, решите задачу оптимизации выпуска изделий на предприятии «Орбита». Предприятие выпускает приборы трех типов - прибор 1, 2 и 3. Количество комплектующих элементов, используемых для производства каждого типа, и ежедневный запас элементов приведены в таблице Расход элементов первого типа можно по формуле
= ВЗ*$В$6 + СЗ*$С$6 + DЗ*$D$6
С автозаполнения вычислите расход элементов второго и третьего типа. Определите, каким образом следует изменить соотношение типов выпускаемых приборов, чтобы обеспечить максимальный суммарный выпуск приборов при оптимальном расходе имеющегося запаса комплектующих элементов?
Для решения этой задачи используйте программу Поиск решения. Установите для целевой ячейки F6 максимальное значение.
Введите следующие ограничения:
1. Количество выпускаемых приборов должно быть целым числом.
2. Расход элементов не должен превышать их запас.
3. Выпуск приборов каждого типа не должен быть меньше 100 шт.
Задача 5
После того, как решение будет получено, скопируйте таблицу на следующем листе и посчитайте в столбце G остаток каждого типа элементов, а в ячейке G6-суммарный остаток. Проведите поиск решения, установив для целевой ячейки G6 минимальное значение. Сравните полученные результаты
Var x,f:real; begin Write('Введите x: '); Readln(x); if (x>-2.4) and (x<5.7) then f:=sqr(x) else f:=4; Writeln('F=',f) end.
var x,f:real; begin Write('Введите x: '); Readln(x); if (x>0.2) and (x<0.9) then f:=sin(x) else f:=1; Writeln('F=',f) end.
var a,b,c:real; begin Write('Введите три числа: '); Readln(a,b,c); Write('Условие ',a,'<',b,'<',c); if (b>a) and (b<c) then Writeln(' выполняется.') else Writeln(' не выполняется.'); Write('Условие ',b,'>',a,'>',c); if (a<b) and (a>c) then Writeln(' выполняется.') else Writeln(' не выполняется.') end.
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
x,f:real;
begin
Write('Введите x: '); Readln(x);
if (x>-2.4) and (x<5.7) then f:=sqr(x)
else f:=4;
Writeln('F=',f)
end.
var
x,f:real;
begin
Write('Введите x: '); Readln(x);
if (x>0.2) and (x<0.9) then f:=sin(x)
else f:=1;
Writeln('F=',f)
end.
var
a,b,c:real;
begin
Write('Введите три числа: '); Readln(a,b,c);
Write('Условие ',a,'<',b,'<',c);
if (b>a) and (b<c) then Writeln(' выполняется.')
else Writeln(' не выполняется.');
Write('Условие ',b,'>',a,'>',c);
if (a<b) and (a>c) then Writeln(' выполняется.')
else Writeln(' не выполняется.')
end.