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

0 голосов
53 просмотров

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

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

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


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


Информатика (21 баллов) | 53 просмотров
0

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

0

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

0

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

0

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

0

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

0

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

Дан 1 ответ
0 голосов
Правильный ответ

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


Скачать вложение Adobe Acrobat (PDF)
image
(13.2k баллов)
0

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

0

Просто writeln(k);

0

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