Разработать программу поиска прямой речи в тексте

@MyBrainStem · Регистрация: 19.07.2013

Студворк — интернет-сервис помощи студентам

Текст состоящий из примерно 20 строк, в котором нем нужно найти количество предложений с прямой речью.

@Пытливый · 19.07.2013, 20:30

Тут уважаемый все зависит от форматирования текста. Вот почитайте

@MyBrainStem · 19.07.2013, 21:10 **[ТС]**

да,знаю,что разными способами обособляться может,в том то и проблема,что когда я решил переделать программу для поиска всех знаков,в тексте, она у меня не видела знаки,типа: ":-",".-" - вроде так в диалогах,если используется, найти можно было бы,но увы и ах,поэтому и обратился.

@Dani · 21.07.2013, 01:22

MyBrainStem, программу в студию. Если программа не считывает по символам, то лучше пусть она делает это так.

@MyBrainStem · 21.07.2013, 20:26 **[ТС]**

Dani,

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
CONST
  Chars = [':"','.-'];
VAR
  T: TEXT;
  Count: integer;
 
function NextWord:string;
var
  Ch: char;
begin
  Read(T,Ch);
  if (Ch in Chars) or eof(T)
    then NextWord:=''
    else NextWord:=Ch+NextWord;
end;
 
BEGIN
  Count:=0;
  ASSIGN(T, 'test.txt');
  RESET(T);
  repeat
    if NextWord<>'' then inc(Count);
  until eof(T);
  close(T);
  writeln('Íàéäåíî ',Count,' ïðåäëîæåíèé');
  readln;
END.

@forum-newb · 21.07.2013, 23:05

Программа должна ее выписать, если я правильно понял, это не так сложно, нужно только поискать кавычки и межлу ними:

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
34
35
36
37
38
uses crt;
var s,s1:string;
i,i1,go:integer;
r:real;
begin
writeln('Ведите свой текст:');
readln(s);
clrscr;
go:=0;
i1:=1;
for i:=1 to length(s) do 
begin
if (s[i1]='"') and (go=0) then
begin
go:=1;
s1:=s1+'"';
i1:=i1+1;
end;
if (s[i1]='"') and (go=1) then
begin
go:=0;
s1:=s1+'",';
i1:=i1+1;
end;
if (s[i1]<>'"') and (go=1) then
begin
s1:=s1+s[i1];
i1:=i1+1;
end;
if (s[i1]<>'"') and (go=0) then
begin
i1:=i1+1;
end;
end;
clrscr;
delete(s1,length(s1),1);
writeln('Введенные цитаты: ',s1);
end.

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

@MyBrainStem · 21.07.2013, 23:32 **[ТС]**

forum-newb, спасибо,большое

@forum-newb · 22.07.2013, 11:44

Рад стараться...

Новые блоги и статьи Все статьи Все блоги /
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip

@MyBrainStem 0 / 0 / 0 Регистрация: 19.07.2013 Сообщений: 8

	Разработать программу поиска прямой речи в тексте 19.07.2013, 20:21. Показов 975. Ответов 7 Метки нет (Все метки) Текст состоящий из примерно 20 строк, в котором нем нужно найти количество предложений с прямой речью. 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	19.07.2013, 20:30
	Тут уважаемый все зависит от форматирования текста. Вот почитайте 0

@MyBrainStem 0 / 0 / 0 Регистрация: 19.07.2013 Сообщений: 8
	19.07.2013, 21:10 [ТС]
	да,знаю,что разными способами обособляться может,в том то и проблема,что когда я решил переделать программу для поиска всех знаков,в тексте, она у меня не видела знаки,типа: ":-",".-" - вроде так в диалогах,если используется, найти можно было бы,но увы и ах,поэтому и обратился. 0

@Dani 1406 / 648 / 135 Регистрация: 11.08.2011 Сообщений: 2,299 Записей в блоге: 2
	21.07.2013, 01:22
	MyBrainStem, программу в студию. Если программа не считывает по символам, то лучше пусть она делает это так. 0

@MyBrainStem 0 / 0 / 0 Регистрация: 19.07.2013 Сообщений: 8
	21.07.2013, 23:32 [ТС]
	forum-newb, спасибо,большое 0

@forum-newb 1 / 1 / 0 Регистрация: 18.07.2013 Сообщений: 19
	22.07.2013, 11:44
	Рад стараться... 0