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

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

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

> работа с файлом, файл из строк
сообщение
Сообщение #1


Профи
****

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

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


Нужно преобразовать файл, удалив последнее слово в каждой строке. (для строк можно использовать только
length, ord,char; для работы с файлом - assign,reset,rewrite, close, eof, rename, erase,seek)

у меня получилась какая-то ерунда( когда даю команду на запуск - runtime error 002 at 0000:004)


uses crt;
const k=ord(' ');
var f:file of string; n:integer;
s:string;
i:byte;
begin
assign(f,'d:\stroku.txt');
reset(f);
while not eof(f) do
begin
for i:=k to length(s)-1 do
s[i]:=s[i+1];
end;
seek(f,n+1);
while not eof(f) do
begin
read(f,s);
writeln(s);
end;
writeln;
close(f);
end.




Сообщение отредактировано: 18192123 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
18192123   работа с файлом   3.12.2006 21:23
IchLiebeDich   Нужно преобразовать файл, удалив последнее слово …   3.12.2006 21:46
volvo   :no1: Мало того, что не открывает, так программа …   3.12.2006 21:54
18192123   извините, забыла внести изменения в код! assig…   3.12.2006 22:28
18192123   помогите, пожалуйста ,разобраться! очент нужно…   4.12.2006 20:05
klem4   uses crt; var f, temp: Text; s: String; i, …   4.12.2006 20:54
18192123   Спасибо за помощь! у меня вопрос: под i подра…   5.12.2006 1:22
klem4   Заранее должен быть создан файл f, содержащий стро…   5.12.2006 2:12
18192123   Заранее должен быть создан файл f, содержащий стр…   5.12.2006 2:54
18192123   program lab_9_1; uses crt; type tfile1=text; tfil…   6.12.2006 21:57
klem4   Читаешь из файла строки и выводишь на экран ... че…   8.12.2006 0:15
18192123   Читаешь из файла строки и выводишь на экран ... ч…   8.12.2006 2:46
мисс_граффити   у тебя s - локальная переменная, действует только …   8.12.2006 2:52
18192123   у тебя s - локальная переменная, действует только…   8.12.2006 2:55
мисс_граффити   ты бы показала, КАК исправила....   8.12.2006 3:08
18192123   ты бы показала, КАК исправила.... смотри в коде   8.12.2006 3:13
мисс_граффити   ты можешь привести компилирующийся код?   8.12.2006 3:23
18192123   ты можешь привести компилирующийся код? program…   8.12.2006 3:30
volvo   while not eof(temp) do begin readLN(temp, S); { …   8.12.2006 3:37
18192123   [code=pas]while not eof(temp) do begin readLN(t…   8.12.2006 3:40


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

 





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