 заполнение массива данными из файла |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| VEDA |
 1.12.2007 21:38
Сообщение
#1
|
 Новичок  Группа: Пользователи Сообщений: 10 Пол: Женский Реальное имя: Светлана Репутация:  0   |
Вот такая задача:
В текстовом файле содержится последовательность действительных чисел. Вычислить произведение чисел, порядковые номера которых кратны трем. Результат дописать в конец исходного файла. Имя файла вводится с клавиатуры. Как объяснить что данные из файла это массив? Ничего не могу поделать  это все что вышло Прикрепленные файлы 
Z3.PAS ( 440 байт )
Кол-во скачиваний: 177 |
   |
 
|
  |
Ответов
| klem4 |
1.12.2007 22:28
Сообщение
#2
|
 Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
1. открываешь текстовый файл (содержащий числа) для чтения (reset)
2. обнуляешь счетчик (count = 0); и произведение (p = 1) 3. начинаешь цикл прохода по файлу (while not eof(f) do beign ...) в цикле: a. читаешь очередное значение (readln(f, value)); б. увеличиваешь счетчик на 1 (count = count + 1) в. проверяешь: if (count mod 3) = 0 ( если число кратно трем, то )then p := p * value; (добавляешь значение к произведению) конец цикла. 4. открываешь файл для записи (append) 5. дописываешь в него значение value: writeln(f, value); 6. закрываешь файл. вроде все  Файлы добавлено: или я что-то не так понял ? Сообщение отредактировано: klem4 - 1.12.2007 22:31 -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
|
|
|
Сообщений в этой теме
VEDA заполнение массива данными из файла 1.12.2007 21:38
VEDA Или хоть подскажите где это обсуждалось... Четыре ... 1.12.2007 22:17 volvo А это обязательное условие - работа с файлом? Тогд... 1.12.2007 22:23
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 20.07.2025 18:55 |