Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Renat1993
0 / 0 / 0
Регистрация: 18.01.2012
Сообщений: 1
#1

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

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

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

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

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

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

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

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

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

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

1
Г.Р.
68 / 68 / 18
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Дан текст, найти слова, состоящие из цифр, и сумму чисел, которые образуют эти слова - Pascal
Дан текст. Найти слова, состоящие из цифр, и сумму чисел, которые образуют эти слова. Помогите написать! С блок схемой.

Дан текст, в котором имеються цифры.Найти их сумму. - Pascal
Дан текст, в котором имеються цифры.Найти их сумму. . . Зарание спасибо!=)


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

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

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