Меню сайта

Категории раздела
Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) [36]
Решение олимпиадных задач по программированию
Готовимся к олимпиаде по математике [3]
Решение олимпиадных задач по математике

Мини-чат

Наш опрос
Уважаемый посетитель сайта, к какой категории вы себя относите?
Всего ответов: 5512

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Главная

Регистрация

Вход
Вы вошли как Гость | Группа "Гости" | RSS


Личный сайт учителя математики и информатики

Фоновой Натальи Леонидовны



Пятница, 14.08.2020, 08:05
Главная » Файлы » Внеурочная деятельность » Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru)

Слияние чисел
14.02.2012, 08:13

Условие:
Из цифр двух натуральных чисел составить наибольшее возможное число, сохраняя первоначальную последовательность цифр.

Технические условия:
Программа должна читать исходные числа из файла input.txt, и выводить полученое число в файл output.txt.

Примеры входных и выходных файлов:
Input.txt
20
4181
Output.txt
421810

Input.txt
111
222
Output.txt
222111

Input.txt
97531
86420
Output.txt
9876543210

Решение:
Идея решения. Можно прочитать числа из файла как текстовые переменные, а затем посимвольно переводить изображения цифр в цифры, и составлять наибольшее число.

var
a,b,c:String;
i,x,y,code:integer;
begin
assign(input,'input.txt');
reset(input);
readln(A);
readln(B);
while (a<>'') and (b<>'') do
begin
val(a[1],x,code);
val(b[1],y,code);
if x>y then
begin
c:=c+a[1];
delete(a,1,1);
end else
begin
c:=c+b[1];
delete(b,1,1);
end;
end;
c:=c+a+b;
assign(output,'output.txt');
rewrite(output);
writeln(c);
end.
Категория: Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) | Добавил: admin
Просмотров: 679 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Кнопка сайта

Одна кнопка

время жизни сайта

Сайт участвует
конкурс сайтов 

Новости образовани

Фраза дня

Web-мастеру

OperaFirefoxGoogle ChromeDownload Master
QIPSkypeµTorrentTeamViewer
Dr.Web CureITAvira AntiVirTotal CommanderCDBurnerXP
PicasaIrfanViewCheMaxDAEMON Tools
AIMPKMPlayerBSplayerK-Lite Codec Pack

Установить себе такой Блок
Скрипты и HTML для uCOz

Раскрутка сайта
Graffiti Decorations(R) Studio (TM) Site Promoter

Copyright MyCorp © 2020
/td>