NBPrg40. (*info). NBPrg23.TXT. MiniOS. OpenSource.

NBPrg40. (*info). NBPrg23.TXT. MiniOS. OpenSource.
**************************************

NBPRG23.TXT

NBPrg40. (*graph.md). (**p5view_source.zip). (***p5view_source). PLUS.P5. MiniOS. OpenSource.

NBPrg40. (*graph.md). (**p5view_source.zip). (***p5view_source). PLUS.P5. MiniOS. OpenSource.
**************************************

1 1 1 1 1 
1 2 2 2 1
1 2 2 2 1
1 2 2 2 1
1 1 1 1 1
plus.p
gr.p

NBPrg40. (*graph.md). (**p5view_source.zip). (***p5view_source). PLUS.P. MiniOS. OpenSource.

NBPrg40. (*graph.md). (**p5view_source.zip). (***p5view_source). PLUS.P. MiniOS. OpenSource.
**************************************

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 1 1 0 0 0 4 4 4 0
0 0 0 0 0 0 0 1 1 0 0 0 4 4 4 0
0 0 0 0 0 0 0 1 1 0 0 0 4 4 4 0
0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0
0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0
0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0
0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0

NBPrg40. (*graph.md). (**p5view_source.zip). (***p5view_source). P5VIEW.PAS. MiniOS. OpenSource.

NBPrg40. (*graph.md). (**p5view_source.zip). (***p5view_source). P5VIEW.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

(*
        P5VIEW.PAS
*)

Program p5view;

{ p5view = (graph)(view)(.p5) }
{ (.p5)  = (5x5 matrix)(.p)   }

Uses Graph;

Var
  gd,gm : Integer;
  i,j   : Byte;

  plusMaxNMatrix : Byte;
  nMatrix : Array[1..5, 1..5] Of Byte;
  pNames  : Array[1..50] Of String;

  pMatrix : Array[1..5, 1..5] Of  String;
  { (5x5 matrix)(.p)(name) }

{ DrawSmallPicture16x16 = draw(*.p)}

NBPrg40. (*graph.md). (**p5view_source.zip). (***p5view_source). GR.P. MiniOS. OpenSource.

NBPrg40. (*graph.md). (**p5view_source.zip). (***p5view_source). GR.P. MiniOS. OpenSource.
**************************************

0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 1 1 1 0 0 0 0 4 4 4 0
0 0 0 0 0 0 1 1 1 0 0 0 4 4 4 0
0 0 0 0 0 0 0 1 1 1 0 0 4 4 4 0
0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0
0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 1 0 0
0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0
0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0
0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0
0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0

NBPrg40. (*crt.md). (**p5make_source.zip). (***p5make_source). PLUS.P5. MiniOS. OpenSource.

NBPrg40. (*crt.md). (**p5make_source.zip). (***p5make_source). PLUS.P5. MiniOS. OpenSource.
**************************************

2  1  1  1  1  
1  1  1  1  1  
1  1  1  1  1  
1  1  1  1  1  
1  1  1  1  1  
plus.p
gr.p

NBPrg40. (*crt.md). (**p5make_source.zip). (***p5make_source). P5MAKE.PAS. MiniOS. OpenSource.

NBPrg40. (*crt.md). (**p5make_source.zip). (***p5make_source). P5MAKE.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

(*

        P5MAKE.PAS

*)

Program p5make;

{ make(.p5)               }
{ .p5 = (matrix)(5x5)(.p) }

Uses Crt; { Crt-module }

Var

  nMatrix : Array[1..5,1..5] Of Byte;

{ Make/edit(matrix) }
Procedure ShowM;
Var
  i : Byte;
  j : Byte;
Begin
  { Show }
  For i := 1 To 5 Do
  Begin
    For j := 1 To 5 Do
    Begin
      If nMatrix[i][j] < 10 Then
      Begin

NBPrg40. (*crt.md). (**tedit_source.zip). (***tedit_source). TEDIT.PAS. MiniOS. OpenSource.

NBPrg40. (*crt.md). (**tedit_source.zip). (***tedit_source). TEDIT.PAS. MiniOS. OpenSource.
**************************************

{ Nikita Beloshenko (GNU) 2013 }

(*

        TEDIT.PAS

*)

Program TEdit;

Uses Crt; { Crt-module }

Const
  FilePath : String = 'My.t'; { File }

Var
  CharMatrix : array[1..20,1..50] of Char; { Text }


{ PRINT }
Procedure PrintFile;
Var
  T : Text;
  Ch : Char;
  i,j : Byte;
Begin
  Assign(T,FilePath);
  Reset(T);
  For i := 1 To 20 Do
  Begin
    For j := 1 To 50 Do
    Begin
      Read(T,Ch);
      Write(Ch);

NBPrg40. (*crt.md). (**tedit_source.zip). (***tedit_source). MY.T. MiniOS. OpenSource.

NBPrg40. (*crt.md). (**tedit_source.zip). (***tedit_source). MY.T. MiniOS. OpenSource.
**************************************

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAA************AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAA*  text    *AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAA*          *AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAA************AAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

2018. News. World. Europe. USA. EU. Ukraine. Kyiv2018. Society2018. Technologies2018. Economics2018. Infrastructure2018. Info2018. Інформація2018. Транспорт2018. Мережа2018. Web2018.

2018. News. World. Europe. USA. EU. Ukraine. Kyiv2018. Society2018. Technologies2018. Economics2018. Infrastructure2018. Info2018. Інформація2018. Транспорт2018. Мережа2018. Web2018. https://www.rbc.ua/rus/news/remont-stantsii-kievskogo-metro-svyatoshin-1... Джерело:РБК-УКРАЇНА.

Синдикация материалов