|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.06.2009, 23:40 | #1 |
Пользователь
Регистрация: 18.06.2009
Сообщений: 12
|
проверти,файлы,паскаль!!
В существующем типизированном файле, элементами которого являются отдельные слова, изменить на заданное слово: первое слово.
program a; uses crt; Type t=record d:string; end; var f: file of t; st:t; i:integer; begin clrscr; assign(f,'File.txt'); rewrite(F); readln(st.d); write(f,st); reset(F); readln(st.d); write(f,st); close(f); end. |
01.07.2009, 00:24 | #2 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Что-то такое:
Код:
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
01.07.2009, 10:40 | #3 |
пропагандирую жизЪ
Форумчанин
Регистрация: 19.03.2007
Сообщений: 950
|
А зачем новый файл создавать? Нужно просто заменить в существующем.
Assign(f); Readln(st.d); Write(f, st)
Посторонним В.
Последний раз редактировалось NSvirus; 01.07.2009 в 11:09. Причина: Невнимательность |
01.07.2009, 12:56 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
NSvirus, +1
точно. для типизированных файлов, открытых по Reset(f) устанавливается по умолчанию режим Read-Write. Поэтому нормально отработает такой код: Код:
|
01.07.2009, 18:36 | #5 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Да, я что-то не о том подумал
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
файлы. Паскаль. | Defa4ka | Помощь студентам | 2 | 14.05.2009 11:59 |
Паскаль. Файлы | Dmitrij | Помощь студентам | 1 | 30.03.2009 23:41 |
Паскаль. Файлы | playboy | Помощь студентам | 9 | 24.03.2009 13:42 |
Файлы!Паскаль | ТРОЯН=) | Помощь студентам | 1 | 23.03.2009 10:08 |
Проверти код! на паскале! Спасибо! | Impulsive | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 10.03.2008 21:54 |