Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 23.02.2009, 19:02   #1 (permalink)
юра 3
Новичок
 
Регистрация: 30.12.2008
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Удалить строчку из файла - задачка

Помогите решить задачу,а то у меня чуть-чуть не получается.
Вот задача:
Дан текстовый файл. Удалить из него последнюю строку.
юра 3 вне форума   Ответить с цитированием

Старый 23.02.2009, 19:02
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Зачастую проблемы у людей очень похожие, обратите внимание на это

Задачка.
Задачка по Паскалю
Как удалить свою учетную запись, удалить себя с форума?
Задачка

Старый 23.02.2009, 19:13   #2 (permalink)
ummasha
Member
 
Аватар для ummasha
 
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
По умолчанию

Выложите свой вариант решения.
ummasha вне форума   Ответить с цитированием
Старый 23.02.2009, 22:47   #3 (permalink)
юра 3
Новичок
 
Регистрация: 30.12.2008
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Program q1;
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
append(s);

и как дальше написать условие,подскажите пожалуйста.
юра 3 вне форума   Ответить с цитированием
Старый 24.02.2009, 10:26   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,874
Сказал(а) спасибо: 318
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от юра 3 Посмотреть сообщение
Program q1;
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
append(s);

и как дальше написать условие,подскажите пожалуйста.
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
ReWrite(s);
REPEAT
ReadLn(f,w);
IF (NOT EoF(f)) THEN
WriteLn(s,w);
UNTIL EoF(f);
Close(f);
Close(s);
END.
Vladimir_S вне форума   Ответить с цитированием
Старый 24.02.2009, 17:04   #5 (permalink)
ummasha
Member
 
Аватар для ummasha
 
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
По умолчанию

Vladimir_S, так эта программа открывает первый файл, удаляет из него последнюю строчку и записывает результат во второй файл, так?
ummasha вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 24.02.2009, 17:08   #6 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,874
Сказал(а) спасибо: 318
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от ummasha Посмотреть сообщение
Vladimir_S, так эта программа открывает первый файл, удаляет из него последнюю строчку и записывает результат во второй файл, так?
Не совсем. Она просто строчку за строчкой перегоняет из первого файла во второй, кроме последней строки.
Vladimir_S вне форума   Ответить с цитированием
Старый 24.02.2009, 17:10   #7 (permalink)
ummasha
Member
 
Аватар для ummasha
 
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
По умолчанию

Поняла
ummasha вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 07:25.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.