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

99
 
 
194
 
195
 
196
 
197
 
198
 
199
 
200
 
201
 
202
 
203
 
204
 
205
 
206
 
207
 
208
 
209
 
210
 
211
 
212
 
213
 
214
 
215
 
216
 
217
 
218
 
219
 
220
 
221
 
222
 
223
 
224
 
225
 
226
 
227
 
228
 
229
 
230
 
231
 
232
 
233
 
234
 
235
 
236
 
237
 
238
 
239
 
240
 
241
 
242
 
            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;
 
        8: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;
 
        9: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;
 
      end; {Case}
 
    end;  {for 1 - 3 }
 
    case Nk of
 
      1:begin
 
          if n1[2]<>1 then
 

100
 
 
243
 
244
 
245
 
246
 
247
 
248
 
249
 
250
 
251
 
252
 
253
 
254
 
255
 
256
 
257
 
258
 
259
 
260
 
261
 
262
 
263
 
264
 
265
 
266
 
267
 
268
 
269
 
270
 
271
 
272
 
273
 
274
 
275
 
276
 
277
 
278
 
279
 
280
 
281
 
282
 
283
 
284
 
285
 
286
 
287
 
288
 
289
 
290
 
291
 
            begin
 
              case n1[3] of
 
                   0:a1[z+3]:=' грн. ';  {гривень}
 
                   1:a1[z+3]:=' грн. ';   {гривня}
 
                2..4:a1[z+3]:=' грн. ';   {гривні}
 
                5..9:a1[z+3]:=' грн. ';   {гривень}
 
              end;
 
            end else
 
             a1[z+3]:=' грн. ';         {гривень}
 
        end;
 
      2:begin
 
          if n1[2]<>1 then
 
            begin
 
              case n1[3] of
 
                   0:a1[z+3]:=' тисяч ';
 
                   1:a1[z+3]:=' тисяча ';
 
                2..4:a1[z+3]:=' тисячі ';
 
                5..9:a1[z+3]:=' тисяч ';
 
              end;
 
            end else
 
              a1[z+3]:=' тисяч ';
 
          Nk:=1;
 
        end;
 
      3:begin
 
          if n1[2]<>1 then
 
            begin
 
              case n1[3] of
 
                   0:a1[z+3]:=' мільйонів ';
 
                   1:a1[z+3]:=' мільйон ';
 
                2..4:a1[z+3]:=' мільйона ';
 
                5..9:a1[z+3]:=' мільйонів ';
 
              end;
 
            end else
 
              a1[z+3]:=' мільйонів ';
 
          Nk:=2;
 
        end;
 
    end;
 
  end; {for 1 - Nk}
 
  sum:=trunc((0.005+summa-trunc(summa+0.005))*100);
 
  n1[2]:=trunc(sum/10);
 
  n1[3]:=trunc(sum-n1[2]*10);
 
  str(n1[2]:1,k1);
 
  str(n1[3]:1,k);
 
  a1[z+4]:=k1+k;
 
  if n1[2]<>1 then
 
      begin
 
       case n1[3] of
 
         0:a1[z+5]:=' коп. ';    {копійок}
 
         1:a1[z+5]:=' коп. ';    {копійка}