Типизированные файлы |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Типизированные файлы |
mfractus |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 26 Пол: Мужской Репутация: 0 |
Доброго времени суток! Прошу помощи в решении задачи. Заранее спасибо!
Текст задачи. Сформировать файл G. Определить сумму и произведение наибольшего и наименьшего из значений компонент. Заменить значением суммы первую и последнюю компоненты, а на значение произведения – увеличить каждую третью компоненту файла. Файл вывести до и после преобразования. |
volvo |
Сообщение
#2
|
Гость |
Цитата Возник вопрос, read(F,buf); тоже стоит после while not EOF(F) do, тем не менее программа исправно работает. В чем тут дело не пойму. При чем тут, где стоит Read? Как только дойдешь до конца файла, цикл While тут же завершится, то есть если сейчас ты прочел последнюю запись, то следующая итерация начнется с проверки EOF(f). Проверка вернет "ложь", и цикл прекратит выполняться, ты сразу перейдешь к строке, печатающей результаты.А ты в приведенном выше фрагменте нигде на EOF не проверял, отсюда и ошибка. Да, да... Даже если тебе и кажется, что ее там нет: твои ощущения - очень ненадежная штука; оставь заботу о том, чтоб не читать за концом файла, компилятору. У него это получится лучше. И, наконец, пользуйся комбобоксом CODE, неужели ты действительно не видишь разницы, как выглядит код с подветкой, а как - без нее? Добавлено через 8 мин. И потом. Почему вы так любите делать ненужную работу? Первая компонента файла отличается от всех остальных? За что ей такая честь, быть прочитанной отдельно, вне цикла? Если я сделаю цикл: Min := maxint; Imin := -1;, я что-то упущу? Нет, мой код будет выполняться ровно так, как и должен. Зато ошибки не будет. |
Текстовая версия | 18.05.2024 7:43 |