![]() |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
![]() ![]() |
![]() |
@^WARlock^@ |
![]()
Сообщение
#1
|
![]() Пионер ![]() ![]() Группа: Пользователи Сообщений: 96 Пол: Мужской Реальное имя: John Репутация: ![]() ![]() ![]() |
Подскажите.
Будем считать, что предложением является любая последовательность символов, начиная пробелом и заканчивающаяся точкой, восклицательным или вопросительным знаком. Напишите программу, которая определяет кол-во предложений и кол-во слов в текстовом файле. Я составил задачу, она вроди бы находит кол-во предложений, а принахождении кол-ва слов она не работает : Код uses crt; var t,k,i:integer; f:text; n:string; begin clrscr; assign (f,'c:\1.txt'); reset(f); read(f,n); for i:=1 to length(n) do if (n[i]=' ') and ((n[i-1]='.') or (n[i-1]='!') or (n[i-1]='?')) then t:=t+1; {for i:=1 to length(n) do if (n[1]=' ') or ((n[i-1])=' ') then k:=k+1; writeln('iscomih slov: ',k); writeln;} writeln('iskomih predlog: ',t); readln; close(f); end. Сообщение отредактировано: @^WARlock^@ - 14.08.2006 8:55 |
volvo |
![]()
Сообщение
#2
|
Гость ![]() |
Цитата(@^WARlock^@ @ 14.08.2006 8:53) Я составил задачу, она вроди бы находит кол-во предложений Да? А если будет больше одной строки в файле?uses crt; |
![]() ![]() |
![]() |
Текстовая версия | 22.06.2025 17:53 |