Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

Procedure NewF;

    Var h1:string;          {объявление локальных переменных}

    Begin

    Window(10,10,53,15);

    TextBackGround(black);

    clrscr;

    Window(20,10,66,15); {начальное окно}

    TextBackGround(blue);

    clrscr;

    TextColor(black);

    Write('сохранить файл как ');

    Readln(a); {ввод пути создаваемого файла без расширения}

    a:=a+'.ts'; {дописывание расширения}

    h1:=a;

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

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

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

    Rewrite(c);

    Rewrite(u);

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

    TextBackGround(black);

    clrscr;

    Window(30,5,50,10); {открытие окна характеристик}

    TextBackGround(yellow);

    clrscr;

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



Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки