Assign(F,'имя_файла');
ReWrite(F); Открываем файл для перезаписи, если несуществует то создаем...
Repeat
ReadLn(s);
WriteLn(F,s);
Until s=''
Close(F);
Помогите пожалуйсто решить задачу(Для тех кто понимает файлы)
Я вообщето плохо шарю в файлах. Помогите пожалуйста, а то мне её срочно съдать надо, а я её решить не могу.
Первый студент составляет программу, в которой формирует внешний файл(письмо);
Второй студент составляет две программы. Первая программа позволяет прочитать письмо, а вторая программа формирует внешний файл (ответ).
(Аналогично анкетные данные).
Первый студент составляет программу, в которой формирует внешний файл(письмо);
Второй студент составляет две программы. Первая программа позволяет прочитать письмо, а вторая программа формирует внешний файл (ответ).
(Аналогично анкетные данные).
[COLOR=blue]Нужно указывать язык![/COLOR]
Цитата:
Originally posted by r000n_m
[COLOR=blue]Нужно указывать язык![/COLOR]
[COLOR=blue]Нужно указывать язык![/COLOR]
PAscal
Цитата:
Originally posted by realcoding
Pascal
Pascal
точно, моя вина, перенесла тему с раздела Паскаль а язык не отметила, забыла :(
к автору: вопросы решите за меня можно постить только в разделе "Студентам"
Первый студент...
Второй студент...
Читаем письмо:
Что-то типа такого... Я здесь основные функции работы с файлами (текстовыми) привел, надеюсь разберешься... да кстати, для текстовых файлов можно еще добавить функцию Append(F); - для добавления информации в файл
Код:
Второй студент...
Читаем письмо:
Код:
Assign(F,'имя_файла');
Reset(F); Открываем файл для чтения...
While Not Eof(F) Do
Begin
ReadLn(F,s);
WriteLn(s);
End;
Close(F);
Reset(F); Открываем файл для чтения...
While Not Eof(F) Do
Begin
ReadLn(F,s);
WriteLn(s);
End;
Close(F);
Что-то типа такого... Я здесь основные функции работы с файлами (текстовыми) привел, надеюсь разберешься... да кстати, для текстовых файлов можно еще добавить функцию Append(F); - для добавления информации в файл
Цитата:
Originally posted by LastSoul
Первый студент...
Второй студент...
Читаем письмо:
Что-то типа такого... Я здесь основные функции работы с файлами (текстовыми) привел, надеюсь разберешься... да кстати, для текстовых файлов можно еще добавить функцию Append(F); - для добавления информации в файл
Первый студент...
Код:
Assign(F,'имя_файла');
ReWrite(F); Открываем файл для перезаписи, если несуществует то создаем...
Repeat
ReadLn(s);
WriteLn(F,s);
Until s=''
Close(F);
ReWrite(F); Открываем файл для перезаписи, если несуществует то создаем...
Repeat
ReadLn(s);
WriteLn(F,s);
Until s=''
Close(F);
Второй студент...
Читаем письмо:
Код:
Assign(F,'имя_файла');
Reset(F); Открываем файл для чтения...
While Not Eof(F) Do
Begin
ReadLn(F,s);
WriteLn(s);
End;
Close(F);
Reset(F); Открываем файл для чтения...
While Not Eof(F) Do
Begin
ReadLn(F,s);
WriteLn(s);
End;
Close(F);
Что-то типа такого... Я здесь основные функции работы с файлами (текстовыми) привел, надеюсь разберешься... да кстати, для текстовых файлов можно еще добавить функцию Append(F); - для добавления информации в файл
Спасибо, дальше я сам разберусь.