Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

     array_type=array[1..8] of longint;

function generate(x: integer; a, b: byte):integer;

procedure add_in_llist(x: integer; s: string; var gr: llist);

procedure print_llist(gr: llist);

procedure summ_all(gr: llist; var a:array_type);

function FromIntToString(L: longint):string;

implementation

{--Эта функция переводит из целочисленного типа в символьный----------------------------------------------}

function FromIntToString;

   var s: string;

       l1: longint;

   begin

     l1:=l; s:='';

0) do

       begin

         case l1 mod 10 of

           0: s:=s+'0';

           1: s:=s+'1';

           2: s:=s+'2';

           3: s:=s+'3';

           4: s:=s+'4';

           5: s:=s+'5';

           6: s:=s+'6';

           7: s:=s+'7';

           8: s:=s+'8';

Рекомендуем скачать другие рефераты по теме: менеджмент, скачать сочинение.

Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата