Кому порешать задачи - пишите сюда

A

AkeL.php

Guest



Остаётся дописать графику и управление с клавиатуры
 

PAIN

АнимешнеГ
Помогите решить, пожалуйста...
Язык: Maple
Задание: Підприємство може випускати 4 види продукції, що користується необмеженим попитом. Для виготовлення цих товарів використовується 3 види різної сировини. Крім того, задані можливі трудові ресурси (людино-годин). Числові дані наведені в таблицях 9-18. Необхідно визначити, яку кількість кожного з видів продукції повинно випускати підприємство, щоб прибуток від реалізації її був максимальним. При розв’язуванні задачі враховувати, що затрати сировини не повинні перевищувати її запасів. Визначити, як було використано кожен з видів сировини та трудові ресурси. Побудувати діаграму за запасами та залишками ресурсів. Записати математичну модель задачі, яка складається з цільової функції (прибуток), обмежень на сировину, трудові ресурси. Кількість продукції виражати в цілих одиницях.
Вариант на скрине
 
Останнє редагування:

Cooper

Никто кроме нас
Не могу написать программу
Язык: Паскаль
В прикрепленном файле условие
 

Вкладення

Glu4it

Member
Re: Turbo Pascal

помогите пжлста... Нада сделать прогу в граф.режиме:
На экран выводится таблица с числами(1,2,3,5,6,7,10,11,13,14,17,12). Вопрос:
Как сделать чтоб на экран выводилось максимальное число и мнимальное с помощью массива? лучше напишите код с коментами. заранее всем спс.
ЗЫ я начинающий(очень начинающий)
 

Тагрим

Поняшка
Re: Turbo Pascal

Задача:
На экран выводится таблица с числами(1,2,3,5,6,7,10,11,13,14,17,12). Как сделать чтоб на экран выводилось максимальное число и мнимальное с помощью массива?
Код:
Код:
uses crt; {подключаем модуль crt}
type a:array[1..12] of byte; {создаем массив из 12 переменных}
var i,max:byte; {декларируем i,max в небольшом промежутке}

begin
clrscr; {очистка экрана}
a[1]:='1';a[2]:='2';a[3]:='3';a[4]:='5';a[5]:='6';
a[6]:='7';a[7]:='10';a[8]:='11';a[9]:='13';a[10]:='14';
a[11]:='17';a[12]:='12'; {ну это типа задание переменных ^_^}

 max:=a[1]; {задаем начальное значение максимума первому числу}

for i:=1 to 12 do {начинаем цикл для 12 шагов (12 чисел массива)}
 begin {старт цикла}
 writeln('Текущее число: ', a[i]); {выводим текущее число из массива}
 if a[i]>max then {если a[i] (i-текущее занчение, a[i]-число с индексом i) больше максимального, тогда...}
 max:=a[i]; {...максимальное равно a[i]}
 end; {выход из цикла}

writeln('Максимальное значение равно: ',max); {выводим результат на экран}
end.
вроди бы так
 
Останнє редагування:

Glu4it

Member
там неправильно, но мне уже ненадо, сам сделал :)
 

Glu4it

Member
так есть новая задача. нужно сделать типа как заставку на комп, кароче объемный и цветной куб должен бегать (плавать, летать) ну кароче двигаться по экрану. вот собственно и все ...
 

Cris

Member
ну че тут делать та,
в паскале есть функция - 3dbar или bar3d ну или чтото подобное она рисует паралелипипед, передаеш ей одиноквые стороны и будет куб, чтоб его перемешать делаеш допустим 2 функции, в них передаеш данные которые использовал для построения, и одна будет его делать цветом как и фон - т.е. закрашивать, а вторая будет рисовать в новом месте, пихаеш в цикл и делаеш задержку delay(...) и все программа
 
Зверху