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

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Паскаль.Файл.
сообщение
Сообщение #1


Гость






Доброго всем времени суток. У меня есть вопросик я тут програмку одну делаю не подскажите ли что в ней на данный момент не сходится. Пишет (Файл, не открыт для входа). В общем я хотел упростить себе задачу загружая текты из файла, ато уж слишком много набирать. Вот код. Зарание всем благодарен.
Код

var
a:string;b:string; F1:TEXT;
begin
a:=('типа лекции');
assign(f1,'c:\7_9.txt');
reset(f1);
close(f1);
readln(f1);
writeln(f1);
writeln(a);
writeln('Для завершения работы приложения нажмите Enter');
readln;
end.

Программка по идее простинькая но чет по лекциям у меня не прет.
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Николай   Паскаль.Файл.   10.11.2006 5:20
Гость   Пожалуйста извениете за"Фыйл"   10.11.2006 5:22
Bokul   var a:string;b:string; F1:TEXT; begin a:=('т…   10.11.2006 5:33
Алена   Только вот readln(f1); writeln(f1);к одному и том…   10.11.2006 5:39
Bokul   Можно, только надо открыть его правильно: reset -…   10.11.2006 5:53
hiv   Можно, только надо открыть его правильно: reset -…   10.11.2006 20:42
Алена   Ты не понял, имелось в виду, что если текстовый фа…   10.11.2006 17:24
klem4   Господа и дамы, FAQ: Файлы :!low: Вот куда …   10.11.2006 20:44
Алена   Пример ЧТЕНИЯ из файла, открытого через Append мож…   10.11.2006 20:46
hiv   Приношу свои извинения append(f); - работает то…   10.11.2006 21:08
Гость   Всем большёе спасибо. Щас зарегистрируюсь   10.11.2006 21:56
N/V/K   var a:string;b:string; F1:text; begin a:=('тип…   10.11.2006 23:06
volvo   Тебе же сказали, что из файла, открытого через Res…   11.11.2006 0:02
N/V/K   Да мне не надо вводить данные мне надо вывести их …   11.11.2006 2:08
klem4   reset(f1); readln(f1,b); writeln(b); < ---- выв…   11.11.2006 2:10
N/V/K   Спасибо большёе, мне теперь осталось решить пробле…   11.11.2006 2:18
klem4   Приведи полностью и точно свое задание. А то чув…   11.11.2006 2:22
N/V/K   Извени. :) Разработать обучающюю программу по изуч…   11.11.2006 2:33
klem4   На сколько крупные ? 1200 строк ? Так же как и …   11.11.2006 2:43
N/V/K   Спасибо!!!   11.11.2006 2:47
N/V/K   Прикольно, спасибо тебе Klem4 за инфу, с уважением…   11.11.2006 15:15


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

 





- Текстовая версия 5.12.2021 8:01
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name