Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

        f1:=a;

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

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

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

        Assign(b1,'c:pascalregistr.dat'); {связь переменной с файлом отчета}

        Append(b1); {открытие файла отчета для дозаписи}

        Reset(c); {открытие файла вопросов для чтения}

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

        TextBackGround(black);

        clrscr;

        Reset(u);

        Read(c,b); {считывание пароля}

        Readln(c,b);

        z:=ord(b)-ord('0'); {установка времени}

        z1:=z;

        Window(10,10,40,12); {окно пароля}

        TextBackGround(magenta);

        clrscr;

        Readln(u,a);

        If length(a)>2 Then Begin{проверка наличия в файле пароля}

                            Write('введите пароль ');

                            Readln(f); {ввод пароля}

                            If a<>f Then Begin

                            Write('пароль неверный');

                            GoTo l1; {выход из процедуры}

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



Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

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