Из двух натуральных чисел, составить наибольшее число, сохраняя первоначальную последовательность.Паскаль

[Omedus]

Помогите пожалуйста написать программу. Я понятия не имею, как это осуществить Заранее огромнейшее спасибо!
Вот задание: Из цифр двух натуральных чисел составить наибольшее возможное число, сохраняя первоначальную последовательность цифр.
Технические условия: Программа должна читать исходные числа из файла input.txt, и выводить полученное число в файл output.txt.
Примеры входных и выходных файлов:

Input1.txt

20
4181

Output1.txt

421810

Input2.txt

111
222

Output2.txt

222111

Input3.txt

97531
86420

Output3.txt

9876543210

[Карась]

Алгоритм вроде как довольно прост:
1. Считываем все цифры из файла.
2. Распределяем их по убыванию.
3. Записываем в фаил.

[Omedus]

Сообщение от Карась

Алгоритм вроде как довольно прост:
1. Считываем все цифры из файла.
2. Распределяем их по убыванию.
3. Записываем в фаил.

Тьфу! Спасибо огромное!!! Я просто не сообразил, что для этого их всего лишь по убыванию надо сделать! =)))))))) Спасибо!!!)))

[puporev]

Если цифры распределить по убыванию, нарушится их порядок, а это по условию задачи недопустимо.

[Карась]

program Project1;
{$APPTYPE CONSOLE}

var num_1, num_2: string;
    a: integer;
begin
Readln (num_1);
Readln (num_2);
 if num_1[1] = num_2[1] then a := 2;
   if num_1[a] > num_2[a] then
    write (num_1, num_2)
   else
     write (num_2, num_1);
Readln;
end.

Вот я реализовал такую штуку. Только без считывания файлов. И + маленький касяк )) Может быть неверно если первый цифры совпадают (мне просто лень там всё это продумывать)...

Например 22 и 20 он напишет 2022, что неверно....

Add: немного изменил код. Теперь чтоб программа скосячила нужно чтоб совпадали первые две цифры.

[Карась]

Второй вариант Если порядок цифр менять нельзя то существуют только два варианта такого числа и надо просто сравнить их:

program Project1;
{$APPTYPE CONSOLE}

var num_1, num_2: string;

begin
Readln (num_1);
Readln (num_2);

   if (num_1 + num_2) > (num_2 + num_1) then
    write (num_1, num_2)
   else
     write (num_2, num_1);

Readln;
end.

Этот код вроде лишён недостатков предыдущего кода.

[puporev]

if (num_1 + num_2) > (num_2 + num_1) then

Вообще то в школе проходили, что от перемены мест слагаемых сумма не меняется.
Пока редактировал, не заметил сообщение от Zetrix. Писал примерно то же самое, поэтому см. следующий пост.

[zetrix]

Вообще то в школе проходили, что от перемены мест слагаемых сумма не меняется

вообще-то строки складываем, так что - меняется.
Алгоритм по убыванию - не правильно, измениться порядок.
По пробую словесно описать так, как я бы решил:
a, b - это строки (2 наших числа)
заводим 2 переменные Na, Nb - которые показывают на какой цифре мы остановились в a и b.
Потом сравниваем a[Na] и b[Nb].
Если a[Na]>b[Nb] то S:=S+a[Na]; Na:=Na+1;
Если a[Na]<b[Nb] то S:=S+b[Nb]; Nb:=Nb+1;
S - это строка-результат.
Повторяем это в цикле, до тех пор пока одно из чисел "закончится" Na=length(a) или Nb=length(b).
Потом к S прибавляем целиком то число, которое не "закончилось".

P.S.: напоминаю, что работаем мы со строками, поэтому прибавить число - это склеить 2 стоки

[Abbatik]

вот мой вариант. По твоим тестам работает хорошо(свои тоже проверял

program ll;
var f:text;
k1,k2,d1,d2,k,e,i,n1,n2:integer;
s,s1,s2:string;
begin
assign(f,'input.txt');
reset(f);
readln(f,n1);
readln(f,n2);
close(f);
str(n1,s1);
str(n2,s2);
k1:=1;
k2:=1;
while k<=length(s1)+length(s2) do begin
val(s1[k1],d1,e);
val(s2[k2],d2,e);
if d1>d2 then begin
s:=s+s1[k1];
k1:=k1+1;
end
else
begin
s:=s+s2[k2];
k2:=k2+1;
end;
k:=k+1;
end;
assign(f,'output.txt');
rewrite(f);
writeln(f,s);
close(f);
end.