Предыдущая страница реферата | 13  14  15  16  17  18  19  20  21  22  23 | Следующая страница реферата

        TextColor(black);

        clrscr;

        Window(20,10,66,15);     {открытие начального окна}

        TextBackGround(blue);

        clrscr;

        Writeln('Какой файл редактировать ');

        Readln(a); {ввод пути к редактируемому файлу }

        a2:=a;

        Window(20,10,66,15); {закрытие начального окна}

        TextBackGround(black);

        clrscr;

        Assign(c,a); {связь переменной с файлом вопросов}

        a:=a+'o'; {изменение расширения}

        Assign(u,a); {связь переменной с файлом ответов}

        delete(a,length(a),1);

        a:=a+'1'; {изменение расширения}

        Assign(y,a); {создание нового файла вопросов}

        delete(a,length(a),1);

        a:=a+'2'; {изменение расширения}

        Assign(a1,a); {создание нового файла ответов}

        Reset(c); {установка и загрузка файлов}

        Reset(u);

        Rewrite(y);

        Rewrite(a1);

        Window(5,5,50,20); {окно просмотра файла}

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





Предыдущая страница реферата | 13  14  15  16  17  18  19  20  21  22  23 | Следующая страница реферата