Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 10.10.2016
Сообщений: 53
1

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

10.10.2016, 23:58. Просмотров 1047. Ответов 1
Метки нет (Все метки)

Ввести пользователя "гость" или "админ" по его паролю , если пароль не верный требуется повторить ввод пароля !
Пароль для админа k12 к примеру , гостя 12k (цыклы)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.10.2016, 23:58
Ответы с готовыми решениями:

В чем ошибка? Когда печатаю "а" или "б" все работает, а когда "А" или "Б" то он не меняет "А" на "Б"
{Программа заменяет буквы "а" на буквы "б" в введенном тексте} var stroka : string; i :...

Как перевести числа с "String" в "integer" или "Real"?
как перевести числа с "String" в "integer" или "Real"?

Заменить в строке "." на ";", "." на ".", убрать лишние пробелы. Не могу доделать один кусочек
Не соображу, как уместить два действия так, чтобы работали оба, а именно, исходные "." заменить на...

Заменить в строке "Мама мыла раму" буквы "а" на знак "_" . Вывести полученный массив на экран
Заменить в строке "Мама мыла раму" буквы "а" на знак "_" . Вывести полученный массив на экран....

1
Эксперт Pascal/Delphi
2352 / 1273 / 1481
Регистрация: 29.08.2014
Сообщений: 4,592
11.10.2016, 05:02 2
Лучший ответ Сообщение было отмечено Gander как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.10.2016, 05:02

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Удалить из последовательности символов S все слова, оканчивающиеся группой букв, "кая" или "кое"
Даны натуральное число n, символы S1,... Sn. Будем рассматривать слова, образованные символами, ...

Ввести слово, вывести "ДА" если первый и последний символ совпадает, в противном случае вывести "НЕТ"
Ввести слово, вывести &quot;ДА&quot; если первый и последний символ совпадает, в противном случае вывести...

Составьте программу замены в слове Х всех букв "а" и "я" на слог "по"
Составьте программу замены в слове Х всех букв &quot;а&quot; и &quot;я&quot; на слог &quot;по&quot;. заранее спасибо!

Как скрыть в graphABC кнопки "свернуть", "Развернуть", "Закрыть"
Как скрыть в graphABC кнопки &quot;свернуть&quot;, &quot;Развернуть&quot;, &quot;Закрыть&quot;

Подсчитать количество слов, которые заканчиваются буквами "е" или "Е"
Дано некоторый текст. Группы символов, разделенных пробелами (одним или несколькими) и не содержите...

Выяснить, каких букв ("а" или "б") в слове Х больше
составьте программу, выясняющую, каких букв (а или б) в слове Х больше Помогите, пожалуйста.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.