 Разжевать блок-схему. |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| Sto |
 9.05.2007 21:27
Сообщение
#21
|
 Пионер  Группа: Пользователи Сообщений: 70 Пол: Мужской Реальное имя: Илья Репутация:  2   |
Ошибка:
200 Деление на ноль (некоректная арифметическая операция) На диске С у тебя должен быть файл TWO.txt. Или пропиши другой адрес к файлу. Сообщение отредактировано: Sto - 9.05.2007 21:37 |
   |
 
|
| samec |
10.05.2007 5:50
Сообщение
#22
|
 Бывалый Группа: Пользователи Сообщений: 180 Пол: Мужской Реальное имя: Юра Репутация: 1 |
Цитата(funebris @ 10.05.2007 1:26)  "Assign (InFile, 'C:\TWO.txt');" М... А что здесь за ошибка? Это из проги, размещенной Sto.. скорее всего ругается на неправильный путь к файлу, то есть не может найти файл, по указанному пути -> связать его с файловой переменной. Надо бы проверять, открылся файл или нет. |
|
|
|
| volvo |
10.05.2007 10:30
Сообщение
#23
|
|
Гость |
А вот и продолжение темы о том, что не надо подключать лишние модули к программе... Не пользовался бы KeyPressed - не надо было бы подключать CRT, не получил бы ошибку...
|
|
|
|
| Sto |
10.05.2007 15:53
Сообщение
#24
|
|
Пионер Группа: Пользователи Сообщений: 70 Пол: Мужской Реальное имя: Илья Репутация: 2 |
Интересно почему ошибка возникает во время работы с файлом.
Если всеже ошибка в CRT то нужно удалить строки: Uses Crt; ClrScr; И помеянть строку ReadKey; на ReadLn; |
|
|
|
| мисс_граффити |
10.05.2007 16:43
Сообщение
#25
|
 просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
Цитата(Sto @ 10.05.2007 16:53) И помеянть строку ReadKey; на ReadLn; repeat until readln, что ли, сделать? я вообще-то еще вчера по этому поводу написала... -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 25.06.2025 12:53 |