Lord_BSS project:
ПМК-прг: Диспетчер-2
Ретро-программы для ретро-ЭВМ: самые первые игры!
●  Новости
●  Анонс
●  Карта сайта

Проекты:

Тематические
●  =Ад=
●  =Морг=
●  =Армия=
●  =Погост=
●  =Пещера=
●  =Балныц=
●  =Сеновал=
●  =Bar Wars=
●  =Ночлежка=
●  =Монастырь=
●  =Новая сказка=
●  =Мать героина=
●  =Голубой вагон=
●  =Убой на местах=
●  =Хижина д. Васи=

Полутематическиe
●  =Казино=
●  =Бардак=

ПоКлёпы
   Real-раздел
●  Кукулер
●  Зарница
●  Реклама BenQ
   Lit-раздел
●  Притчи
●  Алфавит
●  Анти-Гарри Поттер

ПоЖизненные
   Maf-раздел
●  Первые маф-шаги
●  Первый темат
●  Первая своя игра
●  Маф-слэнг
●  More al-$
●  Румафия
●  Ранние тематы
●  Правила маф-чата
●  Мемуары
●  Маф-непонятки
   Real-раздел
●  Наглядки
●  Эх, Общага!
●  Whois Lord_BSS

ПоПутные
●  ПоСcылки
●  mp3: ППЗ
●  ПМК программы
     · ПМК: история
     · ПМК: помощь
     · Космопол
     · Каратэ-М
     · Клинги-2M2
     · Тетрис
     · Футбол
     · Swamp
     · Toti
     · Погоня в лесу
     · Диспетчер-2
     · I.C.P.

СвязЬное звено
●  LiveJournal
●  Мыло

Диспетчер-2 — Александр Михолап


[игровая программа для МК-52, МК-61]
#|00010203040506070809
00|/–/Пх5+K[х]хП5F√В/ОПх4В↑Ксч
10|хП41F10xxK[х]Kx≠oAхП6В/ОхП0Пх3
20|хП1КППАхП2FBxK{x}3x4+K[х]
30|Пх4↔КППСПх2Пх0Пх1С/ПFx≠o59Kx≥oE
40|хП6ПхАхКПП9Пх6Пх3+хП3КБП8Пх6
50|Пх9–Fx≥oКБПВхП6ПхЕхПВПх9БПFL0
60|21КБПДПх6Пх2хПх8хF√хП4ПП
70|012Пх4Пх2Fx2КПП7Пх4ПхД–Fx<o
80|82КПх3FL153ПхСПх6Пх2КПП7Пх3КПП7
90|С/П21хПВFL062КБПДхF√х
A0|хП4КПП9ПхСПх5В/О     
Регистры:
1323 (или 1423) хП8; 5000 (грузоподъёмность одной машины) хП9; 884 (зарплата водителя) хПД; аренда одной машины (10007 или 15007) хП5; 50000 (деньги) хПА; 3 (кол-во водителей) хП3; 49 хПЕ; 97 хП7; 12 хПС; число от 0 до 1 хП4.

Это римейк игровой программы Диспетчер.

Вы арендуете у КамАЗа помещения, гаражи, стоянку, АЗС и несколько грузовиков. Затем нанимаете на работу водителей высокой категории (зарплата от 800$ за рейс). Ваша задача: правильно распределить машины по заказам предприятий, кооперативов, фирм и магазинов. После каждого контракта/заказа КамАЗу отчисляется определённый процент за аренду. Этот процент колеблется от 40.4 до 80.2, причём чем больше Ваш доход, тем он выше.

В конце дня высчитываются государственные налоги, размер которых зависит от состояния автохозяйства. При найме водителя надо купить новую машину, выплатив, однако, всего 20% (если RA=10007) или 35% (при RA=15007) от её истинной стоимости (скидка Вам предоставлена как арендатору). Полная же стоимость машины - 50000$.

Если Вы заключаете контракт, но не можете перевезти весь груз, Вам придётся платить неустойку (зависящую от кол-ва перевезённого груза и тарифа на него. Если заказ очень срочный [тариф высок] - неустойка может достигать 30 тысяч долларов).
Но, если остаток перевезённого груза мал, неустойка может быть гораздо ниже полученной по контракту прибыли, иногда это даже выгоднее, чем перевезти весь груз.

Ξ   БП 18. Кол-во заказчиков (от 1 до 15), С/П.

¥   RX="номер машины, готовой к отъезду". F "номер заказчика" F "тариф на груз, $/т" F "кол-во груза, т".

  1. 1 /-/ С/П. - Заключаем контракт. Начинается отправка машин, это делает ПМК. Машины отправляются до тех пор, пока:
    – либо не кончатся машины: RX="деньги с прибылью за день"
       ⇒ Ξ.
    – либо не кончится груз ⇒ ¥.
  2. 0 C/П. - Не заключаем контракт. Появляется другой заказчик
    ⇒ ¥.
  3. X C/П. - Арендуем ещё X машин по цене RA. При этом тариф на груз не меняется, но изменяется его кол-во. Только что купленные машины могут отправиться в рейс лишь на следующий день. ⇒ ¥.

Водитель может по своей воле уйти от Вас - в этом случае Вы обязаны вернуть машину КамАЗу (это делается автоматически) безвозмездно.


Про прг и автора.
* Программа написана в 1991-м году.
* Местожительство автора - г. Тула.

Вернуться на главную страницу ПМК-проекта к ПОЛНОМУ списку прг-м ВСЕХ авторов.
Если у Вас возникли какие-либо проблемы с вводом прг - прочтите краткую справку.
Линки на эмуляторы ПМК и другие ретро-ресурсы можно взять здесь.

MAFIA's Top100 Яндекс.Метрика Top.Mail.Ru