Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Выведите фамилии и имена учащихся в порядке убывания их среднего балла https://www.cyberforum.ru/ pascalabc-net/ thread1823549.html
Выведите фамилии и имена учащихся в порядке убывания их среднего балла. Входные данные Заданы сначала количество учащихся n, затем n строк, каждая из которых содержит фамилию, имя и три числа...
Определите трех учащихся с наилучшим средним баллом по трем предметам PascalABC.NET
Определите трех учащихся с наилучшим средним баллом по трем предметам. Выведите фамилии и имена этих учащихся. Если при этом у нескольких учащихся средний балл совпадает со средним баллом учащегося,...
PascalABC.NET Определите средний балл всех учащихся по каждому предмету
Определите средний балл всех учащихся по каждому предмету. Входные данные Заданы сначала количество учащихся n, затем n строк, каждая из которых содержит фамилию, имя и три числа (оценки по трем...
PascalABC.NET Найти произведение номера наибольшего положительного и наименьшего отрицательного элементов массива Задание : Найти произведение номера наибольшего положительного и наименьшего отрицательного элементов массива С(15) Текст программы: program lab8; const n = 15; var С: array of... https://www.cyberforum.ru/ pascalabc-net/ thread1823413.html
PascalABC.NET Вывести числа из промежутка [A,B] кратные количеству этих чисел https://www.cyberforum.ru/ pascalabc-net/ thread1823328.html
Вывести числа из промежутка кратные количеству этих чисел. (Прощу помощи, решать нужно через цикл.):wall:
Поправить программу с массивами, чтобы она соответствовала заданному условию PascalABC.NET
как изменить программу, чтобы не было вот этой строчки write('Количество элементов: '); readln(n);, надо чтобы автоматически массив выходил const nmax=50; var a:array of integer; b:array ...
PascalABC.NET Положительные элементы сделать отрицательными, а отрицательные положительными и перевернуть массив
Написать программу, которая заполняет массив случайными элементами из промежуткам , где А-отрицательное B-положительное. Вывести массив. Инверсировать массив по принципу: положительные сделать...
PascalABC.NET Координатный метод нахождения угла Доброго времени суток. На плоскости даны координаты точек 1(x1,y1) и 2(x2,y2). Из точки 1 проведена прямая, параллельная оси x(ни одна из точек на самих осях не лежит, сами точки могут иметь как... https://www.cyberforum.ru/ pascalabc-net/ thread1823158.html
PascalABC.NET Найти среднее арифметическое чисел, принадлежащих промежутку https://www.cyberforum.ru/ pascalabc-net/ thread1823089.html
Найти среднее арифметическое чисел, принадлежащих промежутку [А, В) и количество положительных чисел, стоящих на местах, кратных 4.
PascalABC.NET Вычислить сумму положительных чисел стоящих на местах кратных 3 вычислить сумму положительных чисел стоящих на местах кратных 3 и подсчитать колличество чисел равных задонному т https://www.cyberforum.ru/ pascalabc-net/ thread1823087.html
Эксперт Pascal/Delphi
2357 / 1277 / 1483
Регистрация: 29.08.2014
Сообщений: 4,600
11.10.2016, 05:02 0

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

11.10.2016, 05:02. Просмотров 1050. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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;

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

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

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