Ввести пользователя "гость" или "админ" по его паролю

@Gander · Регистрация: 10.10.2016

Ввести пользователя "гость" или "админ" по его паролю , если пароль не верный требуется повторить ввод пароля !
Пароль для админа k12 к примеру , гостя 12k (цыклы)

@Joy · 11.10.2016, 05:02

Pascal

uses crt;
var
 l,p:string;
   c:char;
begin
  repeat
    clrscr;
    write('login:');readln(l);
    l:=uppercase(l);
    write('password:');
    p:='';
    repeat
      c:=readkey;
      if c<>#13 then begin write('*');p:=p+c;end;
    until c=#13;
    writeln;
  until ((l='ADMIN') and (p='k12')) or ((l='GUEST') and (p='12k'));
  writeln('Hello '+l);
end.

@Gander 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 53
		1
	Ввести пользователя "гость" или "админ" по его паролю 10.10.2016, 23:58. Просмотров 1047. Ответов 1 Метки нет (Все метки) Ввести пользователя "гость" или "админ" по его паролю , если пароль не верный требуется повторить ввод пароля ! Пароль для админа k12 к примеру , гостя 12k (цыклы) 0

Опции темы

Ввести пользователя "гость" или "админ" по его паролю

Решение