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

[VladKB1]

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

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

если я уберу st:='' , то при этом тесте:

4
9
10000
3
1000001

ответ будет такой : 99100000191000001310000
Так что st:='' нужно.

[Poma][a]

Дык ты сразу присваивай! А не складывай..
И да.. идея с 0-лями - бред

[Аватар]

Там с больше или меньше нет проблем. Проблема когда короткая строка совпадает с началом длиной строки. Вот тут и подумать какую вперед. Учесть вариант, что в начале длиной строки несколько подряд одинаковых коротких строк, типа 23 и 2301 или 23 и 23232304

[Poma][a]

Я предлагаю так.. Иначе выйдет мука

procedure Swap(var a, b : string);
var
	t : string;
begin
	t := a;
	a := b;
	b := t
end;

function f(a, b : string) : Boolean;
begin
        f := a + b < b + a 
end;



var
	a : array [1..1000] of string;
	n, i, j : Integer;
	t : string;
begin
	ReadLn(n);
        for i := 1 to n do ReadLn(a[i]);


	for i := 1 to n-1 do
		for j := 1 to n-i do
			if f(a[j], a[j+1]) then
                                Swap(a[j], a[j+1]);

 	for i := 1 to n do
 		Write(a[i])
end.

тыц
Нашел тему..
Забавно.. Код похож

[VladKB1]

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

Дык ты сразу присваивай! А не складывай..
И да.. идея с 0-лями - бред

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

С присваиванием я чего-то очень жёстко протупил)) спасибо

Я предлагаю так.. Иначе выйдет мука
Код:

procedure Swap(var a, b : string);
var
t : string;
begin
t := a;
a := b;
b := t
end;

function f(a, b : string) : Boolean;
begin
f := a + b < b + a
end;



var
a : array [1..1000] of string;
n, i, j : Integer;
t : string;
begin
ReadLn(n);
for i := 1 to n do ReadLn(a[i]);


for i := 1 to n-1 do
for j := 1 to n-i do
if f(a[j], a[j+1]) then
Swap(a[j], a[j+1]);

for i := 1 to n do
Write(a[i])
end.

тыц
Нашел тему..
Забавно.. Код похож

Что ж мне эти тупые задания на голову свалились ? Грустненько, обидненько, но вам большое спасибо! Я когда на занятия приду попрошу, что бы мне объяснили как можно записать код без функций. И потом сюда скину (если у меня всё получится).

[Poma][a]

Функции остались от предыдущего варианта..

var
	a : array [1..1000] of string;
	n, i, j : Integer;
	t : string;
begin
	ReadLn(n);
        for i := 1 to n do ReadLn(a[i]);


	for i := 1 to n-1 do
		for j := 1 to n-i do
			if a[j] + a[j+1]  < a[j+1]+a[j] then begin
                                t := a[j];
                                a[j] := a[j+1];
                                a[j+1] := t
                        end;


 	for i := 1 to n do
 		Write(a[i])
end.

[VladKB1]

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

Функции остались от предыдущего варианта..

var
	a : array [1..1000] of string;
	n, i, j : Integer;
	t : string;
begin
	ReadLn(n);
        for i := 1 to n do ReadLn(a[i]);


	for i := 1 to n-1 do
		for j := 1 to n-i do
			if a[j] + a[j+1]  < a[j+1]+a[j] then begin
                                t := a[j];
                                a[j] := a[j+1];
                                a[j+1] := t
                        end;


 	for i := 1 to n do
 		Write(a[i])
end.

Вы гений! Огромное спасибо вам!

Сравнивать сразу 2 числа... Классно продуманно, ещё раз спасибо
Хотел вам + поставить, но не разрешает

Ладно, ещё раз большое спасибо завтра протестирую, и напишу!

[VladKB1]

Задача прошла все тесты!
Большое спасибо Pma][e за помощь!

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

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

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

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

[Sibedir]

//Тут было не верное решение
-----------------------------------------------
УПС...
Я вообще вторую странцу темы не увидел

[Аватар]

Ромахино решение лучше Я вообще придумал рекурсивную процедуру для сравнения, если начало длинного слова совпадает с коротким. Да уж Ну а дополнять справа нулями можно вообще без цикла, прибавляя к строке c помощью StringOfChar