Визначення оптимального асортименту, що максимізує прибуток Вихідні дані: меблева фабрика виготовляє столи, стільці, бюро й книжкові шафи, використовуючи два різних види дощок, причому фабрика має 500 м3. дощок першого виду і 1000 м3 дощок другого. Крім того, задані трудові ресурси в кількості 800 людино-год. В таблиці наведено норми витрат кожного виду ресурсів на виготовлення одиниці виробу і прибуток від реалізації одиниці виду продукції.
Потрібно: визначити оптимальний асортимент випуску продукції, що максимізує прибуток.
Ресурси Витрати на одиницю продукції Запаси
Столи Стільці Бюро Книжкові шафи
Дошки першого виду, м3 5 1 9 12 500
Дошки другого виду, м3 2 3 4 1 1000
Трудові ресурси, людино-год. 3 2 5 10 800
Прибуток на один виріб (тис. грн.) 12 5 15 10
Моделируемый процесс - смена дня и ночи
Моделируемый объект - Земля
Цель моделирования - наглядно объяснить смену дня и ночи на Земле
Важная характеристика 3 - вращение Земли вокруг своей оси
Выглядит это (очень упрощённо) как на рисунке.
Зенит не тренируется у Марко и Антонио, но и у Николая он тренироваться не может, так как национальности тренера и команды не должны совладать. Зенит тренирует Родриго.
Марк не тренер Милана, Родриго тренирует зенит и итальянец Антонио не может тренировать итальянскую команду. Милан тренирует Николай.
Англичанин Марк не может тренировать английскую Челси, поэтому он тренирует оставшийся Реал.
Ну и Челси тренирует Антонио.
Зенит - Родриго
Милан - Николай
Реал - Марк
Челси - Антонио
begin
var arr := ArrRandomInteger(5, 0, 1000);
arr.Println;
var quantity := 0;
for var i := 0 to arr.Length - 1 do
begin
if (arr[i] > 9) and (arr[i] < 100) then
begin
inc(quantity);
end;
end;
write(quantity);
end.
Объяснение:
begin // Начало программы
var arr := ArrRandomInteger(5, 0, 1000); // Объявление массива размером 5 + заполнение массива случайными значениями из диапазона [0, 1000].
arr.Println; // Вывод массива
var quantity := 0; // Переменная, хранящая количество элементов, равна 0
for var i := 0 to arr.Length - 1 do // Идём от нуля до размера массива - 1
begin // Начало цикла
if (arr[i] > 9) and (arr[i] < 100) then // Если значение массива с индексом i > 9 И < 100, тогда
begin // Начало условного оператора
begin // Начало условного оператора
inc(quantity); // Увеличиваем значение переменной quantity на единицу
end; // Конец условного оператора
end; // Конец цикла
write(quantity); // Выводим ответ
end. // Конец программы