Нужна программка на языке Паскаль, задание: Дан перечень из n
Нужна программка на языке Паскаль, задание: Дан список из n фамилий. Определить, содержится ли в списке обозначенная фамилия; если да, то указать номер, под которым она встречается в списке 1-ый раз, если же таковой фамилии нет, то добавить ее к первоначальному списку.
Исходный список неупорядочен. Новейшую фамилию внести в список после самой длинноватой фамилии.
1 ответ
Агата
// PascalABC.NET 3.2, сборка 1457 от 29.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger('Количество фамилий:');
var L:=ReadSeqString('Вводите фамилии построчно:',n).ToList;
var f:=ReadlnString('Отыскивать фамилию:');
var i:=L.FindIndex(w-gt;w=f);
if igt;=0 then Writeln('Номер в перечне- ', i+1)
else begin
i:=L.Select(w-gt;w.Length).ToArray.IndexMax;
L.Insert(i+1,f);
Writeln('Вставлена после фамилии ',L[i]);
L.Println
end
end.
Образцы
Количество фамилий: 6
Вводите фамилии построчно: Иванов
Петрова
Сидоров
Сидорчук
Ножкина
Жук
Отыскивать фамилию: Ножкина
Номер в перечне- 5
Количество фамилий: 6
Вводите фамилии построчно: Иванов
Петрова
Сидоров
Сидорчук
Ножкина
Жук
Искать фамилию: Ложкина
Вставлена после фамилии Сидорчук
Иванов Петрова Сидоров Сидорчук Ложкина Ножкина Жук
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadlnInteger('Количество фамилий:');
var L:=ReadSeqString('Вводите фамилии построчно:',n).ToList;
var f:=ReadlnString('Отыскивать фамилию:');
var i:=L.FindIndex(w-gt;w=f);
if igt;=0 then Writeln('Номер в перечне- ', i+1)
else begin
i:=L.Select(w-gt;w.Length).ToArray.IndexMax;
L.Insert(i+1,f);
Writeln('Вставлена после фамилии ',L[i]);
L.Println
end
end.
Образцы
Количество фамилий: 6
Вводите фамилии построчно: Иванов
Петрова
Сидоров
Сидорчук
Ножкина
Жук
Отыскивать фамилию: Ножкина
Номер в перечне- 5
Количество фамилий: 6
Вводите фамилии построчно: Иванов
Петрова
Сидоров
Сидорчук
Ножкина
Жук
Искать фамилию: Ложкина
Вставлена после фамилии Сидорчук
Иванов Петрова Сидоров Сидорчук Ложкина Ножкина Жук
Милена Хайрулова
Это да. Я для вас буду благодарна, если вы все же можете мне помочь сделать программку поординарнее)
Влад Семьешкин
Turbo Pascal
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов