Новини. Світ. Україна. Економіка. Газ. ПХГ.

#News #Reviews #World #Ukraine #Украина #Економіка

#Україна

#Economics #Газ #Новости #Новини #ПХГ #Енергетика

http://www.rbc.ua/rus/news/zapasy-gaza-phg-ukrainy-vyrosli-mlrd-kub-1428936917.html

З ВЕЛИКОДНЕМ !

З ВЕЛИКОДНЕМ !

С ПАСХОЙ ! ХРИСТОС ВОСКРЕС !

ВОИСТИНУ ВОСКРЕС !

Увага! Всім небайдужим ! Просимо (хто має таку можливість) активізувати в мережі Інтернет (і в реалі і ЗМІ, де тільки можливо) пости на підтримку(дотримання її прав) Н.Савченко . Ми небайдужі стосовно українки.

Новини. Світ. Україна. УНН.

Новости. Мир. Украина.

News. World. Ukraine.

http://www.unn.com.ua/uk/news/1443874-n-savchenko-mozhe-pomerti-do-8-ber...

Увага! Всім небайдужим ! Просимо (хто має таку можливість) активізувати в мережі Інтернет (і в реалі і ЗМІ, де тільки можливо) пости на підтримку(дотримання її прав) Н.Савченко . Ми небайдужі стосовно українки.

‪#‎World‬, ‪#‎Ukraine‬, ‪#‎Україна‬, ‪#‎Савченко‬.

Вже запостив :

(1) http://www.facebook.com/UkrainianSocialDemocracyDream
(2) http://www.drupalprj2.beloshenko.org.ua/node/72
(3) http://nbeloshenko.blogspot.com/2015/03/blog-post.html
(4) http://beloshenko.blogspot.com/2015/03/blog-post.html

Україна. Київ. Я. Фінанси, справи, блог. ->{ блог(и), розвиток, OS NBPrg40,41}

Я. Фінанси, справи, блог. ->{ блог(и), розвиток, OS NBPrg40,41}
Україна. Київ.

Развитие OS (NBPrg40,41).


 http://www.drupalprj2.beloshenko.org.ua/node/70

Концепція "Віртуальна лабораторія \ підприємство ". Концепція "Менеджер модулів з модулями" (складова).

Концепція "Віртуальна лабораторія \ підприємство ". Концепція "Менеджер модулів з модулями" (складова).

http://www.drupalprj2.beloshenko.org.ua/node/56

--------------------------------------------

Концепція "Віртуальна лабораторія \ підприємство ".

Концепция "Віртуальна лабораторія \ підприємство ".

http://www.virtlab.1gb.ua/index.html

#інформатика, #автоматизація

З Новим 2015 Роком ! Зі святами !

З Новим 2015 Роком ! Зі святами !

http://www.drupalprj2.beloshenko.org.ua/node/55

Превращение Book1V.Pas в Unit. (змінні у процедурі)

Превращение Book1V.Pas в Unit.
Перетворення Book1V.Pas у Unit.
Ключевые слова выделено красным цветом. В Турбо Паскале(существует также Free Паскаль (для пользователей Линукс особенно) и другие разновидности) (по умолчанию) они (как правило) выделяются белым цветом на синем фоне (комментарии - серым, а математические операции с командами и многое другое - желтым цветом на синем фоне).
Ключові слова виділено червоним кольором.

Зеленым цветом выделено определение процедуры Book1V_run (в т.ч. определение в интерфейсной части модуля). Превращение Book1V.Pas в Unit - передача функций Book1V.Pas (как Program) процедуре Book1V_run. Обращение к Book1V.Pas определенным образом копирует функции и исполнение программы (Program) Book1V.Pas (Book1V.Pas как программы).
Зеленим кольором виділено означення процедури Book1V_run у інтерфейсній частині. Звернення до цієї процедури (певним чином) еквівалентно виконанню Book1V.Pas (як програми Program).
Оголошення змінних в процедурі виділено сірим кольором.
Переменные (точнее - блок после Var) в процедуре выделено серым цветом.

---

Unit BOOK1V;
{ Nikita Beloshenko (GNU) 2014 }
{ for NBPrg40 (Nikita Beloshenko (GNU)) }
Interface
Procedure Book1V_run;
Implementation
Uses BMem,Crt;

Procedure Book1V_run;
Const
  BookF = 'BookF.txt';
Label
  ReadBMem_MODE,
  START;
Var
  b : Byte;
  t : Text;
  i : Byte;
Begin
  ClrScr;
  Assign(t,BookF);
  Reset(t); i:=0;
  While Not(eof(t)) Do
  Begin
    Inc(i);
    ReadLn(t,ResultOrIn);
    WriteLn(i,' ',ResultOrIn);
    ReadLn;
    If i<BMem_MAX Then BMem_Memmory[i] := ResultOrIn;
  End;
  Close(t);
START :
ReadBMem_MODE :

  WriteLn('BMem_MODE(0..1)?:');
  ReadLn(b);
  If b=0 Then BMem_Mode := false;
  If b=1 Then BMem_Mode := true;
  If (Not(b=0)) And (Not(b=1)) Then Goto ReadBMem_MODE;
  WriteLn('BMem_Addr?:');
  ReadLn(BMem_Addr);
  If BMem_Mode Then
  Begin
    WriteLn('ResultOrIn?');
    ReadLn(ResultOrIn);
    BMem_run;
    If(BMem_Error) Then WriteLn('ERROR.');
  End Else
  Begin
    BMem_run;
    If(BMem_Error) Then
    Begin
      WriteLn('ERROR');
    End Else
    Begin
      WriteLn('ResultOrIn');
      WriteLn(ResultOrIn);
    End;
  End;
  WriteLn('START(0..1)?:');
  ReadLn(b);
  If b=1 Then Goto START;
  Assign(t,BookF);
  ReWrite(t);
  For i:=1 To BMem_MAX Do
  Begin
    WriteLn(t,BMem_Memmory[i]);
  End;
  Close(t);
End;
End.

---

Cм. также :
Превращение Book1V.Pas в Unit.