ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:

Блок-схема підпрограми PodNap на рисунку 4.2

⇐ Предыдущая 1 2 3 456 7 8 9 Следующая ⇒

Начало

Ввод RastC, SoprR, SoprK, Rast

Связывание логических и физических файлов FTokA c RezPodA.dat; FDelU c DelUp.dat; FDelP c RezDelP.dat; FTokP1 c TokPoez1.dat; FTokP2 c TokPoez2.dat; FTokP3 c TokPoez3.dat; FTokP4 c TokPoez4.dat; FTokP5 c TokPoez5.dat; FTokP6 c TokPoez6.dat; FTokP7 c TokPoez7.dat; ContIsp.dat c FCon

Открытие файлов FTokP1, FTokP2, FTokP3, FTokP4, FTokP5, FTokP6, FTokP7 на чтение

Открытие файлов FTokA, FDelU, FDelP на перезапись

EOP(FTokP7)

Чтение Vrem,TokP1,RastP1, TokP2,RastP2, TokP3,RastP3, TokP4,RastP4, TokP5,RastP5, TokP6,RastP6, TokP7,RastP7.

RastP1<RastC

Tok11B1:=TokP1*(RastP1-RastC)/(Rast-RastC) Tok11C1:= TokP1*(Rast-RastP1)/(Rast-RastC) Tok11A1:=0

Tok11A1:=TokP1*(RastC-RastP1)/RastC Tok11C1:=TokP1*RastP1/RastC Tok11B1:=0

RastP2<RastC

RastP3<RastC

Tok12B1:=TokP2*(RastP2-RastC)/(Rast-RastC) Tok12C1:= TokP2*(Rast-RastP2)/(Rast-RastC) Tok12A1:=0

Tok12A1:=TokP2*(RastC-RastP2)/RastC Tok12C1:=TokP2*RastP2/RastC Tok12B1:=0

Tok13A1:=TokP3*(RastC-RastP3)/RastC Tok13C1:=TokP3*RastP3/RastC Tok13B1:=0

Tok13B1:=TokP3*(RastP3-RastC)/(Rast-RastC) Tok13C1:= TokP3*(Rast-RastP3)/(Rast-RastC) Tok13A1:=0

да

нет

да

нет

да

нет

да

нет

Рисунок 4.2 – Блок-схема програми PodNap

RastP4<RastC

RastP5<RastC

RastP6<RastC

RastP7<RastC

TokC, TokCA1, TokCA2, TokCB1, TokCB2, TokA1, TokA2, TokB1, TokB2, TokC1C2, TokC2C1

RastP1≤0 RastP1≥20000

RastP1<RastC

DelUk11:=0

DelUk11:=SoprK*(RastP1*(TokP1+ +TokC1C2-TokB1)+RastP2*TokP2+ +RastP3*TokP3+RastP4*TokP4)

Tok14B1:=TokP4*(RastP4-RastC)/(Rast-RastC) Tok14C1:= TokP4*(Rast-RastP4)/(Rast-RastC) Tok14A1:=0

Tok25B2:=TokP5*(RastP5-RastC)/(Rast-RastC) Tok25C2:= TokP5*(Rast-RastP5)/(Rast-RastC) Tok25A2:=0

Tok26B2:=TokP6*(RastP6-RastC)/(Rast-RastC) Tok26C2:= TokP6*(Rast-RastP6)/(Rast-RastC) Tok26A2:=0

Tok27B2:=TokP7*(RastP7-RastC)/(Rast-RastC) Tok27C2:= TokP7*(Rast-RastP7)/(Rast-RastC) Tok27A2:=0

Tok14A1:=TokP4*(RastC-RastP4)/RastC Tok14C1:=TokP4*RastP4/RastC Tok14B1:=0

Tok25A2:=TokP5*(RastC-RastP5)/RastC Tok25C2:=TokP5*RastP5/RastC Tok25B2:=0

Tok26A2:=TokP6*(RastC-RastP6)/RastC Tok26C2:=TokP6*RastP6/RastC Tok26B2:=0

Tok27A2:=TokP7*(RastC-RastP7)/RastC Tok27C2:=TokP7*RastP7/RastC Tok27B2:=0

DelUk11:=SoprK*(RastP1*(TokP1- -TokB1)+RastC*TokC1C2+RastP2*TokP2+ +RastP3*TokP3+RastP4*TokP4)

да

нет

да

нет

да

нет

да

нет

да

нет

да

нет

Продовження рисунку 4.2

RastP2≤0 RastP2≥20000

RastP2<RastC

DelUk12:=0

DelUk12:=SoprK*(RastP2*(TokP2+ +TokP1+TokC1C2-TokB1)+ +RastP3*TokP3+RastP4*TokP4)

DelUk12:=SoprK*(RastP2*(TokP2+TokP1- -TokB1)+RastC*TokC1C2+ +RastP3*TokP3+RastP4*TokP4)

да

нет

да

нет

RastP3≤0 RastP3≥20000

RastP3<RastC

DelUk13:=0

DelUk13:=SoprK*(RastP3*(TokP3+ +TokP2+TokP1+TokC1C2-TokB1)+ +RastP4*TokP4)

DelUk13:=SoprK*(RastP3*(TokP3+ +TokP2+TokP1-TokB1)+RastC*TokC1C2+ +RastP4*TokP4)

да

нет

да

нет

RastP4≤0 RastP4≥20000

RastP4<RastC

DelUk14:=0

DelUk14:=SoprK*(RastP4*(TokP4+ +TokP3+TokP2+TokP1+TokC1C2-TokB1))

DelUk14:=SoprK*(RastP4*(TokP4+TokP3+ +TokP2+TokP1-TokB1)+RastC*TokC1C2)

да

нет

да

нет

Продовження рисунку 4.2

RastP5≤0 RastP5≥20000

RastP5<RastC

DelUk25:=0

DelUk25:=SoprK*(RastP5*(TokP5+ +TokP6+ TokP7+TokC1C2-TokB2))

DelUk25:=SoprK*(RastP5*(TokP5+TokP6++TokP7-TokB2)+RastC*TokC2C1)

да

нет

да

нет

RastP6≤0 RastP6≥20000

RastP6<RastC

DelUk26:=0

DelUk26:=SoprK*(RastP6*(TokP6+ +TokP7+TokC1C2-TokB2)+ +RastP5*TokP5)

DelUk26:=SoprK*(RastP6*(TokP6+TokP7- -TokB2)+RastC*TokC2C1+RastP5*TokP5)

да

нет

да

нет

RastP7≤0 RastP7≥20000

RastP7<RastC

DelUk27:=0

DelUk27:=SoprK*(RastP7*(TokP7+ +TokC1C2-TokB2)+RastP6*TokP6+ +RastP5*TokP5)

DelUk27:=SoprK*(RastP7*(TokP7- -TokB2)+RastC*TokC2C1+ +RastP6*TokP6+RastP5*TokP5)

да

нет

да

нет

Продовження рисунку 4.2

RastP1≤0 RastP1≥20000

DelUR11:=0

DelUR11:=SoprR*(RastP1*(TokP1- -TokB1)+RastP2*TokP2+RastP3*TokP3+ +RastP4*TokP4)

RastP2≤0 RastP2≥20000

DelUR12:=0

DelUR12:=SoprR*(RastP2*(TokP2+ +TokP1-TokB1)+RastP3*TokP3+ +RastP4*TokP4)

RastP3≤0 RastP3≥20000

DelUR13:=0

DelUR13:=SoprR*(RastP3*(TokP3+ +TokP2+TokP1-TokB1)+ +RastP4*TokP4)

RastP4≤0 RastP4≥20000

DelUR14:=0

DelUR14:=SoprR*(RastP4*(TokP4+ +TokP3+TokP2+TokP1-TokB1))

да

нет

да

нет

да

нет

да

нет

RastP5≤0 RastP5≥20000

DelUR25:=0

DelUR25:=SoprR*(RastP5*(TokP5+ +TokP6+TokP7-TokB2))

да

нет

Продовження рисунку 4.2

RastP6≤0 RastP6≥20000

DelUR26:=0

DelUR26:=SoprR*(RastP6*(TokP6+ +TokP7-TokB2)+RastP5*TokP5)

да

нет

RastP7≤0 RastP7≥20000

DelUR27:=0

DelUR27:=SoprR*(RastP7*(TokP7- -TokB2)+RastP6*TokP6+RastP5*TokP5)

да

нет

RastP1≤0 RastP1≥20000

DelURR11:=0

RastP1<RastP5

DelURR11:=SoprR*RastP1*(TokP5+ +TokP6+TokP7-TokB2)

RastP1<RastP6

DelURR11:=SoprR*(RastP1*(TokP6++TokP7-TokB2)+RastP5*TokP5)

RastP1<RastP7

DelURR11:=SoprR*(RastP1*(TokP7- -TokB2)+RastP5*TokP5+ +RastP6*TokP6)

DelURR11:=SoprR*(RastP5*TokP5+ +RastP6*TokP6+RastP7*TokP7- -RastP1*TokB2)

да

нет

да

нет

да

нет

да

нет

Продовження рисунку 4.2

RastP2≤0 RastP2≥20000

DelURR12:=0

RastP2<RastP5

DelURR12:=SoprR*RastP2*(TokP5+ +TokP6+TokP7-TokB2)

да

нет

да

нет

RastP2<RastP6

DelURR12:=SoprR*(RastP2*(TokP6+TokP7-TokB2)+RastP5*TokP5

да

нет

RastP2<RastP7

DelURR12:=SoprR*(RastP2*(TokP7--TokB2)+RastP5*TokP5+ +RastP6*TokP6

да

нет

DelURR12:=SoprR*(RastP5*TokP5+RastP6*TokP6+RastP7*TokP7- -RastP2*TokB2

RastP3≤0 RastP3≥20000

DelURR13:=0

RastP3<RastP5

DelURR13:=SoprR*RastP3*(TokP5+ +TokP6+TokP7-TokB2)

да

нет

да

нет

RastP3<RastP6

DelURR13:=SoprR*(RastP3*(TokP6+TokP7-TokB2)+RastP5*TokP5

да

нет

RastP3<RastP7

DelURR13:=SoprR*(RastP3*(TokP7--TokB2)+RastP5*TokP5+ +RastP6*TokP6

да

нет

DelURR13:=SoprR*(RastP5*TokP5+RastP6*TokP6+RastP7*TokP7- - RastP3*TokB2)

Продовження рисунку 4.2

RastP4≤0 RastP4≥20000

DelURR14:=0

RastP4<RastP5

DelURR14:=SoprR*RastP4*(TokP5+ +TokP6+TokP7-TokB2)

да

нет

да

нет

RastP4<RastP6

DelURR14:=SoprR*(RastP4*(TokP6+TokP7-TokB2)+RastP5*TokP5

да

нет

RastP4<RastP7

DelURR14:=SoprR*(RastP4*(TokP7--TokB2)+RastP5*TokP5+ +RastP6*TokP6

да

нет

DelURR14:=SoprR*(RastP5*TokP5+RastP6*TokP6+RastP7*TokP7- -RastP4*TokB2

RastP5≤0 RastP5≥20000

DelURR25:=0

да

нет

RastP5<RastP4

DelURR25:=SoprR*RastP5*(TokP1+ +TokP2+TokP3+TokP4-TokB1)

да

нет

RastP5<RastP3

DelURR25:=SoprR*RastP5*(TokP1+ +TokP2+TokP3-TokB1)+ +RastP4*TokP4

да

нет

Продовження рисунку 4.2

RastP5<RastP2

DelURR25:=SoprR*(RastP5*(TokP1+ +TokP2-TokB1)+ +RastP3*TokP3+RastP4*TokP4

да

нет

RastP5<RastP1

DelURR25:=SoprR*(RastP5*(TokP1- -TokB1)+RastP2*TokP2+ +RastP3*TokP3+RastP4*TokP4

да

нет

DelURR25:=SoprR*(RastP4*TokP4+RastP3*TokP3+RastP2*TokP2+ +RastP1*TokP1-RastP5*TokB1)

RastP6≤0 RastP6≥20000

DelURR26:=0

да

нет

RastP6<RastP4

DelURR26:=SoprR*RastP6*(TokP1+ +TokP2+TokP3+TokP4-TokB1)

да

нет

RastP6<RastP3

DelURR26:=SoprR*RastP6*(TokP1+ +TokP2+TokP3-TokB1)+ +RastP4*TokP4

да

нет

RastP6<RastP2

DelURR26:=SoprR*(RastP6*(TokP1+ +TokP2-TokB1)+ +RastP3*TokP3+RastP4*TokP4

да

нет

RastP6<RastP1

DelURR26:=SoprR*(RastP6*(TokP1- -TokB1)+RastP2*TokP2+ +RastP3*TokP3+RastP4*TokP4

да

нет

DelURR26:=SoprR*(RastP4*TokP4+RastP3*TokP3+RastP2*TokP2+ +RastP1*TokP1-RastP6*TokB1)

Продовження рисунку 4.2

RastP7≤0 RastP7≥20000

DelURR27:=0

да

нет

RastP7<RastP4

DelURR27:=SoprR*RastP7*(TokP1+ +TokP2+TokP3+TokP4-TokB1)

да

нет

RastP7<RastP3

DelURR27:=SoprR*RastP7*(TokP1+ +TokP2+TokP3-TokB1)+ +RastP4*TokP4

да

нет

RastP7<RastP2

DelURR27:=SoprR*(RastP7*(TokP1+ +TokP2-TokB1)+ +RastP3*TokP3+RastP4*TokP4

да

нет

RastP7<RastP1

DelURR27:=SoprR*(RastP7*(TokP1- -TokB1)+RastP2*TokP2+ +RastP3*TokP3+RastP4*TokP4

да

нет

DelURR27:=SoprR*(RastP4*TokP4+RastP3*TokP3+RastP2*TokP2+ +RastP1*TokP1-RastP7*TokB1)

RastP1<RastC

DelUkC1:=SoprK*(RastP1*TokP1+ +RastP2*TokP2+RastP3*TokP3+ +RastP4*TokP4)+ +RastC*(TokC1C2-TokB1) DelURC1:=SoprR*(RastP1*TokP1+ +RastP2*TokP2+RastP3*TokP3+ +RastP4*TokP4)+ +RastC*(-TokB1)

да

нет

Продовження рисунку 4.2

RastP2<RastC

DelUkC1:=SoprK*(RastC*(TokP1+TokC1C2-TokB1)+RastP2*TokP2+ +RastP3*TokP3+RastP4*TokP4) DelURC1:=SoprR*(RastC*(TokP1- -TokB1)+RastP2*TokP2+ +RastP3*TokP3+RastP4*TokP4)

да

нет

RastP3<RastC

DelUkC1:=SoprK*(RastC*(TokP1++TokP2+TokC1C2-TokB1)+ +RastP3*TokP3+RastP4*TokP4) DelURC1:=SoprR*(RastC*(TokP1++TokP2-TokB1)+RastP3*TokP3+ +RastP4*TokP4)

да

нет

RastP4<RastC

DelUkC1:=SoprK*(RastC*(TokP1++TokP2+TokP3+TokC1C2- -TokB1)+RastP4*TokP4) DelURC1:=SoprR*(RastC*(TokP1++TokP2+TokP3- -TokB1)+RastP4*TokP4)

нет

DelUkC1:=SoprK*(RastC*(TokP1++TokP2+TokP3+TokP4+TokC1C2- -TokB1)) DelURC1:=SoprR*(RastC*(TokP1++TokP2+TokP3+TokP4-TokB1))

да

RastP5>RastC

DelUkC2:=SoprK*RastC*(TokP5+ +TokP6+TokP7+TokC1C2-TokB2) DelURC2:=SoprR*RastC*(TokP5+ +TokP6+TokP7-TokB2)

да

нет

RastP6>RastC

DelUkC2:=SoprK*(RastC*(TokP6++TokP7+TokC1C2-TokB2)+ +RastP5*TokP5) DelURC2:=SoprR*(RastC*(TokP6++TokP7-TokB2)+RastP5*TokP5)

нет

да

Продовження рисунку 4.2

да

RastP7>RastC

DelUkC2:=SoprK*(RastC*(TokP7++TokC1C2-TokB2)+RastP5*TokP5+ +RastP6*TokP6) DelURC2:=SoprR*(RastC*(TokP7- -TokB2)+RastP5*TokP5+ +RastP6*TokP6)

нет

DelUkC2:=SoprK*(RastC*(TokC1C2- -TokB2)+RastP5*TokP5+ +RastP6*TokP6+RastP7*TokP7) DelURC2:=SoprR*(RastC*(-TokB2)+ +RastP5*TokP5+RastP6*TokP6+ +RastP7*TokP7)

DelUOR11; DelUOR12; DelUOR13; DelUOR14; DelUOR25; DelUOR26; DelUOR27; DelU11; DelU12; DelU13; DelU14; DelU25; DelU26; DelU27; DelUC1; DelUC2; DelPS1; DelPS2; DelPS3; DelPS4; DelPS5; DelPS6; DelPS7; DelPS; PA; PB; Tok; TokP

Запись в файл FTokA: Vrem, TokA1, TokA2, TokB1, TokB2; TokA; TokB

Задержка 0,080 c.

Запись в файл FDelU: Vrem, DelU11, DelU12, DelU13, DelU14, DelU25, DelU26, DelU27

Запись в файл FDelP: Vrem, DelPS, PA, PB

Закрытие файлов FTokP1, FTokP2, FTokP3, FTokP4, FTokP5, FTokP6, FTokP7, FDelP, FDelU, FTokA, FCon

Конец

Закінчення рисунку 4.2

⇐ Предыдущая 1 2 3 456 7 8 9 Следующая ⇒

Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных