|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
01.10.2016, 20:56 | #1 |
Пользователь
Регистрация: 01.10.2016
Сообщений: 25
|
За первым четным числом поставить утроенное произведение того числа .
Дан текстовый файл input.txt, в котором хранятся целые числа. Создать упорядоченный по возрастанию список. За первым четным числом поставить утроенное произведение того числа . Полученную последовательность записать в тестовый фаил output.txt. Если четных чисел нет , помимо последовательности в фаил записать соответствующее сообщение.
Тут почти всё есть, помогите со 2-ой частью программы . И нужно написать это по Unit-ам. Подскажите пожалуйста, как это сделать . Код:
Последний раз редактировалось Smile189; 01.10.2016 в 21:58. |
02.10.2016, 08:35 | #2 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Что за файл "input.txt"? Как в нём храняться числа?
|
02.10.2016, 10:42 | #3 |
Пользователь
Регистрация: 01.10.2016
Сообщений: 25
|
я не совсем поняла ваш вопрос. В файл input мы от руки набираем числа , ели речь про это
|
02.10.2016, 11:30 | #4 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
|
02.10.2016, 11:46 | #5 |
Пользователь
Регистрация: 01.10.2016
Сообщений: 25
|
???
из вот этого: 1 3 5 8... должно это получиться : 1 3 5 8 24... |
02.10.2016, 11:54 | #6 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Ну тогда если попроще, то грузишь файл в TStringList (каждое число отдельной строкой), потом делаешь сортировку. Затем в цикле пробегаешься по каждому элементу списка и записываешь в новый TStringList. Сохраняешь на диск.
|
02.10.2016, 12:27 | #7 |
Пользователь
Регистрация: 01.10.2016
Сообщений: 25
|
Спасибо конечно, но я и написала сюда, потому что не понимаю как это сделать...то, что вы словами написали мне никак не поможет
|
03.10.2016, 12:49 | #8 |
Сумрачная тень
Форумчанин
Регистрация: 05.03.2009
Сообщений: 689
|
попробуйте этот код:
Код:
"ковыряю изнутри" (с)
|
03.10.2016, 17:20 | #9 |
Пользователь
Регистрация: 01.10.2016
Сообщений: 25
|
спасибо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
проверить является четным числом длина введенной пользователем строки и вывести сообщение на экран (оплачу пополнением счета) | Pomogi | Фриланс | 2 | 14.01.2013 17:25 |
Определить, сумма цифр является четным или нечетным числом. | harvey | Помощь студентам | 1 | 10.10.2012 21:38 |
выравнивание по четным и не четным страницам | uli4ka | Microsoft Office Word | 2 | 04.07.2011 13:53 |
Поиск по первым двум цифрам числа | IPI | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 23.01.2011 15:33 |
2 столбец для того, чтобы автоматически создавались числа, которые позволяли уравнивать числа в 3 столбце | ppv | Microsoft Office Excel | 37 | 05.08.2009 21:19 |