Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 07.01.2019
Сообщений: 85
1

Выбрать пароли, соответствующие заданным условиям

10.01.2019, 09:01. Показов 1428. Ответов 15

Здравствуйте!Нужна помощь.Спасибо за ранее.
Ученик подбирает себе новый пароль. Он хочет, чтобы выполнялись такие условия:
1.Пароль был не короче 8 символов, но и не длиннее 12 символов
2.Он не должен содержать последовательность из двух или более букв, расположенных на клавиатуре в одном ряду друг за другом (цифры и другие символы можно)
3.В нем было бы или 2 четные или 3 нечетные цифры
4.Если бы в нем была буква А, то был бы и знак восклицания
Выберите из списка возможные строки, которые могли бы подойти ученику.
Во всех вариантах записаны только латинские буквы.
Варианты:
20Bqwerty
124357911
!!!A07
AAAAAA!!!!!!!
A12345678
A!00
!!!A2378
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2019, 09:01
Ответы с готовыми решениями:

Соответствует ли последовательность заданным условиям
Ввести N чисел, проверить, являются ли введенные числа перестановкой {1,2,3,4,.....,2*n-1}. А...

Cjplfnm матрицe по заданным условиям
помогите пожалуйста. создать матрицу заданные условия 10203 10203 10203 простейшая, видимо...

Преобразование массива по заданным условиям
в одномерном массиве проверить встречается ли меньше 10,если да то отрицательные элементы заменить...

Обработка массива по заданным условиям
1)Дан А(5,5), найти четные числа массива. 2)Дан А(6),вывести элементы массива по возрастанию....

15
417 / 351 / 126
Регистрация: 09.09.2011
Сообщений: 1,258
12.01.2019, 00:49 2
в чем возникает трудность?
0
0 / 0 / 0
Регистрация: 07.01.2019
Сообщений: 85
12.01.2019, 07:39  [ТС] 3
В составлении программы,которая будет работать.(Pascal ABC)
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5758 / 3462 / 2449
Регистрация: 22.11.2013
Сообщений: 9,723
Записей в блоге: 1
12.01.2019, 10:48 4
Лучший ответ Сообщение было отмечено Like a Sir как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
function Check1(const s: String): Boolean;
begin
  Check1:=Length(s) in [8..12];
end;
 
function Check2(const s: String): Boolean;
const Rows: array [0..2] of String[10] = ('QWERTYUIOP', 'ASDFGHJKL', 'ZXCVBNM');
var i, j: Integer; t: String[2];
begin
  Check2:=False;
  for i:=1 to Length(s)-1 do begin
    t:=UpCase(s[i])+UpCase(s[i+1]);
    for j:=Low(Rows) to High(Rows) do
      if Pos(t,Rows[j])<>0 then Exit;
  end;
  Check2:=True;
end;
 
function Check3(const s: String): Boolean;
var i, k1, k2: Integer;
begin
  k1:=0; k2:=0;
  for i:=1 to Length(s) do if (s[i] in ['0'..'9']) then
    if Odd(Ord(s[i])) then Inc(k1) else Inc(k2);
  Check3:=(k1=3) xor (k2=2);
end;
 
function Check4(const s: String): Boolean;
begin
  Check4:=True;
  if (Pos('A',s)<>0) or (Pos('a',s)<>0) then Check4:=Pos('!',s)<>0;
end;
 
function Check(const s: String): Boolean;
begin
  Check:=Check1(s) and Check2(s) and Check3(s) and Check4(s);
end;
 
var s: String;
begin
  Write(': '); ReadLn(s);
  while s<>'' do begin
    WriteLn('"',s,'": ',Check(s));
    Write(': '); ReadLn(s);
  end;
end.
1
0 / 0 / 0
Регистрация: 07.01.2019
Сообщений: 85
12.01.2019, 13:33  [ТС] 5
а тут же 20Bqwerty не подходит.А в программе указывает что верно.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5758 / 3462 / 2449
Регистрация: 22.11.2013
Сообщений: 9,723
Записей в блоге: 1
12.01.2019, 13:53 6
Цитата Сообщение от Like a Sir Посмотреть сообщение
а тут же 20Bqwerty не подходит.А в программе указывает что верно.
Pascal
11
  for i:=1 to Length(s)-1 do begin
0
0 / 0 / 0
Регистрация: 07.01.2019
Сообщений: 85
12.01.2019, 14:35  [ТС] 7
!!!A2378 этот тоже не подходит ,но пишет что правильный .
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5758 / 3462 / 2449
Регистрация: 22.11.2013
Сообщений: 9,723
Записей в блоге: 1
12.01.2019, 17:26 8
Не подходит почему?
1) не короче 8 и не длиннее 12: 8 символов, TRUE
2) буквы рядом: отсутствуют, TRUE
3) или 2 четные или 3 нечетные цифры: (2,8)=2, (3,7)=2, TRUE
4) если "A", то и "!": есть и "A", и "!", TRUE
Итого: все условия соблюдены, TRUE
0
Модератор
8539 / 4249 / 2921
Регистрация: 17.08.2012
Сообщений: 13,500
12.01.2019, 21:27 9
bormant, насчёт пункта 3), полагаю, имеется ввиду, что пароль должен содержать либо точно 2 чётных цифры, и больше никаких других цифр, либо точно 3 нечётных цифры, и больше никаких других цифр.

Получается, что ни один пароль не подходит:

20Bqwerty - содержит последовательность из двух или более букв, расположенных на клавиатуре в одном ряду
124357911 - цифр больше, чем нужно
!!!A07 - короче 8 символов, две цифры разной чётности
AAAAAA!!!!!!! - цифр меньше, чем нужно
A12345678 - цифр больше, чем нужно
A!00 - короче 8 символов
!!!A2378 - цифр больше, чем нужно
0
0 / 0 / 0
Регистрация: 07.01.2019
Сообщений: 85
13.01.2019, 09:14  [ТС] 10
Цитата Сообщение от bormant Посмотреть сообщение
Не подходит почему?
1) не короче 8 и не длиннее 12: 8 символов, TRUE
2) буквы рядом: отсутствуют, TRUE
3) или 2 четные или 3 нечетные цифры: (2,8)=2, (3,7)=2, TRUE
4) если "A", то и "!": есть и "A", и "!", TRUE
Итого: все условия соблюдены, TRUE
Он не должен содержать последовательность из двух или более букв, расположенных на клавиатуре в одном ряду друг за другом (цифры и другие символы можно)

Добавлено через 4 минуты
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
bormant, насчёт пункта 3), полагаю, имеется ввиду, что пароль должен содержать либо точно 2 чётных цифры, и больше никаких других цифр, либо точно 3 нечётных цифры, и больше никаких других цифр.

Получается, что ни один пароль не подходит:

20Bqwerty - содержит последовательность из двух или более букв, расположенных на клавиатуре в одном ряду
124357911 - цифр больше, чем нужно
!!!A07 - короче 8 символов, две цифры разной чётности
AAAAAA!!!!!!! - цифр меньше, чем нужно
A12345678 - цифр больше, чем нужно
A!00 - короче 8 символов
!!!A2378 - цифр больше, чем нужно
Странно,но поддержка мне утверждает что там есть правильные ответы...Я им тоже говорил,что ответов нет правильных,которые подходят по условию.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5758 / 3462 / 2449
Регистрация: 22.11.2013
Сообщений: 9,723
Записей в блоге: 1
13.01.2019, 09:31 11
Cyborg Drone,
если так читать условие, то
Pascal
25
  Check3:=(k1=3) and (k2=0) or (k1=0) and (k2=2);
Like a Sir,
!!!A2378
не должен содержать последовательностей, и не содержит их. Или содержит? Тогда какие?
0
0 / 0 / 0
Регистрация: 07.01.2019
Сообщений: 85
13.01.2019, 11:03  [ТС] 12
Цитата Сообщение от bormant Посмотреть сообщение
Cyborg Drone,
если так читать условие, то
Pascal
25
  Check3:=(k1=3) and (k2=0) or (k1=0) and (k2=2);
Like a Sir,
!!!A2378
не должен содержать последовательностей, и не содержит их. Или содержит? Тогда какие?
Данное число !!!A2378 не соответствует 3 пункту(3.В нем было бы или 2 четные или 3 нечетные цифры).
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5758 / 3462 / 2449
Регистрация: 22.11.2013
Сообщений: 9,723
Записей в блоге: 1
13.01.2019, 20:05 13
Like a Sir,
почему? "или 2 четные цифры" в нем есть, а вербальный способ задания условия сам по себе недостаточно определенный...

Опишите его формально-логически в условии задачи, получите адекватную реализацию; адекватную формально-логическому описанию.
Правда соответствие исходного условия формально логическому все равно целиком останется на вас...
0
Модератор
8539 / 4249 / 2921
Регистрация: 17.08.2012
Сообщений: 13,500
13.01.2019, 23:18 14
Like a Sir, получается, что в задании есть разночтения. Требуется уточнение. Хотя бы пример нескольких подходящих паролей. Иначе так и будем гадать на кофейной гуще до морковкина заговенья.
0
0 / 0 / 0
Регистрация: 07.01.2019
Сообщений: 85
14.01.2019, 14:52  [ТС] 15
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Like a Sir, получается, что в задании есть разночтения. Требуется уточнение. Хотя бы пример нескольких подходящих паролей. Иначе так и будем гадать на кофейной гуще до морковкина заговенья.
!!!A2378 124357911 вот эти два выбрал,жду результаты 16.А так спасибо за составление программы для Паскаль,много чего узнал.
0
0 / 0 / 0
Регистрация: 07.01.2019
Сообщений: 85
19.01.2019, 06:38  [ТС] 16
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Like a Sir, получается, что в задании есть разночтения. Требуется уточнение. Хотя бы пример нескольких подходящих паролей. Иначе так и будем гадать на кофейной гуще до морковкина заговенья.
Они оказались правильными!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2019, 06:38

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

Необходимо сформировать новый одномерный массив по заданным условиям
Элементы одномерного массива T(K) получаются расчетом по формуле T(K)=tg(2K)-Kcos(K), где K -...

Определить, есть ли в двумерном массиве столбцы, удовлетворяющие заданным условиям
Дан двумерный массив целых чисел. Определить: а) есть ли в нем столбец, состоящий только из нулей;...

Генерация и обработка чисел по заданным условиям
Напишите программу которая реализует: 1. генерируются случайные числа x и y 2. Выводятся значения...


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

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

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