Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Renat1993
0 / 0 / 0
Регистрация: 18.01.2012
Сообщений: 1
1

Дан текст, слова в котором разделены хотя бы одним пробелом

21.01.2012, 15:07. Просмотров 845. Ответов 1
Метки нет (Все метки)

Дан текст, слова в котором разделены хотя бы одним пробелом. подсчитать кол-во слов в тексте.

Добавлено через 44 секунды
Как посчитать эти слова?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.01.2012, 15:07
Ответы с готовыми решениями:

1. Вводится строка текста из N символов, слова разделены одним пробелом. Составьте программу, печатающую первое слово в строке в оьратном порядке.
1. Вводится строка текста из N символов, слова разделены одним пробелом....

Изменить текст, чтоб слова разделились ровно одним пробелом.
Изменить текст, чтоб слова разделились ровно одним пробелом.

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

Дан символьный файл, содержащий произвольный текст длиной более 5000 слов. Слова разделены пробелами и знаками препинания. Получить 100 наиболее часто
НАРОД срочно нужно написать на паскале : Дан символьный файл, содержащий...

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

1
Г.Р.
68 / 68 / 72
Регистрация: 18.01.2012
Сообщений: 132
21.01.2012, 18:46 2
Лучший ответ Сообщение было отмечено как решение

Решение

Доходишь до пробела, потом идешь, пока не доходишь до нового пробела, увеличиваешь счетчик.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
 s:string;
 i,kol:longint;
begin
 readln(s);
 kol:=0;
 i:=1;
 while(i<=ord(s[0])) do{ord(s[0]) это количество введеных символов в строке}
 begin
  while(s[i]=' ')and(i<=ord(s[0])) do
   i:=i+1;
  while(s[i]<>' ')and(i<=ord(s[0])) do
   i:=i+1;
  kol:=kol+1;
 end;
 writeln(kol);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2012, 18:46

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru