Используя программу Поиск решения, решите задачу оптимизации выпуска изделий на предприятии «Орбита». Предприятие выпускает приборы трех типов - прибор 1, 2 и 3. Количество комплектующих элементов, используемых для производства каждого типа, и ежедневный запас элементов приведены в таблице Расход элементов первого типа можно по формуле
= ВЗ*$В$6 + СЗ*$С$6 + DЗ*$D$6
С автозаполнения вычислите расход элементов второго и третьего типа. Определите, каким образом следует изменить соотношение типов выпускаемых приборов, чтобы обеспечить максимальный суммарный выпуск приборов при оптимальном расходе имеющегося запаса комплектующих элементов?
Для решения этой задачи используйте программу Поиск решения. Установите для целевой ячейки F6 максимальное значение.
Введите следующие ограничения:
1. Количество выпускаемых приборов должно быть целым числом.
2. Расход элементов не должен превышать их запас.
3. Выпуск приборов каждого типа не должен быть меньше 100 шт.
Задача 5
После того, как решение будет получено, скопируйте таблицу на следующем листе и посчитайте в столбце G остаток каждого типа элементов, а в ячейке G6-суммарный остаток. Проведите поиск решения, установив для целевой ячейки G6 минимальное значение. Сравните полученные результаты
function ptcrk(a,b,x,y,r: real): integer; var k: integer; begin k:=0; if abs(sqr(x-a)+sqr(y-b)-r*r)<1.0e-9 then k:=1; if r*r-sqr(x-a)-sqr(y-b)>1.0e-9 then k:=2; ptcrk:=k; end; // основная программа var a,b,x,y,r,k: real; begin write('координаты центра a b: '); readln(a,b); write('координаты точки x y: '); readln(x,y); write('радиус: '); readln(r); k:=ptcrk(a,b,x,y,r); if k=1 then writeln('точка на окружности'); if k=2 then writeln('точка внутри круга'); if k=0 then writeln('точка вне круга'); end.
координаты центра a b: 2 1 координаты точки x y: 4 1 радиус: 2.1 точка внутри круга
координаты центра a b: 2 1 координаты точки x y: 4 1 радиус: 2 точка на окружности
randomize; for i:=1 to 10 do begin a[i]:= random(200) -100; write(a[i]:5); end;
writeln;
for i:=1 to 10 do if a[i]>=0 then a[i]:=a[i]/2 else a[i]:=i; write(a[i]:5);
end.
2) var a:array[1..1000] of real; s1,s2:real; i,n:integer; begin write('Введите кол-во элементов: '); readln(n); writeln('Введите элементы массивы: '); for i:=1 to n do read(a[i]);
s1:=0; s2:=0; for i:=1 to n do if odd(i) then s1:=s1+a[i] else s2:=s2+a[i];
writeln('Сумма элементов с четными номерами: ',s2); writeln('Сумма элементов с нечетными номерами: ',s1); end.
var k: integer;
begin
k:=0;
if abs(sqr(x-a)+sqr(y-b)-r*r)<1.0e-9 then k:=1;
if r*r-sqr(x-a)-sqr(y-b)>1.0e-9 then k:=2;
ptcrk:=k;
end;
// основная программа
var a,b,x,y,r,k: real;
begin
write('координаты центра a b: '); readln(a,b);
write('координаты точки x y: '); readln(x,y);
write('радиус: '); readln(r);
k:=ptcrk(a,b,x,y,r);
if k=1 then writeln('точка на окружности');
if k=2 then writeln('точка внутри круга');
if k=0 then writeln('точка вне круга');
end.
координаты центра a b: 2 1
координаты точки x y: 4 1
радиус: 2.1
точка внутри круга
координаты центра a b: 2 1
координаты точки x y: 4 1
радиус: 2
точка на окружности