Никак не проходит код в приложении.. Может я что-то не так разделяю..
Помогите разобрать этот код по частям, чтобы создать приложение, прошу!!!
var
s: string;
index, key: array[1 .. 255] of integer;
i, j, T: integer;
len, curr: integer;
begin
Write('Введите текст: ');
readln(s);
Write('Введите длину ключа: ');
readln(len);
Write('Введите числа ключа через пробел: ');
for i := 1 to len do
Read(key[i]);
readln;
for i := 1 to len do
index[i] := i;
for i := 1 to len do
for j := len downto i + 1 do
begin
if key[index[j - 1]] > key[index[j]] then
begin
T := index[j - 1];
index[j - 1] := index[j];
index[j] := T;
end;
end;
for i := 1 to len do
begin
curr := index[i];
while curr <= length(s) do
begin
Write(s[curr]);
Inc(curr, len);
end;
end;
writeln;
end.
__________
Примерное окно приложения в файле.
Эскизы прикрепленных изображений
Это PascalABC.NET. В оконных приложениях несколько иная логика пользовательского интерфейса. Вам придётся разобраться самостоятельно, по примерам.
При чём здесь шифр?
Данный код работает?
Вы осознайте, что Windows Form - это всего лишь пользовательский интерфейс.
Научитесь вводить и выводить строки и числа - и всё задача решена.
У меня нет PABC.NET и подсказывать не по алгоритму не смогу.
Там, по идее нужно кнопку разместить, назначить обработчик события и в этом обработчике выполнить полезную работу. Есть другие варианты, назначить обработчики на изменение текста в полях формы и при каждом изменении пересчитывать.