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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Raistlin
0 / 0 / 0
Регистрация: 10.10.2013
Сообщений: 33
#1

Строки - Turbo Pascal

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

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

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

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

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

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

Слить две строки, вставив символы одной строки между символами другой строки - Pascal
Строка a из n символов лексикографически меньше строки b из n символов, если существует такой индекс j, что aj < bj, а для всех i < j ai =...

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

1
chizz
981 / 496 / 54
Регистрация: 19.03.2013
Сообщений: 3,095
Записей в блоге: 18
Завершенные тесты: 1
09.12.2013, 18:31 #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
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
Привет! Вот еще темы с ответами:

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

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

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

Строки. Удалить часть символьной строки,заключенной в скобки (вместе со скобками) - Turbo Pascal
Удалить часть символьной строки,заключенной в скобки(вместе со скобками).


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

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

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