не тот результат записывается в файл, нужно поменять 2 строчки местами |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
не тот результат записывается в файл, нужно поменять 2 строчки местами |
Lurid |
11.04.2007 16:46
Сообщение
#1
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
получаю ошибку - Error 105: File not open for output.
Сообщение отредактировано: Lurid - 11.04.2007 19:39 |
klem4 |
11.04.2007 16:52
Сообщение
#2
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
ты переоткрыл файл для чтения, а пытаешь в него писать ... -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Lurid |
11.04.2007 17:40
Сообщение
#3
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
|
мисс_граффити |
11.04.2007 18:21
Сообщение
#4
|
просто человек Группа: Модераторы Сообщений: 3 641 Пол: Женский Реальное имя: Юлия Репутация: 55 |
может, задание расскажешь? или это тайна?
текстовый файл можно открыть или для записи, или для чтения. делать и то, и другое одновременно не получится. readln (f2, stroka2); или ты хотел читать из одного, писать в другой? -------------------- Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения! |
Lurid |
11.04.2007 18:59
Сообщение
#5
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
может, задание расскажешь? или это тайна? текстовый файл можно открыть или для записи, или для чтения. делать и то, и другое одновременно не получится. readln (f2, stroka2); или ты хотел читать из одного, писать в другой? Вообще задание: в тесктовом файле поменять местами 2 строки с заданными номерами
то есть если в файле написано 1 2 3 4 5 должно получится: 1 4 3 2 5 Сообщение отредактировано: Lurid - 11.04.2007 19:00 |
Lurid |
11.04.2007 19:34
Сообщение
#6
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
у меня получается?
если было 1 2 то получается 2 2 где я не то пишу? |
klem4 |
11.04.2007 19:46
Сообщение
#7
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Цитата Вообще задание: в тесктовом файле поменять местами 2 строки с заданными номерами В решении обязательно использовать дополнительный файл ? -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Lurid |
11.04.2007 19:54
Сообщение
#8
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
|
klem4 |
11.04.2007 20:20
Сообщение
#9
|
Perl. Just code it! Группа: Модераторы Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
Что-то вроде этого, но думаю можно это делоа сократить. Причем серьезно.
var -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Lurid |
11.04.2007 20:35
Сообщение
#10
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
klem4, спасибо!!!!!!!!
Большое спасибо! |
Текстовая версия | 20.09.2024 15:54 |