IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Приложение Windows Forms
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской

Репутация: -  0  +


Никак не проходит код в приложении.. Может я что-то не так разделяю..
Помогите разобрать этот код по частям, чтобы создать приложение, прошу!!!


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.



__________
Примерное окно приложения в файле.

Сообщение отредактировано: Nastya -


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 481
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  9  +


При чём здесь шифр?

Данный код работает?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 16:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name