Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/25: Рейтинг темы: голосов - 25, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 04.10.2009
Сообщений: 55
1

Дан текстовый файл. Найти количество абзацев в тексте, если каждый абзац начинается с красной строки

30.06.2010, 22:55. Показов 4754. Ответов 3
Метки нет (Все метки)

Я конечно нахимичила... Но вот теперь не могу понять почему у меня программа не работает... может вообще неправильно сделала?
Задание такое:
Дан текстовый файл. Найти количество абзацев в тексте, если каждый абзац начинается с красной строки (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
32
33
program ads;
var F2,f1: text;
    s,name1,name2: string; Na,i,k:integer;
 
Begin
  write('vvedite filename ');readln(name1);
  assign(F1,name1);
  reset(f1);
  write('vvedite filename2 ');readln(name2);
  assign(F2,name2);
  rewrite(F2);
  while not eof(F1) do
  begin
  i:=k;
   readln(F1,s);
   if copy(s,1,5)='     ' then dec(i);
  end;
  write('Vvedite k '); readln(k);
  while not eof(f1) do
  begin
    Readln(F1,s);
    if k=i then begin
    delete(s,6,Length(s)-5);
    repeat
     if s<>'' then delete(s,1,Length(s));
    until  copy(s,1,5)='     ';
    end;
  end;
  Close(F1);
  Close(F2);
  erase(f1);
  rename(f2,name1);
END.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.06.2010, 22:55
Ответы с готовыми решениями:

Найти количество абзацев в тексте, если каждый абзац начинается с красной строки
Дан текстовый файл. Найти количество абзацев в тексте, если каждый абзац начинается с красной...

Дан текстовый файл. Найти количество абзацев в тексте, если первая строка каждого абзаца начинается с 5 пробелов
Дан текстовый файл. Найти количество абзацев в тексте, если первая строка каждого абзаца начинается...

Найти количество абзацев в тексте, если каждый абзац начинается с красной строки (перевод pascal на С++)
Дан текстовый файл. Найти количество абзацев в тексте, если каждый абзац начинается с красной...

Дан текстовый файл, абзацы в нем выделенны с красной строки (5 пробелов) ...
Дан текстовый файл,абзацы в нем выделенны с красной строки(5пробелов) ,а пустых строк нет.Вставить...

3
13077 / 5862 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
30.06.2010, 23:33 2
Например, только подсчёт числа абзацов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program ads;
 
var
  F1: text;
  s, name1 : string;
  i : integer;
Begin
  write('vvedite file name ');
  readln(name1);
  Assign(F1,name1);
  reset(F1);
  while not eof(F1) do
  begin
    readln(F1,s);
    if Length(s) > 5 then
      if (copy(s,1,5) = '     ') and (s[6] <> ' ') then
        Inc(i)
    ;
  end;
  Close(F1);
  Writeln('Vsego abzacev = ', i);
  Readln;
END.
1
1 / 1 / 0
Регистрация: 29.06.2010
Сообщений: 6
30.06.2010, 23:57 3
У меня всё это вызывает священный ужас.
Где бы почитать про Паскаль и Вижл Бейсик, чтобы в Ворде макросы вручную править?
0
13077 / 5862 / 1706
Регистрация: 19.09.2009
Сообщений: 8,807
01.07.2010, 00:11 4
На самом деле всё не так страшно.
По VBA для Word можно найти много информации в поисковике по фразе:
"VBA MS Word документация".
---
Здесь приведён список литературы по Pascal.
По Pascal много литературы в сети можно найти. Где-то здесь в темах есть обсуждения об учебниках по Pascal - можно через поиск найти.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.07.2010, 00:11

Дан текстовый файл. Вывести на экран среднюю строку (две строки, если четное количество строк)
Дан текстовый файл. Вывести на экран среднюю строку (две строки, если четное количество строк).

Найти количество абзацев в тексте, если абзацы отделяются друг от друга одной или несколькими пустыми строками
Дан текстовый файл, содержащий текст, выровненный по левому краю. Найти количество абзацев в...

Дан текстовый файл, содержащий строки. Зашифровать строку, заменив каждый символ следующим за ним
Дан текстовый файл, содержащий строки. Зашифровать строку, заменив каждый символ следующим за ним

Дан текстовый файл, содержащий строки. Подсчитать количество слов в строке, имеющих нечетное количество букв
Дан текстовый файл, содержащий строки. Подсчитать количество слов в строке, имеющих нечетное...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru