В задании обязательно нужно использовать процедуру или функцию – для выполнения основной...

0 голосов

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

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

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


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


спросил от (21 баллов) в категории Информатика
оставил комментарий от Бакалавр (13.2k баллов)

А запускать её как? При старте приложения?

оставил комментарий от Бакалавр (13.2k баллов)

Ну и кто-то должен ей данные передать. ТО с чем она сравнивать будет.

оставил комментарий от Бакалавр (13.2k баллов)

Этот верный пароль хранится где В основной программе?

оставил комментарий от Бакалавр (13.2k баллов)

Ну так что скажете насчёт образца пароля и запуска? Написать процедуру с нуля можно. Но какое событие будет её вызывать (запускать)?

оставил комментарий от (21 баллов)

как я понял программа заранее в себе имеет пароль из 6 символов например: qweasd. старт ее при открытие приложения и вывод 1 должен быть в Edit1 (сам пароль) а вывод 2 в Label1(количество попыток)

оставил комментарий от (21 баллов)

по возможности мне нужна полностью рабочая программа к 11.00 по МСК, я физически не успеваю ее написать и уже запутался в ней.

1 Ответ
0 голосов
ответил от Бакалавр (13.2k баллов)
 
Лучший ответ

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


Скачать вложение Adobe Acrobat (PDF)
image
оставил комментарий от Бакалавр (13.2k баллов)

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

оставил комментарий от Бакалавр (13.2k баллов)

Просто writeln(k);

оставил комментарий от Бакалавр (13.2k баллов)

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

...