Дипломной работе рассматривается создание автоматизированного рабочего места диспетчера системно-технического

97
 
 
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
 
126
 
127
 
128
 
129
 
130
 
131
 
132
 
133
 
134
 
135
 
136
 
137
 
138
 
139
 
140
 
141
 
142
 
143
 
144
 
                  end;
 
                end;
 
              3:begin
 
                  if n1[2]<>1 then if Nk=3 then begin
 
                    if not pr then
 
                    a1[z+2]:=' один ' else begin a1[z+2]:=' Один 
'; pr:=False_;___end_;___end_;___end_;___end'>False; end; end else
 
                     begin
 
                       if not pr then a1[z+2]:=' одна ' else
 
                         begin
 
                          a1[z+2]:=' Одна ';
 
                          pr:=False;
 
                         end;
 
                     end;
 
                end;
 
            end;
 
          end;
 
        2:begin
 
            case i of
 
              1:if not pr then a1[z]:=' двісті ' else begin 
a1[z]:=' Двісті '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' двадцять ' else begin 
a1[z+1]:=' Двадцять '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then if Nk=3 then
 
                    begin
 
                     if not pr then a1[z+2]:=' два ' else begin 
a1[z+2]:=' Два '; pr:=False; end;
 
                    end
 
                     else
 
                    begin
 
                      if not pr then a1[z+2]:=' дві ' else begin 
a1[z+2]:=' Дві '; pr:=False; end;
 
                    end;
 
                end;
 
            end;
 
          end;
 
        3:begin
 
            case i of
 
              1:if not pr then a1[z]:=' триста ' else begin 
a1[z]:=' Триста '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' тридцять ' else begin 
a1[z+1]:=' Тридцять '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then
 
                      begin
 
                       if not pr then a1[z+2]:=' три ' else begin 
a1[z+2]:=' Три '; pr:=False; end;
 
                      end;
 

98
 
 
145
 
146
 
147
 
148
 
149
 
150
 
151
 
152
 
153
 
154
 
155
 
156
 
157
 
158
 
159
 
160
 
161
 
162
 
163
 
164
 
165
 
166
 
167
 
168
 
169
 
170
 
171
 
172
 
173
 
174
 
175
 
176
 
177
 
178
 
179
 
180
 
181
 
182
 
183
 
184
 
185
 
186
 
187
 
188
 
189
 
190
 
191
 
192
 
193
 
                end;
 
            end;
 
          end;
 
        4:begin
 
            case i of
 
              1:if not pr then a1[z]:=' чотириста ' else begin 
a1[z]:=' Чотириста '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' сорок ' else begin 
a1[z+1]:=' Сорок '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then
 
                     begin
 
                      if not pr then a1[z+2]:=' чотири ' else 
begin a1[z+2]:=' Чотири '; pr:=False; end;
 
                     end;
 
                end;
 
            end;
 
          end;
 
        5:begin
 
            case i of
 
              1:if not pr then a1[z]:=' п’ятсот ' else begin 
a1[z]:=' П’ятсот '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' п’ятдесят ' else begin 
a1[z+1]:=' П’ятдесят '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then
 
                     begin
 
                      if not pr then a1[z+2]:=' п’ять ' else begin 
a1[z+2]:=' П’ять '; pr:=False; end;
 
                     end;
 
                end;
 
            end;
 
          end;
 
        6:begin
 
            case i of
 
              1:if not pr then a1[z]:=' шістсот ' else begin 
a1[z]:=' Шістсот '; pr:=False; end;
 
              2:if not pr then a1[z+1]:=' шістдесят ' else begin 
a1[z+1]:=' Шістдесят '; pr:=False; end;
 
              3:begin
 
                  if n1[2]<>1 then
 
                     begin
 
                      if not pr then a1[z+2]:=' шість ' else begin 
a1[z+2]:=' Шість '; pr:=False; end;
 
                     end;
 
                end;
 
            end;
 
          end;
 
        7:begin