Question

В задании обязательно нужно использовать процедуру или функцию – для выполнения основной работы. Если результатом работы подпрограммы является значение простого типа или строка, то разработайте функцию, иначе – процедуру. При этом данные в процедуру или функцию должны передаваться исключительно через параметры. Результаты работы процедуры должны передаваться в главную программу также только через параметры. Результаты работы функции – через имя функции и параметры. Подпрограмма не должна использовать глобальные переменные ( это требование - в учебных целях ). Подпрограмма не должна быть откликом на событие ( Button1Click, FormDblClick и т п. ), т е она должна быть полностью самодельной – от заголовка (Procedure ИМЯ …) до конца ( end; ).

вот мой вариант:

Программа содержит процедуру подбора пароля. Известна длина
пароля ( < 6 ) и пароль ( латинский ) . Делает простой перебор
букв входящих в слово – до тех пор, пока слово не совпадет с
паролем. В качестве результата выдает количество проверенных
вариантов.


Программа должны быть написана в Delphi даю 80 балов если программа будет работать правильно.

Answer 1

Вариант сыроват, но условно работает.
И это не Delphi, a Lazarus. Но надеюсь, содержимое  файла основного модуля
unit_psw.pas  сильно отличаться не будет.
У кого Lazarus, файл *.ods переименуйте в *.zip
и распакуйте архив там весь проект.

ba1eafcd8acba480657c4e2395b5edd1.pdf

3275e5b58c44f95920b602a080f9f904.pas

7eb58e3eb250116a2bb0f4db91510a68.ods

Answer 2

И всё же странно почему в теле цикла программа "не хочет" работать с метками. Ни текст не меняется ни цвет. А вот вывод в консоль работает. Хотя бы видно, что программа работает, а не "висит".

Answer 3

Просто writeln(k);

Answer 4

Writeln(PSW); Можно видеть в каком порядке перебираются комбинации.