Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 16.05.2010
Сообщений: 15
1

Задана строка текста длинной не менее 20 символов. Определить, сколько слов, разделенных пробелами имеется в этой строке текста.

29.05.2010, 00:45. Показов 1962. Ответов 3
Метки нет (Все метки)

Собственно есть задача:
Задана строка текста длинной не менее 20 символов. Определить, сколько слов, разделенных пробелами имеется в этой строке текста.
Зделано следующее:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
st,s1,s2:string;
x,y,z,o:integer;
begin
Writeln('Vvedit stroku');
Readln(st);
o:=1;
for z:=1 to length(st) do
begin
if copy(st,z,1)=' '  then
begin
o:=o+1;
end;
end;
writeln(o);
readln;
end.
Вопрос: что подправить, чтоб она не засчитовала несколько пробелов подряд за несколько слов?
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.05.2010, 00:45
Ответы с готовыми решениями:

Задана строка текста длиной не менее двадцати символов. Выполнить перевод всех символов этой строки из верхнего регистра в нижний, и наоборот
1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на экран монитора исходную...

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов в строке
помогите решить пожалуйста)

Задана строка текста длиной не менее двадцати символов и задан один отдельный символ. Вычислить, какое количество раз этот символ встречается в строке
1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на экран монитора исходную...

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

3
912 / 877 / 62
Регистрация: 06.01.2010
Сообщений: 2,367
Записей в блоге: 6
29.05.2010, 01:12 2
Цитата Сообщение от Brian_UIN Посмотреть сообщение
Вопрос: что подправить, чтоб она не засчитовала несколько пробелов подряд за несколько слов?
На вашем месте я бы озаботился также и тем, чтобы не подсчитывались пробелы в начале и конце строки, ибо они очевидно не разделяют слова.
0
9 / 9 / 6
Регистрация: 15.05.2010
Сообщений: 184
29.05.2010, 01:23 3
предложу свой вариант.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program kolslov;
uses crt;
var
a:string;
j,i:integer;
t:boolean;
begin
clrscr;
writeln('vvedite stroku');
readln(a);
i:=1;
j:=0;
while i<=length(a) do
begin
t:=false;
while (a[i]<>' ') and (i<=length(a)) do
begin
t:=true;
i:=i+1;
end;
if t then j:=j+1;
i:=i+1;
end;
writeln('B ctpoke clov=',j);
readln;
end.
1
0 / 0 / 0
Регистрация: 16.05.2010
Сообщений: 15
29.05.2010, 09:06  [ТС] 4
kestugar, спасибо за помощь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.05.2010, 09:06

Задана строка. Определить, сколько строчных русских букв содержится в этой строке.
1.Задана строка. Определить, сколько строчных русских букв содержится в этой строке.

Дана строка состоящая из слов, разделенных пробелами. Составить строку состоящую из первых символов слов
В Delphi

Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки
Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки....

Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки
Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки....

Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки
Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки...

Дана строка символов, состоящая из цифр, разделенных пробелами. Вывести четные числа этой строки
Строка берется из ListBox. Вывести числа надо в Label. AnsiString. Помогите пожалуйста. ...


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

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

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