Количество предложений - Помощь студентам

Bek-Z · 24.12.2010, 20:36

Подсчитать количество предложений

GetMax · 24.12.2010, 20:44

Язык пограммирования какой? Откуда предложения берутся( вводятся с клавиатуры или читаются из Файла)?

Bek-Z · 24.12.2010, 20:46

Паскаль. Вводить самому с клавиатуры

GetMax · 24.12.2010, 20:53

Как то так

Код:

Kol:=0;
For i:=1 to Length(St) do
If (St[i] = '.') or (St[i]= ';') or (St[i]= '!') or (St[i] = '?') then Inc(Kol);
Writeln('Kol predlogeniy = ',kol)

Bek-Z · 24.12.2010, 20:57

я уже так делал но училка говорит если после второго предложения не вводить знак препинания или комбинацию как ?! то не выйдет. как смотришь?

GetMax · 24.12.2010, 21:07

Цитата:

училка говорит если после второго предложения не вводить знак препинания или комбинацию как ?! то не выйдет.

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

Код:

For i:=1 to Length(St) do
If (St[i] = '.') or (St[i]= ';') or (St[i]= '!') or (St[i] = '?') or (i = Length(St)) then Inc(Kol);

Bek-Z · 24.12.2010, 21:08

ок... спасибо!!!

24.12.2010, 20:36	#1
Bek-Z Пользователь Регистрация: 11.06.2010 Сообщений: 54	Количество предложений Подсчитать количество предложений

24.12.2010, 20:44	#2
GetMax Форумчанин Регистрация: 21.10.2010 Сообщений: 588	Язык пограммирования какой? Откуда предложения берутся( вводятся с клавиатуры или читаются из Файла)? Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Для благодарностей WMR R145235935681

24.12.2010, 20:53	#4
GetMax Форумчанин Регистрация: 21.10.2010 Сообщений: 588	Как то так Код: `Kol:=0; For i:=1 to Length(St) do If (St[i] = '.') or (St[i]= ';') or (St[i]= '!') or (St[i] = '?') then Inc(Kol); Writeln('Kol predlogeniy = ',kol)` Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Для благодарностей WMR R145235935681

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Подсчитать количество предложений. Расставить предложения по возрастанию количества слов в каждом.	death65	Помощь студентам	1	13.12.2010 18:33
Количество предложений в тексте	Noxil	Паскаль, Turbo Pascal, PascalABC.NET	7	25.12.2008 17:55
посчитать количество предложений и вывести случайное	dymych	Общие вопросы C/C++	0	21.11.2008 14:28
Поиск предложений	varvara16	Общие вопросы Delphi	4	11.09.2008 09:33
подсчитать количество символов слов и предложений	nev	Помощь студентам	4	09.06.2007 21:22

24.12.2010, 20:46	#3
Bek-Z Пользователь Регистрация: 11.06.2010 Сообщений: 54	Паскаль. Вводить самому с клавиатуры

24.12.2010, 20:57	#5
Bek-Z Пользователь Регистрация: 11.06.2010 Сообщений: 54	я уже так делал но училка говорит если после второго предложения не вводить знак препинания или комбинацию как ?! то не выйдет. как смотришь?

24.12.2010, 21:08	#7
Bek-Z Пользователь Регистрация: 11.06.2010 Сообщений: 54	ок... спасибо!!!