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

101
 
 
292
 
293
 
294
 
295
 
296
 
297
 
298
 
299
 
300
 
301
 
302
 
303
 
304
 
305
 
306
 
307
 
308
 
309
 
310
 
311
 
312
 
313
 
314
 
315
 
316
 
317
 
318
 
319
 
320
 
321
 
322
 
323
 
324
 
325
 
326
 
327
 
328
 
329
 
330
 
331
 
332
 
333
 
334
 
335
 
336
 
337
 
338
 
339
 
340
 
      2..4:a1[z+5]:=' коп. ';    {копійки}
 
      5..9:a1[z+5]:=' коп. ';    {копійок}
 
       end;
 
     end else
 
       a1[z+5]:=' коп. ';        {копійок}
 
 
 
  Money:=a1[1]+a1[2]+a1[3]+a1[4]+a1[5]+a1[6]+a1[7]+a1[8]+a1[9]+
 
            a1[10]+a1[11]+a1[12]+a1[13]+a1[14]+a1[15];
 
end;
 
 
 
{Функція перетворення числового значення в прописне}
 
Function Money1(Summa:Real):String;
 
var n1:array[1..3] of integer;
 
    a1:array[1..15] of string;
 
    j,i,Nk,z,kol:integer;
 
    sum:real;
 
    pr:Boolean;
 
 
 
begin
 
  for j:=1 to 15 do
 
    for i:=1 to length(a1[j]) do a1[j]:='';
 
  if summa>=1000000 then
 
      Nk:=3 else
 
        if summa>=1000 then
 
           Nk:=2 else Nk:=1;
 
  kol:=Nk; sum:=summa;
 
  z:=1;
 
  pr:=true;
 
  for j:=1 to kol do
 
  begin
 
    case Nk of
 
      1:begin
 
          if kol<>1 then begin
 
                           if kol=2 then z:=5 else z:=9;
 
                           sum:=summa-trunc(summa/1000)*1000;
 
                         end;
 
          n1[1]:=trunc(sum/100);
 
          n1[2]:=trunc((sum-n1[1]*100)/10);
 
          n1[3]:=trunc(sum-n1[1]*100-n1[2]*10);
 
        end;
 
      2:begin
 
          if kol=3 then begin
 
            sum:=summa-trunc(summa/1000000)*1000000;
 
            z:=5;
 
          end;
 
          n1[1]:=trunc(sum/100000);
 
          n1[2]:=trunc((sum-n1[1]*100000)/10000);
 
          n1[3]:=trunc((sum-n1[1]*100000-n1[2]*10000)/1000);
 
        end;
 

102
 
 
341
 
342
 
343
 
344
 
345
 
346
 
347
 
348
 
349
 
350
 
351
 
352
 
353
 
354
 
355
 
356
 
357
 
358
 
359
 
360
 
361
 
362
 
363
 
364
 
365
 
366
 
367
 
368
 
369
 
370
 
371
 
372
 
373
 
374
 
375
 
376
 
377
 
378
 
379
 
380
 
381
 
382
 
383
 
384
 
385
 
386
 
387
 
388
 
389
 
      3:begin
 
          n1[1]:=trunc(sum/100000000);
 
          n1[2]:=trunc((sum-n1[1]*100000000)/10000000);
 
          n1[3]:=trunc((sum-n1[1]*100000000-
n1[2]*10000000)/1000000);
 
        end;
 
    end;
 
    if trunc(summa)=0 then
 
       if not pr then a1[z]:=' ноль ' else
 
           begin a1[z]:=' Ноль '; pr:=false; end;
 
    for i:=1 to 3 do
 
    begin
 
      case n1[i] of
 
        1:begin
 
            case i of
 
              1:if not pr then a1[z]:=' сто ' else begin a1[z]:=' 
Сто '; pr:=False_;_end_;___3:if_not_pr_then'>False; end;
 
              2:begin
 
                  case n1[3] of
 
                    0:if not pr then a1[z+1]:=' десять ' else 
begin a1[z+1]:=' Десять '; pr:=False; end;
 
                    1:if not pr then a1[z+1]:=' одинадцять ' else 
begin a1[z+1]:=' Одинадцять '; pr:=False; end;
 
                    2:if not pr then a1[z+1]:=' дванадцять ' else 
begin a1[z+1]:=' Дванадцять '; pr:=False; end;
 
                    3:if not pr then a1[z+1]:=' тринадцять ' else 
begin a1[z+1]:=' Тринадцять '; pr:=False; end;
 
                    4:if not pr then a1[z+1]:=' чотирнадцять ' 
else begin a1[z+1]:=' Чотирнадцять '; pr:=False; end;
 
                    5:if not pr then a1[z+1]:=' п’ятнадцять ' else 
begin a1[z+1]:=' П’ятнадцять '; pr:=False; end;
 
                    6:if not pr then a1[z+1]:=' шістнадцять ' else 
begin a1[z+1]:=' Шістнадцять '; pr:=False; end;
 
                    7:if not pr then a1[z+1]:=' сімнадцять ' else 
begin a1[z+1]:=' Сімнадцять ';  pr:=False; end;
 
                    8:if not pr then a1[z+1]:=' вісімнадцять ' 
else begin a1[z+1]:=' Вісімнадцять '; pr:=False; end;
 
                    9:if not pr then a1[z+1]:=' дев’ятнадцять ' 
else begin a1[z+1]:=' Дев’ятнадцять '; pr:=False; end;
 
                  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 else
 
                     begin
 
                       if not pr then a1[z+2]:=' одна ' else
 
                         begin