1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Доброго всем времени суток. У меня есть вопросик я тут програмку одну делаю не подскажите ли что в ней на данный момент не сходится. Пишет (Файл, не открыт для входа). В общем я хотел упростить себе задачу загружая текты из файла, ато уж слишком много набирать. Вот код. Зарание всем благодарен.
Код
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.
Программка по идее простинькая но чет по лекциям у меня не прет.
var a:string;b:string; F1:TEXT; begin a:=('типа лекции'); assign(f1,'c:\7_9.txt'); reset(f1);
// для чего закрывать файл перед тем, когда ты еще не прочитала инфу? // Убери эту строчку. close(f1);
// если ты хочешь прочитать что-то файла, а не просто пропустить строку, // надо куда-то ее переписывать readln(f1); // readln(f1,a); a-тип строки
// тоже самое, ты же хочешь что-то записать в файл? Если да, то что? writeln(f1); // writeln(f1,b) b-текст, для записи в файл,b-тип строки
writeln(a); writeln('Для завершения работы приложения нажмите Enter'); close(f1); // а здесь уже наоборот надо закрыть, т.е. добавь эту строку readln; end.
Цитата
Пожалуйста извениете за"Фыйл"
Ты можешь выправить заголовок. Там снизу твоего сообщения есть кнопочка "изменить", жмешь на нее, а потом выбираешь "полное редактирование". Теперь ты можешь полностью редактировать твой пост, в том числе и заголовок.
М
Для этого автору надо как минимум зарегистрироваться volvo
Сообщение отредактировано: volvo -
--------------------
Лао-Цзы : Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.