Первоклассный хакер (TurboPascal)

[VladKB1]

Всем привет!

Я хочу что бы вы посмотрели на мою задачу и сказали нет ли в ней подвоха? А то я решил, а чувство какое-то не то... И протестировать смогу только в пятницу (я хочу что бы сразу прошли все тесты ).

Первоклассный хакер

Агенту Даниилу дали задание по взлому вражеской организации.
С помощью своего недюжинного обаяния агенту Даниилу удалось выяснить, что паролем от
вражеской базы данных является максимальное число, которое можно составить из n чисел.
Но агент Даниил понял, что сам не справится, поэтому он обращается к вам за помощью.
Вам даны n чисел, из которых нужно составить корректный пароль.

Формат ввода: в первой строке входного файла находится целое число n(n ≤ 250). Далее - n
строк, в каждой из которых находится одно число a[i], которое является частью пароля.
Формат вывода: одно число – ответ на задачу. Не добавляйте перевод строки в конце числа.

genpass.in
3
348
352
1

passgen.out
3523481

Вот код:

var
 n,i,j: integer;
 s: array [1..250] of string;
 password,st: string;
begin
 assign(input,'passgen.in');
 reset(input);
 assign(output,'passgen.out');
 rewrite(output);

 readln(n);
 for i:=1 to n do readln(s[i]);

 for i:=1 to n do
 for j:=i to n do
 if s[j] > s[i] then
 begin
  st:='';
  st:=st+s[j];
  s[j]:='';
  s[j]:=s[j]+s[i];
  s[i]:='';
  s[i]:=s[i]+st;
 end;

 for i:=1 to n do password:=password+s[i];
 write(password);
end.

Всем заранее спасибо!

[min@y™]

я тебе 2 секрета открою.

1. переменные могут иметь имена длинее 1 буквы;
2. в программу можно вставлять комментарии.

обязательно пользуйся этими 2-мя секретами, прежде чем показать свой говнокод людям.

[crazy horse]

2min@y™ Я тебе тоже секрет открою. Советы могут быть развернутыми. Две одинаковые буквы так же длиннее одной. Если уж так не терпится дать совет, стоит подумать, а не большее ли он говно, чем приложенный код, который, собственно, и не претендует на какие-то изыски изначально. В данном же случае, это просто высер. Что касается топикстартера, то его вопрос, вообще-то, чуть ли не образцовый.

[Poma][a]

st:='';
st:=st+s[j];

А ты знаешь, что можно сделать сразу так : st := s[j];

И еще.. Я уверен, что этот код не правильный (уж пардон).. Доказать смогу вечером..

А вот тыц

[VladKB1]

Сообщение от Poma][a

А ты знаешь, что можно сделать сразу так : st := s[j];

И еще.. Я уверен, что этот код не правильный (уж пардон).. Доказать смогу вечером..

А вот тыц

Неа так сразу сделать нельзя, потому что при повторном присваивании предыдущие число останется (наверно так только в TurboPascal-е).

А тут же вроде правильно? Я прав? Там написано составить максимальное число из чисел.
stdin
4
10000
9
1000001
3

stdout
93100000110000

[Аватар]

93100000110000

stdout
93100001000001 > 93100000110000

[VladKB1]

Сообщение от Аватар

stdout
93100001000001 > 93100000110000

Всё понял, спасибо. Блин, и как это исправить? Тут должно быть лексикографическое сравнение? Так же? Короче как мне это исправить?

[Poma][a]

Про турбо : ставлю кошоладку, что ты не прав. Докажу только через 3ч.
Про задачу : опять же, тут очень хорошо смотрелась бы функция.
Можно сделать так : ждать китов форума.. Они при думают вариант с обычным (правда насовсем) сравнением строк..
Можешь поискать по форуму.. Такая тема точно была.. Там заправлял eoln
А можешь.. Ты должен правильно сравнивать строки.. Пока могу предложить такой вариант : заводим две новые переменные, присваиваемое им значения ai и aj.. И ещё m := max(длина ai, длина aj).. И добивает строки до длины m нулями..дальше можно сравнивать уже по обычному

[VladKB1]

Сообщение от Poma][a

Про турбо : ставлю кошоладку, что ты не прав. Докажу только через 3ч.
Про задачу : опять же, тут очень хорошо смотрелась бы функция.
Можно сделать так : ждать китов форума.. Они при думают вариант с обычным (правда насовсем) сравнением строк..
Можешь поискать по форуму.. Такая тема точно была.. Там заправлял eoln
А можешь.. Ты должен правильно сравнивать строки.. Пока могу предложить такой вариант : заводим две новые переменные, присваиваемое им значения ai и aj.. И ещё m := max(длина ai, длина aj).. И добивает строки до длины m нулями..дальше можно сравнивать уже по обычному

Про поскаль я уверен, что я прав. Короче посмотрим
Идея с нулями мне нравится, использую её. Но код напишу попозже (скорее всего завтра). В какой раз большое вам спасибо!

[Poma][a]

Ну вот, например :