Разработка алгоритма и программного продукта по управлению запасами склада

Автор работы: Пользователь скрыл имя, 17 Февраля 2012 в 23:52, курсовая работа

Краткое описание

Разработка алгоритма решения задачи по перевозке грузов, создания и поддержания требуемого уровня запасов товаров и реализовать их в виде программного продукта.

Содержание работы

1. Введение 3
2. Постановка задачи исследования 4
2.1. Оперативная постановка задачи 4
2.2. Анализ исходных данных 4
3. Блок-схема алгоритма 10
4. Программа и контрольный вариант решения 15
4.1. Программа решения задачи 15
4.2. Контрольный вариант решения задачи 28
4.3. Схема расположения груза в оптимальном способе доставке 33
4.4. Исследование зависимостей на товары 34
5. Заключение 35
6. Библиографический список 36

Скачать целиком (162.87 Кб) Сколько стоит заказать работу?

Содержимое работы - 1 файл

Курсовик.doc

— 591.50 Кб (Скачать файл)

Блок-схема алгоритма

Программа и контрольный вариант решения

Программа решения задачи

program OOP;

Uses crt;

const

Tgod=365; {Dnei v godu}

Trab=365; {Chislo rabochih dnei v godu}

var

S, {ploshad sklada}

AP :longint; {arendnaya plata}

P, {procent izmeneniya ceni tovara po zakupke}

i, {peremennaya}

l, {rasstoyanie perevozki}

Ln, {rasstoyanie ot sklada do zh/d}

Lk, {rasstoyanie ot sklada postavschika}

NOM :integer; {Vibor nomera goroda}

K, {koefficient ispolzovaniya skladskih ploshadei}

J, {summa intensivnosti sprosa i stoimost' hraneniy}

PR, {summa razmerov i intensivnosti sprosa}

Zzak, {zatrati po zakupke tovarov u postavschika}

Vig, {vigodnii variant dostavki cena}

Vig2, {2 vigodnii variant dostavki cena}

Hran, {Hranenie}

Dost, {Dostavka}

Pop, {Popolnenie za period(10 sutok)}

Post, {Postavka za god}

Log, {Logisticheskie izderjki za 10 dnei}

LogS, {Logisticheskie izderjki za 1 den}

Plos, {Potrebnaya ploschad v skladskom pomeschenii}

Otn: real; {dolya zatrat na podderjanie zapasov}

TipVV,TipV: string; {Tip transportnogo sredstva}

xa,xb,xc,Y,G,Hhr,U:array[1..4] of real; {dlina,shirina,visota yaschikov,

intensivnost sprosa,

vmestimost sklada,

stoimost' hranenia,

kolichestvo yarusov,

cena edinici tovara po zakupke u postavschika}

Tip: array[1..5] of string; {Tip transportnogo sredstva}

f:array[4..5] of integer; {tarif 20' konteynera,

tarif 40' konteynera}

EP,YA: array[1..4] of integer; {edinica postavki,

yarusi}

x1,x2,x3,x4: array[1..19] of integer; {stoimost zh/d konteynernoy perevozki}

a,b,h: array[1..5] of real; {transportnie sredstva}

c: array[1..7] of real; {stoimost avto perevozki konteinerom}

Ks,Topt,Tg,T: array[1..5] of real; {stoimost dostavki gruza avto,

optimal'noe znachenie perioda popolnenia zapasov,

period popolneniya zapasov ishodya iz gruzovmestimosti TS,

Optimalniy period popolneniy zapasov ishodya iz Topt - Tg}

Z,Zdoc,Zhr: array[1..5] of real; {summarnie zatrati,

zatrati po dostavke tovarov na sklad,

zatrati po hraneniy tovara}

ZAP,pos,hr,Sum: array[1..10] of real; {Zapasi(sutochnay vidacha),

Postavka,hranenie,summa}

Ob: array[1..4] of real; {Obem postavki 1-4 tipa tovara}

begin ClrScr;

writeln('vvedite ploshad sklada ='); read(S);

writeln('vvedite arendnaya plata ='); read(AP);

writeln('vvedite koefficient ispolzovaniya skladskih ploshadei ='); read(K);

writeln('vvedite procent izmeneniya ceni tovara po zakupke ='); read(P);

for i:=1 to 4 do

begin

writeln('vvedite dlinu ',i,' yaschika ='); read(xa[i]);

writeln('vvedite shirinu ',i,' yaschika ='); read(xb[i]);

writeln('vvedite visotu ',i,' yaschika ='); read(xc[i]);

writeln('vvedite cena edinici tovara ',i,' yaschika ='); read(U[i]);

writeln('vvedite intensivnost sprosa ',i,' yaschika ='); read(Y[i]);

U[i]:=U[i]*((1)+((P)/(100)));

end;

for i:=1 to 4 do

repeat

writeln('esli ',i,' edinica postavki - yaschik to vvedite 1, esli - palleta to 0');

readln(EP[i]);

until EP[i] in [0..1];

for i:=1 to 4 do

if EP[i]=1 then

begin

writeln(i,' yaschik. Esli cetnoe cislo - 4 yarusa, necetnor - 5 yarusov');

readln(YA[i]);

if odd(YA[i]) then YA[i]:=5 else YA[i]:=4;

end

else YA[i]:=2;

for i:=1 to 4 do

writeln(i,' edinica postavki = ',YA[i],' yarusov');

begin ClrScr;

writeln('Goroda:');

writeln('0 - Sankt-Petergurg - Murmansk');

writeln('1 - Sankt-Petergurg - Arhangelsk');

writeln('2 - Sankt-Petergurg - Astrahan');

writeln('3 - Sankt-Petergurg - Samara');

writeln('4 - Sankt-Petergurg - Saratov');

writeln('5 - Sankt-Petergurg - Krasnodar');

writeln('6 - Sankt-Petergurg - Ekaterenburg');

writeln('7 - Sankt-Petergurg - Volgograd');

writeln('8 - Sankt-Petergurg - Novorossiysk');

writeln('9 - Sankt-Petergurg - Yaroslavl');

writeln('10 - Svoi gorod');

repeat

writeln;

writeln('Vvedite nomer goroda');readln(NOM);

until NOM in [0..10];

if NOM=0 then begin l:=1000;Ln:=50;Lk:=20;

writeln('Vi vibrali gorod Murmansk. Rasstoyanie do goroda = ',l,'km');