Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Дитя_ночи
0 / 0 / 1
Регистрация: 04.10.2008
Сообщений: 64
1

Работа с абзацами в текстовом файле

04.02.2009, 16:05. Просмотров 951. Ответов 5
Метки нет (Все метки)

У меня есть задача:
Дано целое число К и текстовый файл. Удалить из файла абзац с номером К (абзацы отделяються друг от друга одной или несколькими пустыми строками). Пустые строки, предшествующие и следующие за удаляемым абзацем, не удалять. Если абзац с данным номером отсуцтвует, то оставить файл без изменений.

Я для начала пытаюсь общитать количество пустых строк в тексе.
Вот что у меня вышло:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program text25;
uses crt;
var f,f1:text; k,i,n,p:byte;  s:string;
begin
clrscr;
write('Ukazhite koli4estvo strok: ');
read(n);
write('Napishite luboe 4islo: ');
read(k);
writeln('Vvedite soderzhymoe fajla:');
assign(f,'c:\text25.txt');
rewrite(f);
for i:=0 to n do
begin
readln(s);
writeln(f,s);
end;
close(f);
 
reset(f);
p:=0;
for i:=0 to n do
begin
readln(f,s);
if s='' then inc(p);
end;
  write(p);
close(f);
 
repeat until keypressed;
end.
Но этот код считает на одну пустую строчку больше...
Подскажите, как мне написать эту задачу, плиз!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.02.2009, 16:05
Ответы с готовыми решениями:

Найти самое длинное и самое короткое из всех слов, записанных в текстовом файле WORDS.DAT, и записать их в файле LANG и KURZ
Найти самое длинное и самое короткое из всех слов, записанных в текстовом файле...

Строки в текстовом файле.
Добрый вечер, помогите написать программку: В текстовом файле содержится...

Строки в текстовом файле
Привет! Помогите пожалуйста! Мне нужно написать программу считающая кол-во...

текст в текстовом файле
дан текст,ХРАНЯШИЙСЯ В ТЕКСТОВОМ ФАЙЛЕ.Подсчитать количество гласных букв в...

Поиск слова в текстовом файле
В оперативной памяти имеется таблица слов(строковый массив) длиной N, N > 10....

5
Puporev
Модератор
55416 / 42545 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
04.02.2009, 16:44 2
Наверное надо считать от 1 до n, зачем от ноля? Это же не типизированный файл.
Кстати, когда считают от ноля, то считают до n-1.
0
Дитя_ночи
0 / 0 / 1
Регистрация: 04.10.2008
Сообщений: 64
04.02.2009, 18:00  [ТС] 3
В том и прикол, что когда я пишу с 1 до n - у меня вводяться на одну меньше строчку чем я задаю

Добавлено через 1 минуту 14 секунд
это при заполнении файла ,при подсчете пустых строк всё равно на одну больше считает пустых строк, хоть с 0 начинай хоть с 1
0
Puporev
Модератор
55416 / 42545 / 29398
Регистрация: 18.05.2008
Сообщений: 100,652
04.02.2009, 18:18 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
write('Napishite luboe 4islo: ');
readln(k);  {ошибка здесь, надо readln, Вы не прочитали k, появляется лишняя пустая строка в начале}
writeln('Vvedite soderzhymoe fajla:');
assign(f,'text25.txt');
rewrite(f);
for i:=1 to n do{здесь поправить}
  begin
   readln(s);
   writeln(f,s);
  end;
close(f);
 
reset(f);
p:=0;
for i:=1 to n do{здесь поправить}
  begin
   readln(f,s);
   if s='' then inc(p);
  end;
write(p);
close(f);
0
Дитя_ночи
0 / 0 / 1
Регистрация: 04.10.2008
Сообщений: 64
04.02.2009, 22:28  [ТС] 5
спасибо!
0
kainsk
0 / 0 / 0
Регистрация: 28.03.2009
Сообщений: 1
31.03.2009, 16:24 6
у меня таже самая задача можете полностю написать текст программы? пожалуйста!!!
0
31.03.2009, 16:24
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2009, 16:24

Процедура поиска в текстовом файле
Помогите, пожалуйста, найти ошибку. Процедура должна находить все фамилии на...

Замена слова в текстовом файле
Добрый день. Помогите, пожалуйста, с задачей. Программированием начала...

Найти минимальное число в текстовом файле
Задача найти минимальное число в текстовом файле. В таком варианте выводит...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru