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

     I, N : Byte;

     X, Y : BT; Code : Integer;

     NS : U;

 Begin

   Write('Введите имя файла: ');   ReadLn(S1);

   Assign(T, S1);   ReSet(T);

   NS := Nil;

   While Not Eof(T) Do

    Begin

      ReadLn(T, S);  I := 1;

      While I <= Length(S) Do

        Begin

          If S[I] In ['0'..'9']

          Then

          Begin

           N := I;

           While S[I] In ['0'..'9'] Do

            I := I + 1;

           Val(Copy(S, N, I - N), X, Code);

          V_Stack(NS, X);

          End

          Else

          If S[I] In Znak

          Then

           Begin

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





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