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

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.70
vitalii13001
0 / 0 / 0
Регистрация: 18.04.2011
Сообщений: 27
#1

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

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

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

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

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

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

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

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

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

2
MAZUR777
605 / 130 / 65
Регистрация: 15.04.2010
Сообщений: 554
20.04.2011, 06:46 #2
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 / 5
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

В заданной строке переведите первую букву каждого слова в верхний регистр - Pascal ABC
В заданной строке переведите первую букву каждого слова в верхний регистр. Разделителями слов являются пробелы и знаки препинания. Выведите...

Строка: Найти длину самого короткого слова и самого длинного слова. - Pascal ABC
Дана страка, содержащая текст. Найти длину самого короткого слова и самого длинного слова.


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

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

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