Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Raistlin
0 / 0 / 1
Регистрация: 10.10.2013
Сообщений: 33
1

Строки

09.12.2013, 17:39. Просмотров 830. Ответов 1
Метки нет (Все метки)

Дана строка длиной не более 40 символов. Слова в строке разделены одним пробелом. Последний символ – «.». Удалить из строки слова длиной не более 3-х символов. Нужно написать программу без readkey
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2013, 17:39
Ответы с готовыми решениями:

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

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

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

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

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

1
chizz
983 / 501 / 101
Регистрация: 19.03.2013
Сообщений: 3,107
Записей в блоге: 19
Завершенные тесты: 1
09.12.2013, 18:31 2
Лучший ответ Сообщение было отмечено Raistlin как решение

Решение

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
type TWords = array[1..1000] of string;
var init_string,output_string:string;
    words: TWords;
    len,i:integer;
 
    procedure StringToArray(str:string; var words:TWords; var len:integer);
     var i,k,p:integer;
     word:string;
     begin
     k:=1;
     p:=1;
     word:='';
      for i:=1 to length(str) do
       begin
       // если видим пробел, то сохраняем слово в массив words и увеличиваем счетчик
        if str[i]=' ' then
        begin
         words[k]:=word; k:=k+1; p:=1;  word:='';
         end
          else
           begin
             word:=word+str[i];
             p:=p+1;
           end;
       end;
       len:=k;
     end;
begin
 init_string:='This is a test sequence 123';
 StringToArray(init_string,words,len);
 //   for i:=1 to len do
 //    writeln(words[i],' ');
 for i:=1 to len do
   if length(words[i])>=3 then output_string:= output_string+words[i]+' ';
   writeln(output_string);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2013, 18:31

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

Поменять все элементы 5 строки матрицы на удвоенное значение элементов 1 строки
Поменять местами все элементы 5 строки на удвоенное значение элементов 1...

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


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

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

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