Реферат Практична обробка набору даних, представленого у вигляді файлу

ign="justify"> Sozdanie (var mas: F; var KolvoElm: integer) ;: integer;: string ;: file of bank;: char; (black) ;; (green);:=0;:= 1; i=1 do (KolvoElm); ( Vvedite Adres banka: ); (Mas ^ [KolvoElm] .adres); ( Vvedite Kolvo Vkladchikov: ); (Mas ^ [KolvoElm] .Kolvo ); ( Vvedite Summu vkladov: ); (Mas ^ [KolvoElm] .Summa);

( Vvedite Tip Banka: 1-Gosudarst 2-Akcionern 3-Chastnii: ); (i); i of

: Mas ^ [KolvoElm] .Tip:=Gosudarst;

: Mas ^ [KolvoElm] .Tip:=Akcionern;

: Mas ^ [KolvoElm] .Tip:=Chastnii ;; ( Hotite vvesti eshe? Da - 1, Net - 2 ); (i) ;;

:=readkey ;; DobavVkon (var mas: F; var KolvoElm: integer) ;: integer; (black) ;; (green); (KolvoElm); ( Vvedite Adres banka: raquo ;); (Mas ^ [KolvoElm] .adres); ( Vvedite Kolvo Vkladchikov: ); (Mas ^ [KolvoElm] .Kolvo); ( Vvedite Summu vkladov: ); (Mas ^ [KolvoElm ] .Summa);

( Vvedite Tip Banka: 1-Gosudarst 2-Akcionern 3-Chastnii: ); (i); i of

: Mas ^ [KolvoElm] .Tip:=Gosudarst;

: Mas ^ [KolvoElm] .Tip:=Akcionern;

: Mas ^ [KolvoElm] .Tip:=Chastnii ;; ( Hotite vvesti eshe? Da - 1, Net - 2 ); (i); i=2 ;;

Porsmotr (mas: F; KolvoElm:integer);,k,j:integer;,x:longint;:char;(black);;(green);(laquo;?????????????????????????????????????????????????????raquo;);(laquo;? Adres? Vkladchikov? Summa? Tip banka? Raquo;);

i:=1 to KolvoElm do ( ???????????????????????????????? ????????????????????? ); ( laquo ;? , mas ^ [i] .adres); k:=1 to 11-length ( mas ^ [i] .adres) do ( );

{end for k:=1 ..} ( laquo ;? , mas ^ [i] .kolvo);:=0; (z);:=mas ^ [i]. kolvo;:=k div 10;:=j; (j lt; 10) and (j lt; gt; 0) then (z);:=0 ;; j=0;

x:=1 to 11-z do ( );

{end for k:=1 ..}

:=round (mas ^ [i] .summa); ( laquo ;? , x);:=0;

(k);:=x div 10;:=z; (x lt; 10) and (x lt; gt; 0) then (k);:=0 ;; x=0;

j:=1 to 10-k do ( );

{end for k:=1 ..} mas ^ [i] .Tip of: write ( laquo ;? Gosudarst ) ;: write ( laquo ;? Akcionern ) ;: write ( laquo ;? Chastnii ) ;; (? ) ;;

{end for i:=1 ..} ( ????????????????????????????? ???????????????????????? );:=readkey ;;

Poisk (mas: F; KolvoElm: integer) ;, k, j: integer;, x: longint;: char; (black) ;; (green); ( Vvedite nomer el-ta ); (i);

( ??????????????????????????????????????? ?????????????? ); ( laquo ;? Adres? Vkladchikov? Summa? Tip banka? ); ( ???????????? ????????????????????????????????????????? ); ( laquo ;? , mas ^ [i] .adres); k:=1 to 11-length (mas ^ [i] .adres) do ( );

{end for k:=1 ..} ( laquo ;? , mas ^ [i] .kolvo);:=0; (z);:=mas ^ [i]. kolvo;:=k div 10;:=j; (j lt; 10) and (j lt; gt; 0) then (z);:=0 ;; j=0;

x:=1 to 11-z do ( );

{end for k:=1 ..}

:=round (mas ^ [i] .summa); ( laquo ;? , x);:=0;

(k);:=x div 10;:=z; (x lt; 10) and (x lt; gt; 0) then (k);:=0 ;; x=0;

j:=1 to 10-k do ( );

{end for k:=1 ..} mas ^ [i] .Tip of: write ( laquo ;? Gosudarst ) ;: write ( laquo ;? Akcionern ) ;: write ( laquo ;? Chastnii ) ;; (? ); ( ????????????????????????????? ???????????????????????? );:=readkey ;;

Perehod (var mas: F; var KolvoElm: integer) ;: string ;: file of bank;: char; (black) ;; (green);:=0; ( Vvedite Pytb k faily ); (PytbKfail); (fail, PytbKfail); (fail); not eof (fail) do (KolvoElm); (fail, mas ^ [KolvoElm]) ;;

{end while not ..} (fail);

( Perehod vipolnen:) );:=readkey ;;

UdalenieOtVibran (var mas: F; var KolvoElm: integer) ;, k: integer; (black) ;; (green); ( Vvedite nomer el-ta nachinaya s kotorogo vse ydalite: raquo ;); (i);:=(i - 1) ;;

DobavVfail (mas: F; KolvoElm: integer) ;: string ;: file of bank;, k: integer;: char;: T; (black) ;; (green); ( Vvedite Pytb k faily ); (PytbKfail); (fail, PytbKfail); (fail); not eof (fail) do (k); (fail, mas1 [k]) ;; (fail); (fail); i :=1 to k do (fail, mas1 [i]);

{end for ..} i:=1 to KolvoElm do (fail, mas ^ [i]); (fail); (black) ;; (green); ( Dobavleno :) );:=readkey ;;.