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

    T : Text;

    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

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





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