Превращение 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.

Архів Book1.zip.rar - модель книги.

Book (в т.ч. для Free GNU OS NBPrg40)

Book1.zip.rar

Архів Book1.zip.rar - модель книги.

Архив Book1.zip.rar - модель книги (далее книги (такой модели) можно соединять в виртуальную библиотеку). Архив соединяет несколько файлов - Book.Pas, Book1.Pas, BookF.Pas, Page(1-5).Txt , BookF.Txt и BMem.Pas. В архив входит сама информация и исходники для ее обработки (*.Pas). BookP.Pas - часть модели работающая со страницами. Book1.Pas работает с BookF.Txt.

 

См. также :

Расширение до книжки из 5 страниц по 200 строк (BookP.Pas).

Консольная записная книжна в 200 строк (под NBPrg40).

Состоит из BOOK.Pas и BMem.Pas.

Консольна записна книжка у 200 стрічок.

Складається з BOOK.Pas і BMem.Pas.

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

 

Расширение до книжки из 5 страниц по 200 строк (BookP.Pas).

BookP.Pas для Book.Pas,Book1.Pas,BMem.Pas.

Page1.txt,

Page2.txt, ...,

Page5.txt - 5 страниц книги.

Можно загрузить страницу в BookF.txt для редактирования.

Можно записать BookF.txt в одну из страниц.

Консольная записная книжка в 200 строк (под NBPrg40). (BOOK1.Pas)

Консольная записная книжка в 200 строк (под NBPrg40). (BOOK1.Pas)

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

Консольная записная книжна в 200 строк (под NBPrg40).

Состоит из BOOK.Pas и BMem.Pas.

Консольна записна книжка у 200 стрічок.

Складається з BOOK.Pas і BMem.Pas.

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

 

BOOK1.Pas - модификация работающая с файлом BookF.txt (память книжки сохраняется/читается из файла (при старте/завершении) ).

Консольная записная книжка в 200 строк (под NBPrg40). (BMem.Pas)

Консольная записная книжна в 200 строк (под NBPrg40).

Состоит из BOOK.Pas и BMem.Pas.

Консольна записна книжка у 200 стрічок.

Складається з BOOK.Pas і BMem.Pas.

 

BOOK.Pas - основная программа приложения (работающая (и)без NBPrg40). BOOK.Pas осуществляет чтение/запись из/в память. Программа может сообщать про ошибку (если указан адрес со значением более 200) .BMem.Pas - модуль памяти книжки (из 200 строк). BMem.Pas можно встроить по стандартному механизму (*.ts-механизм) в (GNU OS) NBPrg40. Такое встраивание можно осуществить используя TWriteLn.Pas.

Консольная записная книжка в 200 строк (под NBPrg40). (BOOK.Pas)

Консольная записная книжна в 200 строк (под NBPrg40).

Состоит из BOOK.Pas и BMem.Pas.

Консольна записна книжка у 200 стрічок.

Складається з BOOK.Pas і BMem.Pas.

 

BOOK.Pas - основная программа приложения (работающая (и)без NBPrg40). BOOK.Pas осуществляет чтение/запись из/в память. Программа может сообщать про ошибку (если указан адрес со значением более 200) .BMem.Pas - модуль памяти книжки (из 200 строк). BMem.Pas можно встроить по стандартному механизму (*.ts-механизм) в (GNU OS) NBPrg40. Такое встраивание можно осуществить используя TWriteLn.Pas.