1. а) В чем состоит задача оптимального планирования? б) Что такое плановые показатели, ресурсы, стратегическая цель? Приведите примеры. 2. а) Попробуйте сформулировать содержание оптимального планирования для своей учебной деятельности. б) Что такое математическое программирование, линейное программирование?
3. а) Сформулируйте задачу оптимального планирования для школьного кондитерского цеха, в котором выпускается три вида продукции: пирожки, пирожные и коржики. б) Внесите изменение в постановку задачи оптимального планирования из этого параграфа для двух видов продукции с учетом еще одного ограничения: число пирожных должно быть не меньше числа пирожков. На координатной плоскости постройте область поиска решения нужно через 2 часа)
Задача 1
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 1024 * 512 = 524288 пикселей
I = 1 Mb = 1 * 1024 * 1024 * 8 бит = 8388608 бит
Глубина цвета бит
Кол-во цветов в палитре цветов
ответ: 65536.0
Задача 2
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 256 * 128 = 32768 пикселей
I = 16 Kb = 16 * 1024 * 8 бит = 131072 бит
Глубина цвета бит
Кол-во цветов в палитре цветов
ответ: 16.0
// Внимание! Если программа не работает, обновите версию!
№1
begin
var n:=ReadInteger('n=');
var s:=n mod 10;
n:=n div 10;
var d:integer;
while n>0 do (d,n):=(n mod 10,n div 10);
s+=d;
Writeln('Сумма ',s);
if s>10 then Writeln('Верно') else Writeln('Неверно')
end.
№2
begin
var s:=ReadInteger('n=').ToString;
var n:=s.Length;
(s[1],s[n]):=(s[n],s[1]);
s.Println;
if s[n].ToDigit.IsEven then Writeln('Верно') else Writeln('Неверно')
end.
№3
begin
var n:=ReadInteger('n=');
var p:=1;
while n>0 do begin
var d:=n mod 10;
if d.IsOdd then p*=d;
n:=n div 10
end;
Writeln('Произведение ',p);
If p.InRange(100,999) then Writeln('Верно') else Writeln('Неверно')
end.
№4
begin
var n:=ReadInteger('n=');
var k:=0;
while n>0 do begin
if n mod 10=5 then k+=1;
n:=n div 10
end;
if k=3 then Writeln('Верно') else Writeln('Неверно')
end.
№5
begin
var n:=ReadInteger('n=');
var k:=1;
Writeln('Делители: ');
for var i:=1 to n div 2 do
if n mod i=0 then begin
Print(i);
k+=1
end;
Writeln(n);
if k.IsEven then Writeln('Верно') else Writeln('Неверно')
end.