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



           9: s:=s+'9';

           end;

          l1:=l1 div 10;

       end;

        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';

          9: s:=s+'9';

          end;

     FromIntToString:=s;

   end;

{--Функция генерации (основная)----------------------------------------------}

function generate;

   begin

     generate:=trunc(abs(122.5*(sin(ln(a)*x)+sin(cos(b)*x))));

   end;

{--Процедура добавления в список списков----------------------------------------------}

procedure add_in_llist;

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

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