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

строки

29.04.2010, 13:57. Просмотров 302. Ответов 4
Метки нет (Все метки)

помогите плз


Дана строка символов S. Группы символов, разделенные пробелами (одним или несколькими) и не содержащие пробелов внутри себя, будем называть словами.
Найти длину самого короткого слова.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2010, 13:57
Ответы с готовыми решениями:

Слить две строки, вставив символы одной строки между символами другой строки
Строка a из n символов лексикографически меньше строки b из n символов, если...

Строки. Если в конце строки точка отсутствует, то найти слово, заканчивающееся точкой и перенести его в конец строки.
Дана строка, состоящая из слов и содержащая одну точку в конце одного из слов....

Упорядочить строки матрицы по неубыванию сумм цифр элементов этой строки
Пусть дана матрица А(п х т). Упорядочьте строки по неубыванию сумм цифр...

Вырезать два первых символа символьной строки и поместить их в конец строки
Помоги те пожалуйста, решите сколько сможете. Задачи на строки. 2. Вырежьте...

Отсортировать строки матрицы по возрастанию сумм положительных элементов каждой строки
Дана прямоугольная матрица размером n x m, содержащая вещественные числа....

4
ЛОГАН
1 / 1 / 0
Регистрация: 29.04.2010
Сообщений: 10
29.04.2010, 15:01 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program tr;
uses crt;
var s,s1:string;
y,i:integer;
begin
  write('BBEDTE CJIOBA');
  read(s);
  y:=length(s);
  for i:=1 to length(s) do
    if (s[i]<>' ')
    then s1:=s1+s[i]
    else if (length(s1)<=y)
    then begin
      y:=length(s1);
      s1:='';
    end else s1:='';
  write('dlina:',y)
  end.
Будет исправно работать, при условии, что в конце строки будет пробел...
0
Puporev
Модератор
55507 / 42595 / 29444
Регистрация: 18.05.2008
Сообщений: 100,754
29.04.2010, 15:03 3
Будет исправно работать, при условии, что в конце строки будет пробел...
Так добавь его сам.
Pascal
1
2
3
readln(s);
s:=s+' ';
y:=length(s);
0
BVP
0 / 0 / 0
Регистрация: 26.04.2010
Сообщений: 1
29.04.2010, 15:08 4
а можно то же условие, только Подсчитать количество слов в данной последовательности.
0
ЛОГАН
1 / 1 / 0
Регистрация: 29.04.2010
Сообщений: 10
29.04.2010, 15:17 5
Это же просто:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program tr;
uses crt;
var s,s1:string;
y,x,i:integer;
begin
  write('BBEDTE CJIOBA');
  read(s);
  s:=s+' ';
  for i:=1 to length(s) do
    if (s[i]=' ')
    then x:=x+1;
  write('kolichestvo:',x)
  end.
0
29.04.2010, 15:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2010, 15:17

Из строки сформировать новую строку, содержащую символы цифр исходной строки
Из введенной символьной строки выбрать все цифры и сформировать другую строку...

Даны три строки: S1, S2, S3. Заменить в строке S1 последнее вхождение строки S2 на S3
Помогите плиз написать программу: Даны три строки: S1, S2, S3. Заменить в...

Упорядочить (переставить) строки матрицы по невозрастанию сумм элементов строки
Нужно составить программу,как можно проще и короче,помогите! Дана...


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

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

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