Используя программу Поиск решения, решите задачу оптимизации выпуска изделий на предприятии «Орбита». Предприятие выпускает приборы трех типов - прибор 1, 2 и 3. Количество комплектующих элементов, используемых для производства каждого типа, и ежедневный запас элементов приведены в таблице Расход элементов первого типа можно по формуле = ВЗ*$В$6 + СЗ*$С$6 + DЗ*$D$6 С автозаполнения вычислите расход элементов второго и третьего типа. Определите, каким образом следует изменить соотношение типов выпускаемых приборов, чтобы обеспечить максимальный суммарный выпуск приборов при оптимальном расходе имеющегося запаса комплектующих элементов? Для решения этой задачи используйте программу Поиск решения. Установите для целевой ячейки F6 максимальное значение. Введите следующие ограничения: 1. Количество выпускаемых приборов должно быть целым числом. 2. Расход элементов не должен превышать их запас. 3. Выпуск приборов каждого типа не должен быть меньше 100 шт. Задача 5 После того, как решение будет получено, скопируйте таблицу на следующем листе и посчитайте в столбце G остаток каждого типа элементов, а в ячейке G6-суммарный остаток. Проведите поиск решения, установив для целевой ячейки G6 минимальное значение. Сравните полученные результаты
Ответы
1) var a:array[1..10] of real;
i:integer;
begin
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.
i:integer;
begin
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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Найти произведение нечетных чисел от 1 до 100. блок схема
Автор: maryariazantseva
Представьте десятичные числа в беззнаковом 8-разрядном формате 53 и 108
Автор: Алексеевич620
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
точка на окружности