 Файлы |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Mitek |
 20.12.2005 17:27
Сообщение
#1
|
|
Гость  |
Подалуйста, нужно очень срочно.
Дан файл F, компоненты которого являются действительными числами. Найти наименьшую из компонент файла. |
 
|
|
  |
Ответов
| Анна |
22.12.2005 17:23
Сообщение
#2
|
 Бывалая  Группа: Пользователи Сообщений: 290 Пол: Женский Реальное имя: Анютка Репутация:  7  |
Логи:
Цитата 20.12.2005 23:29 klem4: seek(f,0); read(f,r); min := r; for i := 1 to n-1 do begin seek(f,i) read(f,r); if r<min then min := r; end; В каком месте ты другое предлагал?  Про seek сказал, что можно убрать .. |
   |
|
Сообщений в этой теме
Mitek Файлы 20.12.2005 17:27
klem4 F A Q : Файлы +
поиск, такая задача решалась бук... 20.12.2005 17:28 Анна Вот, копируешь себе и говоришь спасибо klem4 :yes... 21.12.2005 0:00 klem4 Ну я всетаки не совсем так сделал .. вобщем вот ещ... 21.12.2005 0:05 Анна Максимум, что сделала изменила переменные, остальн... 21.12.2005 14:18
klem4 Ты будешь внимательно читать что тебе пишут ? Я ск... 22.12.2005 17:32 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 17.07.2025 19:25 |