Реферат Розробка алгоритму стеження за витратою технічних мастил

i], '='); (stanok [i]);; ('Введення назв масел'); k: = 1 to m do (k, '-'); (mas [k]. name);

end; ("Введення витрати масел по стакнкам ');

for i: = 1 to n do ("Введення по ', name [i],': '); l: = 1 to stanok [i] do (l,' верстат '); [l]: = l; [l]: = 0; k: = 1 to m do ('Олія -', mas [k]. name); (# 9, 'плановий витрата:'); (masla [i , l, k]. plan); (# 9, 'фактичний витрата:'); (masla [i, l, k]. fakt);;;

writeln;; ("Введення кол-во на складі ПММ ');

for k: = 1 to m do (mas [k]. name, ':'); (mas [k]. sklad);;

writeln ('Введення вартість одиниці масла');

for k: = 1 to m do (mas [k]. name, ':'); (mas [k]. zena);;

{ЗАДАНІЕ1} i: = 1 to n dol: = 1 to stanok [i] dok: = 1 to m do [l]: = summa [l] + masla [i, l, k ]. fakt; summa [l]> max [1] then [1]: = summa [l]; [2]: = i; [3]: = l;; (summa [l]

readln;

{ЗАДАНІЕ2} ('Вид масла і його надлишок або нестача');

for k: = 1 to m doi: = 1 to n dol: = 1 to stanok [i] do: = rashod + masla [i, l, k]. fakt; rashod mas [k]. sklad then writeln (mas [k]. name, 'невистачає на складі');: = 0;

end;

readln;

{ЗАВДАННЯ 3} ('Список верстатів в порядку зменшення вартості витрати масел');

for i: = 1 to n do ('За', name [i], ':'); ('Верстат', # 9, 'ціна'); l: = 1 to stanok [i] dok: = 1 to m do [i, l]: = stoimost [i, l] + masla [i, l, k]. fakt * mas [k]. zena; l: = 1 to stanok [i ] dol1: = 1 to stanok [i] dostoimost [i, l]

2.3 Блок-схема

...