1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
| unit RubyCompile;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TMainFormRuby = class(TForm)
StartBtn: TButton;
OutputOne: TMemo;
OutputSec: TMemo;
ExitBtn: TButton;
procedure StartBtnClick(Sender: TObject);
procedure ExitBtnClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainFormRuby: TMainFormRuby;
implementation
{$R *.dfm}
procedure OutMonitor(VRs:string;VRi:integer; VRMemo:TMemo);
begin
case VRi of
1: VRs:=VRs + ' Служебное слово';
2: VRs:=VRs + ' Литеры';
3: VRs:=VRs + ' Разделитель';
end;
VRMemo.Lines.Add(VRs);
end;
procedure TMainFormRuby.StartBtnClick(Sender: TObject);
var ofile:textfile;
buf, KXString:string;
index, dl_S:integer;
begin
assignfile(ofile,'input.txt');
reset(ofile);
while not eof(ofile) do begin
readln(ofile,KXString);
buf:='';
index:=1;
OutputOne.Lines.Add(KXString);
dl_S:=length(KXString);
while index<dl_S do
case KXString[index] of
'a'..'z','A'..'Z','$':
begin // add
buf:=buf+KXString[index];
inc(index);
while KXString[index] in ['a'..'z','A'..'Z','0'..'9','$'] do
begin
buf:=buf+KXString[index];
inc(index);
end;
OutMonitor(buf,1,OutputSec);
buf:=''; // out, clear
end;
'0'..'9': begin
buf:=buf+KXString[index];
inc(index);
while KXString[index] in ['0'..'9'] do begin
buf:=buf+KXString[index];
inc(index);
end;
OutMonitor(buf,2,OutputSec);
buf:='';
end;
' ': inc(index);
'<','>','(',')': // Знаки сравнения и скобки
begin
buf:=KXString[index];
inc(index);
{if KXString[index] in ['=','<','>','(',')',';'] then begin
buf:=buf+KXString[index];
inc(index);
end;}
OutMonitor(buf,3,OutputSec);
buf:='';
end;
',','.',':',';':
begin
buf:=buf+KXString[index];
inc(index);
{if KXString[index] in [',','.',';',':'] then begin
buf:=buf+KXString[index];
inc(index);
end;}
OutMonitor(buf,3,OutputSec);
buf:='';
end;
'=','&': //знаки сравнения
begin
buf:=buf+KXString[index];
inc(index);
if KXString[index] in ['=','&'] then begin
buf:=buf+KXString[index];
inc(index);
end;
OutMonitor(buf,3,OutputSec);
buf:='';
end
else
inc(index);
end;
end;
Closefile(ofile);
end;
procedure TMainFormRuby.ExitBtnClick(Sender: TObject);
begin
close;
end;
end. |
(
