Проверка логина и пароля. Данные считываются с файла «C:\temp\password.txt»

Проверка логина и пароля. Данные считываются с файла «C:\temp\password.txt»

Тема в разделе "Темы со старого форума", создана пользователем Бэкап, 05.05.2015.

Загрузка...
Ответов: 0 Просмотров: 207 Ответить в теме
Воспользуйтесь функцией автоматического продвижения темы для увеличения числа просмотров темы, продаж платного контента и узнаваемости Вашего бренда. Услуга продвижения действует на протяжении 3-х дней и стоит всего 50 STF Wallet.

Продвинуть тему
  1. Бэкап
    uses crt;
    var log1,pas1,Name_all,pas,log:string;
    t:text;
    begin
    Name_all:='C:\temp\password.txt';
    write('Введитье логин: ');
    readln(log);
    write('Введитье пароль: ');
    readln(pas);
    assign(t,Name_all);
    reset(t);
    readln(t,log1);
    writeln(log1);
    readln(t,pas1);
    writeln(pas1);
    close(t);
    Clrscr;
    if (log = log1) and (pas = pas1)then writeln('Добро пожаловать!')
    else
    begin
    TextColor(4);
    writeln('Логин или пароль не верный!');
    end;
    TextColor(0);
    end.
     
    05.05.2015 Сообщений: Симпатий:
В этой теме всего одна страница
Вам, как гостю, ограничены возможности взаимодействия с темами. Пройдите бесплатную регистрацию и откройте для себя море возможностей.