IPB
ЛогинПароль:

 
 Ответить  Открыть новую тему 
> Файлы, зазрешите спор
Романтик
сообщение 26.02.2006 19:51
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 159
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


Я тут с одноклассником поспорил, что вот эта прога работает всегда и стабильно.
Сначала я читаю изфайла и вывожу 1 и 3 строки.
Код

var
pas:text;
a,c,b:string;
begin
assign(pas,'C:\windowr\pase');
reset(pas);
readln(pas,a);
readln(pas,b);
readln(pas,c);
close(pas);
writeln(a);
writeln(c);
end.

по-моему здесь все правильно.


--------------------
made in USSR.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
No matter
сообщение 26.02.2006 19:59
Сообщение #2


Гость






Ты проспорил... ВСЕГДА ничего не работает - тем более стабильно... Для того, чтобы твоя программа работала стабильно, в соответствующей директории должен быть указанный файл (ибо ошибки не обрабатываются), а кроме этого - в нем должно быть как минимум 3 строки, иначе получишь ошибку "Чтение за концом файла".
 К началу страницы 
+ Ответить 
Романтик
сообщение 26.02.2006 20:02
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 159
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


Если все эти условия выполнены кон smile.gif ечно.


--------------------
made in USSR.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 26.02.2006 20:41
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Да есть куча случаев, когда твоя программа не будет работать корректно !

Сообщение отредактировано: klem4 - 26.02.2006 20:41


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Романтик
сообщение 26.02.2006 20:42
Сообщение #5


Бывалый
***

Группа: Пользователи
Сообщений: 159
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


Приведи примеры пожалуйста.


--------------------
made in USSR.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 26.02.2006 20:48
Сообщение #6


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


У меня например твоя программа вообще не работает ... Почему ? Попробуй догадаться сам.

ps файл текстовый и лежит в правильно директории

Сообщение отредактировано: klem4 - 26.02.2006 20:51


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Романтик
сообщение 26.02.2006 20:53
Сообщение #7


Бывалый
***

Группа: Пользователи
Сообщений: 159
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


Ну если не смотреть на директорию, если все как надо. wink.gif


--------------------
made in USSR.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 26.02.2006 20:59
Сообщение #8


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Как видишь с директорией все ОК, файл состоит ровно из трех строк, но почему-то программа не работает ;)


Эскизы прикрепленных изображений
Прикрепленное изображение

--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Романтик
сообщение 26.02.2006 21:19
Сообщение #9


Бывалый
***

Группа: Пользователи
Сообщений: 159
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


спасибо, Klem4


--------------------
made in USSR.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
No matter
сообщение 26.02.2006 21:24
Сообщение #10


Гость






klem4, некорректно - у тебя файл имеет расширение TXT (опознается Windows как "Текстовый файл") - значит файла PASE без расширения просто НЕТ!
 К началу страницы 
+ Ответить 
klem4
сообщение 26.02.2006 21:29
Сообщение #11


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Почти угадал, только некорректно не у меня а у James_Bond

Об этом долже он заботиться, а не я.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 26.02.2006 21:31
Сообщение #12


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
некорректно не у меня а у James_Bond

некорректно у тебя.
Файла pase в дирректории нет, а Бонд сказал что там он есть по условию


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 26.02.2006 21:32
Сообщение #13


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Олег smile.gif) Ты внимательно скрин смотрел ?)

Дело не в этом, а в том что он не указал pase.txt

Сообщение отредактировано: klem4 - 26.02.2006 21:33


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 26.02.2006 21:35
Сообщение #14


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


да у тебя создан документ с расширением txt и включенна функция сокрытия расширения для зарегистрированных типов файлов

дык ты должен создать файл без расширения


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 26.02.2006 21:38
Сообщение #15


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Поясни, что я сделал не так ? Я создал текстовый файл, забил в него 3 строки и запусти программу ...


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Романтик
сообщение 26.02.2006 21:46
Сообщение #16


Бывалый
***

Группа: Пользователи
Сообщений: 159
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


не знаю как у вас, а у меня все пашет.


--------------------
made in USSR.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Гость
сообщение 26.02.2006 21:54
Сообщение #17


Гость






Ну, значит ты все-таки проиграл, ибо вопрос, если я не ошибаюсь, был:
Цитата
что вот эта прога работает всегда и стабильно.
У klem4 не сработало - этого достаточно, чтобы признать твое поражение...
 К началу страницы 
+ Ответить 
Романтик
сообщение 26.02.2006 22:01
Сообщение #18


Бывалый
***

Группа: Пользователи
Сообщений: 159
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


врагу не сдается наш гордый варяг........ я не сдаюсь.


--------------------
made in USSR.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 27.02.2006 9:15
Сообщение #19


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Угу ... еще можешь попробовть запустить свою программу под другой осью ... об этом то ты ни слова не зарекался, так что не отвертишься. Всегда и везде да еще и стабильно ничего работать не может !


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Altair
сообщение 27.02.2006 17:16
Сообщение #20


Ищущий истину
******

Группа: Модераторы
Сообщений: 4 824
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


флейм развели. Это тематический форум, здесь - решают задачи, а размышления о ромашке - "любит - не любит", "работает - не работает" у нас в свободном. Поэтому переношу тему во флейм.


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 9.07.2025 15:59
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"