0 / 0 / 0
Регистрация: 09.06.2009
Сообщений: 22
1

Подсчитать количество слов в строке

21.06.2009, 18:25. Показов 1355. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана строка,заканчивающаяся точкой.Подсчитать,сколько слов в строке.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2009, 18:25
Ответы с готовыми решениями:

Подсчитать количество слов в данной строке, подсчитать количество букв а в последнем слове
Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать количество букв а в...

Подсчитать количество слов в строке
Дан файл f. В нем текстовая строка. Нужно подсчитать кол.во слов в строке. Мой код Var text:...

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

Подсчитать количество слов в каждой строке
Помогите решить задачи на тему Файлы: 1.Дан текстовый файл, состоящий из нескольких строк. Строки...

5
Добрый самаритянин
1107 / 622 / 139
Регистрация: 31.03.2009
Сообщений: 2,567
21.06.2009, 18:45 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
s:string;
a,i,x,y:integer;
begin
readln(s);
a:=length(s);
For i:=1 to a do
begin
x:=pos(' ',s);
if x>0 then
begin
delete(s,1,x);
inc(y);
end;
end;
if length(s)>0 then inc(y);
writeln(y);
end.
0
172 / 96 / 12
Регистрация: 29.05.2009
Сообщений: 341
21.06.2009, 18:45 3
Пробелов будет меньше на 1
Pascal
1
var s:string; i,c,n:integer;     begin   for i:=1 to length(s) do  if s[i]=' '  then c:=c+1;     n:=c-1;  writeln(n);
0
Добрый самаритянин
1107 / 622 / 139
Регистрация: 31.03.2009
Сообщений: 2,567
21.06.2009, 18:51 4
Цитата Сообщение от Falen Посмотреть сообщение
if s[i]=' ' then c:=c+1;
)))) а если 2 пробела разделяют слово??
0
172 / 96 / 12
Регистрация: 29.05.2009
Сообщений: 341
21.06.2009, 18:55 5
Ой точно )извеняюсь, порпешил)
0
Добрый самаритянин
1107 / 622 / 139
Регистрация: 31.03.2009
Сообщений: 2,567
21.06.2009, 19:15 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

можно сначало убрать лишние пробелы
Pascal
1
2
3
4
5
a:=length(s);
For i:=a downto 1 do
if (s[i]=' ') and (s[i]=s[i-1]) then delete(s,i,1);
writeln(s);
end.
Добавлено через 1 минуту 23 секунды
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
s:string;
a,i,x,y:integer;
begin
readln(s);
a:=length(s);
For i:=a downto 1 do
if (s[i]=' ') and (s[i]=s[i-1]) then delete(s,i,1);
For i:=1 to a do
begin
x:=pos(' ',s);
if x>0 then
begin
delete(s,1,x);
inc(y);
end;
end;
if length(s)>0 then inc(y);
writeln(y);
end.
0
21.06.2009, 19:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2009, 19:15
Помогаю со студенческими работами здесь

Подсчитать в строке количество иностранных слов
помогите пожалуйста!!!!Огромное спасибо заранее! надо написать программу:Подсчитать в строке...

Подсчитать количество заданных слов в строке
Разработать подпрограмму обработки исходного предложения на русском языке (из 50÷80 знаков, в...

Подсчитать количество слов в введенной строке
Запросить у пользователя произвольные слова пока не введена точка. Подсчитать кол-во слов. ...

Подсчитать количество слов во введенной пользователем строке
Составить программу на языке Паскаль для решения задачи: Подсчитать количество слов во введенной...


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

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

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