Моделька экономики

#!/usr/bin/perl
#plan_10.pl

$Краткое_описание = '
10 министерств(переделов) по 9 заводов в каждом
заводы на переделе добавляют по 5 единиц стоимости при полных поставках сырья/комплектующих/полуфабрикатов
При неполных - определяется по минимальной комплектации и поставляют по 1/10 заводам следующего министерства

Министерство 0 - добыча полезных ископаемых
министерства 10, 20, 30, 40, 50, 60, 70, 80, 90 - обрабатывающие предприятия
ВВП - сумма по всем заводам
Налоги изображает НДС' ;

( Read more... )

_____________________________________________________________

Эпикриз и обсуждение тут
https://new-rabochy.livejournal.com/736367.html?mode=reply#add_comment

Скачайте здесь

https://yadi.sk/d/AhcdKACg3U1z7A
архив (код программы, рассуждения, препроцессор), распакуйте и запускайте модельку командой

perl rupl2pl.pl plan_10.rupl > tmp.pl ; perl tmp.pl | iconv -f KOI8-R -t UTF-8

Перепил водички ?

( перепостил burckina_faso )