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

Строки - Turbo Pascal

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

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

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

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

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

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

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

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

1
chizz
983 / 500 / 101
Регистрация: 19.03.2013
Сообщений: 3,101
Записей в блоге: 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. Вырежьте...


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

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

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