Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Morgin3
1

Строки

31.03.2013, 18:09. Показов 918. Ответов 1
Метки нет (Все метки)

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

Использовать при написании стандартные процедуры и функции операций над строками .
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2013, 18:09
Ответы с готовыми решениями:

Определить длину строки. Если длина строки >6, удалить часть строки в { } скобках.
Ввести с клавиатуры строку символов. Признак окончания ввода строки – нажатие клавиши "Ввод"....

Строки. Определить длину введенной строки, если длина кратна 4, то первая часть строки меняется местами со второй
Ввести с клавиатуры строку символов.признак окончания ввода строки-нажатие клавиши ввод.Программа...

Строки. Даны строка S и подстрока S1.Удалить из строки S все вхождения строки S1
Даны строка S и подстрока S1.Удалить из строки S все вхождения строки S1.В строке S подсчитать...

Строки. Даны строки S и So. Найти количество вхождений строки So в строку S
Помогите пожалуйста, как сделать эту задачу без этих вот строчек... B:=TRUE; и без команды INC......

1
Модератор
8413 / 4163 / 2877
Регистрация: 17.08.2012
Сообщений: 13,281
01.04.2013, 02:04 2
Лучший ответ Сообщение было отмечено как решение

Решение

Программа с проверкой корректности ввода входной строки. Слово из одного символа считается словом с неубывающей последовательностью символов.
Кликните здесь для просмотра всего текста
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program words;
 
uses crt;
  
var s, p, t, m: string;
    i: integer;
    f: boolean;
 
begin
  writeln('Enter string:');
  readln(s);
  while (pos('  ', s) > 0) do delete(s, pos('  ', s), 1);
  if s[1] = ' ' then delete(s, 1, 1);
  if pos(' .', s) > 0 then delete(s, pos(' .', s), 1);
  if s[length(s)] = ' ' then delete(s, length(s), 1);
  f := true;
  if s[length(s)] <> '.' 
    then f := false
    else 
      for i := 1 to (length(s) - 1) do 
        if not(s[i] in ['0'..'9', ' '])
          then begin
            f := false;
            break;
          end;
  if not f 
    then writeln('Invalid string format!')
    else begin
      s[length(s)] := ' ';
      t := '';
      while s <> '' do begin
        p := copy(s, 1, (pos(' ', s) - 1));
        m := p[1];
        f := true;
        for i := 1 to length(p) do 
          if m <= p[i] 
            then m := p[i]
            else begin
              f := false;
              break;
            end;
        if f then t := t + p + ' ';
        delete(s, 1, (length(p) + 1));
      end;
      if t <> '' then begin 
        delete(t, length(t), 1);
        writeln('Found word(s):');
        writeln(t);
      end
      else writeln('Words not found!');
    end;
  readln;
end.
Всего Вам доброго.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.04.2013, 02:04

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

Нахождение длины той части строки s, которая не содержит символы из строки s1
Разработать процедуру или функцию StrCSpn(s,s1) , выполняющую нахождение длины той части строки s,...

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

Каждый элемент строки матрицы разделить на сумму элементов этой строки
Доброго времени суток. Решите пожалуйста задачу Составить программу для выполнения заданных...

Прибавление к элементам какой-либо строки массива элементов другой строки
Разработать подпрограмму прибавления к элементам какой-либо строки массива элементов другой...


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

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

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