IPB

, ( | )

Add File

> 

z3rg
11.1.2012, 14:59
11.1.2012, 14:59
  (zip - application/zip)
64.47 ( )
574
144
V

:


:
. , "". .

Google

" "


:


""

:

11

: -11

:

..

2008


11

.


1.

1.1

1.2

2.

2.1

2.2

2.3

3.


 

. , .

 


 

1.1 

 

, .

:

  , , ; , : -, -

  .

  .

 

 

  , .

  , .

  ,

  ,

 

 

1.2

, , 4 . : 4 , , , , , , , .

 


2.

 

2.1

, , . .

:

) , . , , 1 2, 1, 2. , , , .

) , , , .

) - , . + 2.txt

 

2.2

 

.

, al .

:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, ShellCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

t,tt,t2:string;

f:Tstrings;

r,i,rs,j,q,rc,m,n,l,qw:integer;

al:array[1..66,1..2] of string;

kl:array[1..1000] of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

f:=Tstringlist.create();

f.Loadfromfile(form1.Edit1.Text);

for qw:=0 to f.count-1 do begin

tt:="";

t2:="";

t:=f.strings[qw];

i:=1;

while t[i]<>"" do

i:=i+1;

r:=i-1;

for i:=1 to r do begin

q:=1;

for j:=1 to 66 do begin

if t[i]=al[j,1] then begin

tt:=tt+al[j,2];

q:=2;

end;

end;

if q=1 then begin

if t[i]=" " then begin tt:=tt+"4"; q:=2; end;

if t[i]="-" then begin tt:=tt+"5"; q:=2; end;

if q=1 then tt:=tt+"6";

end;

end;

//---------------------------

i:=1;

while i<=r do begin

q:=0;

m:=0;

n:=0;

for j:=0 to 4 do begin

if tt[i+j]="1" then q:=q+1;

if (tt[i+j]="2") and (j<>4) then m:=m+1;

if ((tt[i+j]="4")or(tt[i+j]="5")or(tt[i+j]="6")) and (j<>4) then n:=n+1;

end;

if ((q+m>=4)and(q>=2)) and

(tt[i+2]<>tt[i+3])and(n=0)and(tt[i+1]+tt[i+2]<>"21")and((t[i+3]<>"") and(t[i+3]<>"")) then begin

t2:=t2+t[i]+t[i+1]+"-";

i:=i+1;

end else begin

t2:=t2+t[i];

end;

i:=i+1;

end;

//---------------------------

f.strings[qw]:=t2;

end;

f.SaveToFile(form1.Edit1.Text+"2.txt");

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

al[1 , 1 ]:="" ;

al[2 , 1 ]:="" ;

al[3 , 1 ]:="" ;

al[4 , 1 ]:="" ;

al[5 , 1 ]:="" ;

al[6 , 1 ]:="" ;

al[7 , 1 ]:="" ;

al[8 , 1 ]:="" ;

al[9 , 1 ]:="" ;

al[10 , 1 ]:="" ;

al[11 , 1 ]:="" ;

al[12 , 1 ]:="" ;

al[13 , 1 ]:="" ;

al[14 , 1 ]:="" ;

al[15 , 1 ]:="" ;

al[16 , 1 ]:="" ;

al[17 , 1 ]:="" ;

al[18 , 1 ]:="" ;

al[19 , 1 ]:="" ;

al[20 , 1 ]:="" ;

al[21 , 1 ]:="" ;

al[22 , 1 ]:="" ;

al[23 , 1 ]:="" ;

al[24 , 1 ]:="" ;

al[25 , 1 ]:="" ;

al[26 , 1 ]:="" ;

al[27 , 1 ]:="" ;

al[28 , 1 ]:="" ;

al[29 , 1 ]:="" ;

al[30 , 1 ]:="" ;

al[31 , 1 ]:="" ;

al[32 , 1 ]:="" ;

al[33 , 1 ]:="" ;

al[34 , 1 ]:="" ;

al[35 , 1 ]:="" ;

al[36 , 1 ]:="" ;

al[37 , 1 ]:="" ;

al[38 , 1 ]:="" ;

al[39 , 1 ]:="" ;

al[40 , 1 ]:="" ;

al[41 , 1 ]:="" ;

al[42 , 1 ]:="" ;

al[43 , 1 ]:="" ;

al[44 , 1 ]:="" ;

al[45 , 1 ]:="" ;

al[46 , 1 ]:="" ;

al[47 , 1 ]:="" ;

al[48 , 1 ]:="" ;

al[49 , 1 ]:="" ;

al[50 , 1 ]:="" ;

al[51 , 1 ]:="" ;

al[52 , 1 ]:="" ;

al[53 , 1 ]:="" ;

al[54 , 1 ]:="" ;

al[55 , 1 ]:="" ;

al[56 , 1 ]:="" ;

al[57 , 1 ]:="" ;

al[58 , 1 ]:="" ;

al[59 , 1 ]:="" ;

al[60 , 1 ]:="" ;

al[61 , 1 ]:="" ;

al[62 , 1 ]:="" ;

al[63 , 1 ]:="" ;

al[64 , 1 ]:="" ;

al[65 , 1 ]:="" ;

al[66 , 1 ]:="" ;

al[1 , 2 ]:="1" ;

al[2 , 2 ]:="2" ;

al[3 , 2 ]:="2" ;

al[4 , 2 ]:="2" ;

al[5 , 2 ]:="2" ;

al[6 , 2 ]:="1" ;

al[7 , 2 ]:="1" ;

al[8 , 2 ]:="2" ;

al[9 , 2 ]:="2" ;

al[10 , 2 ]:="1" ;

al[11 , 2 ]:="1" ;

al[12 , 2 ]:="2" ;

al[13 , 2 ]:="2" ;

al[14 , 2 ]:="2" ;

al[15 , 2 ]:="2" ;

al[16 , 2 ]:="1" ;

al[17 , 2 ]:="2" ;

al[18 , 2 ]:="2" ;

al[19 , 2 ]:="2" ;

al[20 , 2 ]:="2" ;

al[21 , 2 ]:="1" ;

al[22 , 2 ]:="2" ;

al[23 , 2 ]:="2" ;

al[24 , 2 ]:="2" ;

al[25 , 2 ]:="2" ;

al[26 , 2 ]:="2" ;

al[27 , 2 ]:="2" ;

al[28 , 2 ]:="1" ;

al[29 , 2 ]:="1" ;

al[30 , 2 ]:="1" ;

al[31 , 2 ]:="1" ;

al[32 , 2 ]:="1" ;

al[33 , 2 ]:="1" ;

al[34 , 2 ]:="1" ;

al[35 , 2 ]:="2" ;

al[36 , 2 ]:="2" ;

al[37, 2 ]:="2" ;

al[38 , 2 ]:="2" ;

al[39 , 2 ]:="1" ;

al[40 , 2 ]:="1" ;

al[41 , 2 ]:="2" ;

al[42 , 2 ]:="2" ;

al[43 , 2 ]:="1" ;

al[44 , 2 ]:="1" ;

al[45 , 2 ]:="2" ;

al[46 , 2 ]:="2" ;

al[47 , 2 ]:="2" ;

al[48 , 2 ]:="2" ;

al[49 , 2 ]:="1" ;

al[50 , 2 ]:="2" ;

al[51 , 2 ]:="2" ;

al[52 , 2 ]:="2" ;

al[53 , 2 ]:="2" ;

al[54 , 2 ]:="1" ;

al[55 , 2 ]:="2" ;

al[56 , 2 ]:="2" ;

al[57 , 2 ]:="2" ;

al[58 , 2 ]:="2" ;

al[59 , 2 ]:="2" ;

al[60 , 2 ]:="2" ;

al[61 , 2 ]:="1" ;

al[62 , 2 ]:="1" ;

al[63 , 2 ]:="1" ;

al[64 , 2 ]:="1" ;

al[65 , 2 ]:="1" ;

al[66 , 2 ]:="1" ;

end;

end.

 

2.3

.


, . , , .


Fast Reply     Add File

Collapse

> 

 
35 3
Active Users 35 , 0 , 0
Yandex Bot, Bing Bot, Mail.ru Bot
Board Stats 217131 132
6
13152266
: .. z3rg ( 16.2.2016, 23:01)
RSS
| |
@Mail.ru


.
>>>

21 25 , , . , , - , , ... >>>

, , .

. (" ", " ", "")

. - -. : , . . - ( " "). ...