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

Radka
Oct 24, 2020
Вариант сыроват, но условно работает.
И это не Delphi, a Lazarus. Но надеюсь, содержимое файла основного модуля
unit_psw.pas сильно отличаться не будет.
У кого Lazarus, файл переименуйте в
и распакуйте архив там весь проект.
И это не Delphi, a Lazarus. Но надеюсь, содержимое файла основного модуля
unit_psw.pas сильно отличаться не будет.
У кого Lazarus, файл переименуйте в
и распакуйте архив там весь проект.
- И всё же странно почему в теле цикла программа "не хочет" работать с метками. Ни текст не меняется ни цвет. А вот вывод в консоль работает. Хотя бы видно, что программа работает, а не "висит".
604
Смежные вопросы: