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|Пх9Fx≥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