Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатика
ИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханика
ОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторика
СоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансы
ХимияЧерчениеЭкологияЭкономикаЭлектроника

Implementation 4 страница

Читайте также:
  1. Contents 1 страница
  2. Contents 10 страница
  3. Contents 11 страница
  4. Contents 12 страница
  5. Contents 13 страница
  6. Contents 14 страница
  7. Contents 15 страница

k:= 62; g:= 86; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 64; g:= 89; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 69; g:= 95; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

end;

{________2) Считаем значения, которые опираются на вышерасчитанные переменные:_}

for i:= 1 to 3 do

Begin

// АКТИВ

{1} z[v1_1, i]:= v[ 1, i] + v[ 2, i] + v[ 3, i] + v[ 4, i];

z[v1_2, i]:= v[ 5, i] + v[ 6, i] + v[ 7, i];

z[v1_3, i]:= v[ 8, i] + v[ 9, i];

z[v1_4, i]:= v[10, i] + v[11, i] + v[12, i] + v[13, i] + v[14, i];

z[v1, i]:= z[v1_1, i] + z[v1_2, i] + z[v1_3, i] + z[v1_4, i];

{2} z[v2_3_1, i]:= v[20, i] + v[21, i];

z[v2_1, i]:= v[15, i] + v[16, i] + v[17, i] + v[18, i];

z[v2_3, i]:= z[v2_3_1, i] + v[22, i] + v[23, i] + v[24, i] + v[25, i] + v[26, i];

z[v2_4, i]:= v[27, i] + v[28, i] + v[29, i];

z[v2_5, i]:= v[30, i] + v[31, i] + v[32, i];

z[v2, i]:= z[v2_1, i] + v[19, i] + z[v2_3, i] + z[v2_4, i] + z[v2_5, i];

{I} z[vI, i]:= z[v1, i] + z[v2, i];

// РАСКРЫТИЕ ИНФОРМАЦИИ О ДОХОДАХ, РАСХОДАХ ПРИБЫЛИ ПРЕДПРИЯТИЯ

{9} z[v9, i]:= v[60, i] - v[61, i];

{12} z[v12, i]:= z[v9, i] - v[62, i] - v[63, i];

{18} z[v18, i]:= z[v12, i] + v[64, i] - v[65, i] + v[66, i] + v[67, i] - v[68, i];

{20} z[v20, i]:= z[v18, i] - v[69, i];

end;

{________3) Считаем переменные-буквы:__________________________________________}

for i:= 1 to 3 do

Begin

b[SA, i]:= z[vI, i];

b[Vpr, i]:= v[60, i];

b[CHPr, i]:= z[v20, i];

end;

Form12.Show;

end;

end;

// 6) Деловая активность

procedure TForm4.Action11Execute(Sender: TObject);

Var

i, k, g: Byte;

Begin

knop:= 6; // определяем, что для данного алгоритма нужно выполнять 1ую проверку

Proverka; // вызываем процедуру проверки ячеек таблицы

if prov = True then // если всё хорошо, то можно выполнять алгоритм

Begin

{________1) Читаем все заполняемые пользователем переменные из таблицы:________}

// i - № периода и столбца, k - № элемента в массиве, g - № строчки

for i:= 1 to 3 do

Begin

k:= 1; g:= 4; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 5; g:= 9; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 8; g:= 13; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 10; g:= 16; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 15; g:= 23; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 20; g:= 30; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 27; g:= 38; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 30; g:= 42; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 33; g:= 47; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 35; g:= 50; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 37; g:= 55; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 40; g:= 60; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 42; g:= 63; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 58; g:= 80; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 60; g:= 83; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 62; g:= 86; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

end;

{________2) Считаем значения, которые опираются на выше рассчитанные переменные:_}

for i:= 1 to 3 do

Begin

// АКТИВ

{1} z[v1_1, i]:= v[ 1, i] + v[ 2, i] + v[ 3, i] + v[ 4, i];

z[v1_2, i]:= v[ 5, i] + v[ 6, i] + v[ 7, i];

z[v1_3, i]:= v[ 8, i] + v[ 9, i];

z[v1_4, i]:= v[10, i] + v[11, i] + v[12, i] + v[13, i] + v[14, i];

z[v1, i]:= z[v1_1, i] + z[v1_2, i] + z[v1_3, i] + z[v1_4, i];

{2} z[v2_3_1, i]:= v[20, i] + v[21, i];

z[v2_1, i]:= v[15, i] + v[16, i] + v[17, i] + v[18, i];

z[v2_3, i]:= z[v2_3_1, i] + v[22, i] + v[23, i] + v[24, i] + v[25, i] + v[26, i];

z[v2_4, i]:= v[27, i] + v[28, i] + v[29, i];

z[v2_5, i]:= v[30, i] + v[31, i] + v[32, i];

z[v2, i]:= z[v2_1, i] + v[19, i] + z[v2_3, i] + z[v2_4, i] + z[v2_5, i];

{I} z[vI, i]:= z[v1, i] + z[v2, i];

// ПАССИВ

{4} z[v4_1, i]:= v[37, i] + v[38, i];

z[v4, i]:= z[v4_1, i] + v[39, i];

{5} z[v5_1, i]:= v[40, i] + v[41, i];

z[v5_2, i]:= v[42, i] + v[43, i] + v[44, i] + v[45, i] + v[46, i] + v[47, i] +

v[48, i] + v[49, i];

z[v5, i]:= z[v5_1, i] + z[v5_2, i] + v[50, i] + v[51, i];

{3} z[v3_3, i]:= v[35, i] + v[36, i];

z[v3_4, i]:= z[vI, i] - v[33, i] - v[34, i] - z[v3_3, i] - z[v4, i] - z[v5, i];

z[v3, i]:= v[33, i] + v[34, i] + z[v3_3, i] + z[v3_4, i];

// РАСКРЫТИЕ ИНФОРМАЦИИ О ДОХОДАХ, РАСХОДАХ ПРИБЫЛИ ПРЕДПРИЯТИЯ

{9} z[v9, i]:= v[60, i] - v[61, i];

{12} z[v12, i]:= z[v9, i] - v[62, i] - v[63, i];

end;

{________3) Считаем переменные-буквы:__________________________________________}

for i:= 1 to 3 do

Begin

b[Vpr, i]:= v[60, i];

_DZ:= (z[v2_3, 2] + z[v2_3, 1]) / 2;

_OA:= (z[v2, 2] + z[v2, 1]) / 2;

b[Ppr, i]:= z[v12, i];

b[SS, i]:= z[v3, i] + v[50, i] + v[51, i];

b[FK, i]:= b[SS, i] + z[v4, i];

_OS:= (z[v1_2, 2] + z[v1_2, 1]) / 2;

b[CHP, i]:= v[58, i];

_SA:= (z[vI, 2] + z[vI, 1]) / 2;

_VOA:= (z[v1, 2] + z[v1, 1]) / 2;

_MZ:= (v[15, 2] + v[15, 1]) / 2;

b[SRT, i]:= v[61, i];

_Z:= (z[v2_1, 2] + z[v2_1, 1]) / 2;

b[GP, i]:= v[17, i];

_KZ:= (z[v5, 2] + z[v5, 1]) / 2;

_KiR:= (z[v3, 2] + z[v3, 1]) / 2;

_FK:= (b[FK, 2] + b[FK, 1]) / 2;

end;

Form13.Show;

end;

end;

// 7) Фин-хоз. деятельность

procedure TForm4.Action12Execute(Sender: TObject);

Var

i, k, g: Byte;

Begin

knop:= 7; // определяем, что для данного алгоритма нужно выполнять 1ую проверку

Proverka; // вызываем процедуру проверки ячеек таблицы

if prov = True then // если всё хорошо, то можно выполнять алгоритм

Begin

v0:= StrToFloat(Form4.Edit1.Text);

{________1) Читаем все заполняемые пользователем переменные из таблицы:________}

// i - № периода и столбца, k - № элемента в массиве, g - № строчки

for i:= 1 to 3 do

Begin

k:= 1; g:= 4; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 5; g:= 9; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 8; g:= 13; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 10; g:= 16; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 15; g:= 23; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 20; g:= 30; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 27; g:= 38; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 30; g:= 42; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 33; g:= 47; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 35; g:= 50; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 37; g:= 55; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 40; g:= 60; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 42; g:= 63; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 54; g:= 76; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 60; g:= 83; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 64; g:= 89; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 66; g:= 91; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

end;

{________2) Считаем значения, которые опираются на выше рассчитанные переменные:_}

for i:= 1 to 3 do

Begin

// АКТИВ

{1} z[v1_1, i]:= v[ 1, i] + v[ 2, i] + v[ 3, i] + v[ 4, i];

z[v1_2, i]:= v[ 5, i] + v[ 6, i] + v[ 7, i];

z[v1_3, i]:= v[ 8, i] + v[ 9, i];

z[v1_4, i]:= v[10, i] + v[11, i] + v[12, i] + v[13, i] + v[14, i];

z[v1, i]:= z[v1_1, i] + z[v1_2, i] + z[v1_3, i] + z[v1_4, i];

{2} z[v2_3_1, i]:= v[20, i] + v[21, i];

z[v2_1, i]:= v[15, i] + v[16, i] + v[17, i] + v[18, i];

z[v2_3, i]:= z[v2_3_1, i] + v[22, i] + v[23, i] + v[24, i] + v[25, i] + v[26, i];

z[v2_4, i]:= v[27, i] + v[28, i] + v[29, i];

z[v2_5, i]:= v[30, i] + v[31, i] + v[32, i];

z[v2, i]:= z[v2_1, i] + v[19, i] + z[v2_3, i] + z[v2_4, i] + z[v2_5, i];

{I} z[vI, i]:= z[v1, i] + z[v2, i];

// ПАССИВ

{4} z[v4_1, i]:= v[37, i] + v[38, i];

z[v4, i]:= z[v4_1, i] + v[39, i];

{5} z[v5_1, i]:= v[40, i] + v[41, i];

z[v5_2, i]:= v[42, i] + v[43, i] + v[44, i] + v[45, i] + v[46, i] + v[47, i] +

v[48, i] + v[49, i];

z[v5, i]:= z[v5_1, i] + z[v5_2, i] + v[50, i] + v[51, i];

{3} z[v3_3, i]:= v[35, i] + v[36, i];

z[v3_4, i]:= z[vI, i] - v[33, i] - v[34, i] - z[v3_3, i] - z[v4, i] - z[v5, i];

z[v3, i]:= v[33, i] + v[34, i] + z[v3_3, i] + z[v3_4, i];

end;

{________3) Считаем переменные-буквы:__________________________________________}

for i:= 1 to 3 do

Begin

b[SA, i]:= z[vI, i];

b[OA, i]:= z[v2, i];

b[LA, i]:= b[NLOA, i] + b[KDZ, i];

b[NLOA, i]:= z[v2_4, i] - v[28, i] + z[v2_5, i];

b[KDZ, i]:= z[v2_3, i] - v[21, i] - v[24, i];

b[SS, i]:= z[v3, i] + v[50, i] + v[51, i];

b[OD, i]:= z[v4, i] + z[v5, i] - v[50, i] - v[51, i];

b[TKO, i]:= z[v5_1, i] + z[v5_2, i];

b[Vpr, i]:= v[60, i];

b[CHPr, i]:= z[v20, i];

b[SVA, i]:= z[v1, i] - v[52, i] - v[53, i];

b[VN, i]:= v[59, i];

b[Vsr, i]:= v[60, i] / v0;

b[D, i]:= v[60, i] + v[64, i] + v[66, i] + v[67, i];

b[POAV, i]:= v[54, i] + v[55, i];

end;

Form15.Show;

end;

end;

// 8) Эффективность деятельности

procedure TForm4.Action13Execute(Sender: TObject);

Var

i, k, g: Byte;

Begin

knop:= 8; // определяем, что для данного алгоритма нужно выполнять 1ую проверку

Proverka; // вызываем процедуру проверки ячеек таблицы

if prov = True then // если всё хорошо, то можно выполнять алгоритм

Begin

{________1) Читаем все заполняемые пользователем переменные из таблицы:________}

// i - № периода и столбца, k - № элемента в массиве, g - № строчки

for i:= 1 to 3 do begin

k:= 1; g:= 4; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 5; g:= 9; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 8; g:= 13; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 10; g:= 16; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 15; g:= 23; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 20; g:= 30; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 27; g:= 38; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 30; g:= 42; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 33; g:= 47; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 35; g:= 50; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 37; g:= 55; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 40; g:= 60; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 42; g:= 63; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 52; g:= 74; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 57; g:= 79; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 60; g:= 83; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 62; g:= 86; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 64; g:= 89; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 69; g:= 95; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

end;

{________2) Считаем значения, которые опираются на выше рассчитанные переменные:_}

for i:= 1 to 3 do

Begin

// АКТИВ

{1} z[v1_1, i]:= v[ 1, i] + v[ 2, i] + v[ 3, i] + v[ 4, i];

z[v1_2, i]:= v[ 5, i] + v[ 6, i] + v[ 7, i];

z[v1_3, i]:= v[ 8, i] + v[ 9, i];

z[v1_4, i]:= v[10, i] + v[11, i] + v[12, i] + v[13, i] + v[14, i];

z[v1, i]:= z[v1_1, i] + z[v1_2, i] + z[v1_3, i] + z[v1_4, i];

{2} z[v2_3_1, i]:= v[20, i] + v[21, i];

z[v2_1, i]:= v[15, i] + v[16, i] + v[17, i] + v[18, i];

z[v2_3, i]:= z[v2_3_1, i] + v[22, i] + v[23, i] + v[24, i] + v[25, i] + v[26, i];

z[v2_4, i]:= v[27, i] + v[28, i] + v[29, i];

z[v2_5, i]:= v[30, i] + v[31, i] + v[32, i];

z[v2, i]:= z[v2_1, i] + v[19, i] + z[v2_3, i] + z[v2_4, i] + z[v2_5, i];

{I} z[vI, i]:= z[v1, i] + z[v2, i];

// ПАССИВ

{4} z[v4_1, i]:= v[37, i] + v[38, i];

z[v4, i]:= z[v4_1, i] + v[39, i];

{5} z[v5_1, i]:= v[40, i] + v[41, i];

z[v5_2, i]:= v[42, i] + v[43, i] + v[44, i] + v[45, i] + v[46, i] + v[47, i] +

v[48, i] + v[49, i];

z[v5, i]:= z[v5_1, i] + z[v5_2, i] + v[50, i] + v[51, i];

{3} z[v3_3, i]:= v[35, i] + v[36, i];

z[v3_4, i]:= z[vI, i] - v[33, i] - v[34, i] - z[v3_3, i] - z[v4, i] - z[v5, i];

z[v3, i]:= v[33, i] + v[34, i] + z[v3_3, i] + z[v3_4, i];

// РАСКРЫТИЕ ИНФОРМАЦИИ О ДОХОДАХ, РАСХОДАХ ПРИБЫЛИ ПРЕДПРИЯТИЯ

{9} z[v9, i]:= v[60, i] - v[61, i];

{12} z[v12, i]:= z[v9, i] - v[62, i] - v[63, i];

{18} z[v18, i]:= z[v12, i] + v[64, i] - v[65, i] + v[66, i] + v[67, i] - v[68, i];

{20} z[v20, i]:= z[v18, i] - v[69, i];

end;

{________3) Считаем переменные-буквы:__________________________________________}

for i:= 1 to 3 do

Begin

b[SA, i]:= z[vI, i];

b[OA, i]:= z[v2, i];

b[KDZ, i]:= z[v2_3, i] - v[21, i] - v[24, i];

b[NLOA, i]:= z[v2_4, i] - v[28, i] + z[v2_5, i];

b[LA, i]:= b[NLOA, i] + b[KDZ, i];

b[SS, i]:= z[v3, i] + v[50, i] + v[51, i];

b[OD, i]:= z[v4, i] + z[v5, i] - v[50, i] - v[51, i];

b[TKO, i]:= z[v5_1, i] + z[v5_2, i];

b[Vpr, i]:= v[60, i];

b[OA, i]:= z[v2, i];

b[CHPr, i]:= z[v20, i];

b[SVA, i]:= z[v1, i] - v[52, i] - v[53, i];

b[D, i]:= v[60, i] + v[64, i] + v[66, i] + v[67, i];

b[POAV, i]:= v[54, i] + v[55, i];

b[DZ, i]:= z[v2_3, i];

b[PKZ, i]:= v[57, i];

b[NPr, i]:= z[v3_4, i];

end;

Form16.Show;

end;

end;

// 9) Показатели по методике У. Бивера

procedure TForm4.Action14Execute(Sender: TObject);

Var

i, k, g: Byte;

Begin

knop:= 9; // определяем, что для данного алгоритма нужно выполнять 1ую проверку

Proverka; // вызываем процедуру проверки ячеек таблицы

if prov = True then // если всё хорошо, то можно выполнять алгоритм

Begin

{________1) Читаем все заполняемые пользователем переменные из таблицы:________}

// i - № периода и столбца, k - № элемента в массиве, g - № строчки

for i:= 1 to 3 do

Begin

k:= 1; g:= 4; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 5; g:= 9; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 8; g:= 13; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 10; g:= 16; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 15; g:= 23; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 20; g:= 30; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 27; g:= 38; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 30; g:= 42; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 33; g:= 47; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 35; g:= 50; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 37; g:= 55; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 40; g:= 60; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

k:= 42; g:= 63; v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);

inc(k); inc(g); v[k, i]:= StrToFloat(StringGrid1.Cells[i, g]);


Дата добавления: 2015-10-13; просмотров: 85 | Нарушение авторских прав


Читайте в этой же книге: СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ | Private | Implementation | Interface | Interface | Interface | Implementation 1 страница | Implementation 2 страница | Interface | Interface |
<== предыдущая страница | следующая страница ==>
Implementation 3 страница| Else begin

mybiblioteka.su - 2015-2024 год. (0.057 сек.)