Вопрос по информатике:
Pascal abc
напишите программу, которая сортирует список работников компании по фамилии в алфавитном порядке. В списке не более 10000 строк, ввод заканчивается пустой строкой.
Входные данные
В каждой входной строке записаны данные о сотруднике в формате <инициалы> <фамилия>. Фамилия отделяется от инициалов пробелом. Ввод заканчивается пустой строкой.
Выходные данные
Программа должна вывести список сотрудников в алфавитном порядке, добавив нумерацию.
Примеры
входные данные
J.X. Smith
B.A. Weiter
A.C. Johnes
выходные данные
1. A.C. Johnes
2. J.X. Smith
3. B.A. Weiter
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.09.2016 01:45
- Информатика
- remove_red_eye 1573
- thumb_up 9
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
type
fs=(string,string);
begin
var L:=new List;
repeat
var aw:=ReadlnString('>').ToWords;
if aw.Length=0 then break;
L.Add((aw[1],aw[0]))
until false;
var a:=L.OrderBy(t->t[0]);
var i:=1;
foreach var x in a do begin
Writeln(i:4,' ',x[1],' ',x[0]);
i+=1
end
end.
Пример
> J.X. Smith
> B.A. Weiter
> A.C. Johnes
>
1 A.C. Johnes
2 J.X. Smith
3 B.A. Weiter
- 06.09.2016 10:24
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.