Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
vitalii13001
0 / 0 / 0
Регистрация: 18.04.2011
Сообщений: 27
#1

Найти длину каждого слова в строке

19.04.2011, 21:53. Просмотров 1916. Ответов 2
Метки нет (Все метки)

дана строка. слова в ней разделены пробелами. найти длину каждого слова в строке.

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

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

Вставить в текст после каждого слова его длину
Помогите пожалуйста со строковыми переменными, срочно. 1) Дан текст. Вставить...

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

Определить наименьшую длину слова в строке
Определить наименьшую длину слова в строке. Считать, что все слова отделены...

Определить длину самого короткого слова в строке
Дана строка. Определить длину самого короткого слова в строке. Спасибо за...

Определить длину самого длинного слова в строке
составить программу, которая определяет длину самого длинного слова в строке

2
MAZUR777
605 / 130 / 132
Регистрация: 15.04.2010
Сообщений: 554
20.04.2011, 06:46 #2
Лучший ответ Сообщение было отмечено vitalii13001 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var
 s:string;
 i,j:byte;
 word:string;
begin
clrscr;
write('‚yГоЁвҐ бва®Єг: ');
readln(s);
repeat
 word:=copy(s,1,pos(' ',s));
 delete(s,1,pos(' ',s));
 j:=Length(word)-1;
 writeln('„«Ё**: ',j);
until pos(' ',s)=0;
 writeln('„«Ё**: ',Length(s)-1);
readln;
end.
0
dedere
13 / 13 / 10
Регистрация: 19.05.2011
Сообщений: 24
22.05.2011, 19:39 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
str,slovo,razd: string;
i:integer;
begin
razd:=' ';
write('Введите строку: ');
readln(str);
str:=str+' ';
 
 for i := 1 to length(str) do
 begin
    if pos(str[i], razd) = 0 then
          slovo := slovo + str[i]
    else
 
     begin if length(slovo)>0 then begin
     writeln('Длинна слова "',slovo,'" = ',length(slovo));
     slovo:='';
     end;
     end;
     end;
     end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2011, 19:39

Продублировать последнюю букву каждого слова в строке
Help me pls... ЦЕЛЬ РАБОТЫ. Задав с клавиатуры последовательность символов,...

Строки: Вывести последние символы каждого слова в строке
Здравствуйте! Уважаемые форумчане помогите решить задачку на Паскале, может...

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


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

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

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