Используя программу Поиск решения, решите задачу оптимизации выпуска изделий на предприятии «Орбита». Предприятие выпускает приборы трех типов - прибор 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сообщение о системе счисления в древнем египте. кратко
Автор: zrs-546
Сор 1 по информатике 6 класс 2 четверть 5 задание
Автор: Жуков219
Вычислить сумму и число положительных элементов матрицы A.
Автор: nataliaprintroll
Не себепті HTML тілінде тегтер жұпты және жұпсыз тегтер деп бөлінеді?
Автор: badalovao256
Как можно их найти скажите Ещё 30 дней не зарание
Автор: ea9824165833886
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
точка на окружности