Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
6 / 6 / 1
Регистрация: 26.01.2010
Сообщений: 216
1

строка и символ

12.02.2010, 20:36. Просмотров 996. Ответов 2
Метки нет (Все метки)

Такая задача. Задана строка и символ. После каждого вхождения заданного символа вставить пробел. вообще не представляю как делать((
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.02.2010, 20:36
Ответы с готовыми решениями:

Строка: каждый символ строки S заменяются на следующий за ним символ в строке S...
Дано: в текстовом файле fin.txt находится текст на русском языке. С клавиатуры вводится число К....

Функция принимает блоки данных (символ1, символ 2, строка), в каждой строке заменять символ 1 на символ 2
функция принимает блоки данный(символ1, символ 2 , строка), в каждом строке заменять символ 1 на...

Дана строка символов, посчитать сколько раз встречается символ + и символ *
Дана строка символов, посчитать сколько раз встречается символ "+" и символ "*". ...

Есть строка (S), как в ней заменить символ (a) на символ (b)
Есть строка (S), как в ней заменить символ (a) на символ (b)?

2
13036 / 5822 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
12.02.2010, 21:32 2
Лучший ответ Сообщение было отмечено Black Angel как решение

Решение

Предлагаю решение, в котором может быть не один заданный символ, а множество символов.
На форму надо положить 2 компонента типа TEdit и одну кнопку. Обработчик нажатия кнопки оформить так:
Delphi
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
procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество заданных символов, после которых в строке требуется добавить пробел.
  CharDef = ['.', '!', '?'];
var
  //Исходная и результирующая строки.
  Str1, Str2 : String;
  //Индекс очередного символа в строке.
  i : Integer;
  //Запомненная позиция в строке.
  Pos1 : Integer;
begin
  //Читаем исходную строку.
  Str1 := Edit1.Text;
 
  Str2 := '';
  Pos1 := 1;
  //Последовательный перебор символов строки.
  for i := 1 to Length(Str1) do begin
    //Если текущий символ принадлежит заданному множеству, тогда копируем
    //в результирующую строку часть строки Str1 начиная с символа с индексом = Pos1
    //и заканчивая текущим символом (с индексом = i). Кроме этого добавляем знак пробела.
    if Str1[i] in CharDef then begin
      Str2 := Str2 + Copy(Str1, Pos1, i - Pos1 + 1) + ' ';
      //Начальный индекс копирования перемещаем на 1 позицию правее текущего символа.
      Pos1 := i + 1;
    end;
  end;
 
  //Добавляем в результирующую строку последний нескопированный ранее участок.
  if Pos1 <= Length(Str1) then begin
    Str2 := Str2 + Copy(Str1, Pos1, Length(Str1) - Pos1 + 1);
  end;
 
  //Показываем результат.
  Edit2.Text := Str2;
 
end;
1
Добрый самаритянин
1105 / 620 / 139
Регистрация: 31.03.2009
Сообщений: 2,568
12.02.2010, 21:51 3
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
s,s1:string;
i:integer;
begin
s1:='1';//заданный символ 
s:=edit1.Text;
For i:=length(s) downto 1 do
if s[i]=s1 then
insert(' ',s,i+1);
showmessage(s);
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.02.2010, 21:51

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

Строка: Как удалить начальный символ в строке и добавить тот же символ (который удалили) в конец строки?
Как удалить начальный символ в строке и добавить тот же символ (который удалили) в конец строки? ...

Задана строка текста длиной не менее двадцати символов и задан один отдельный символ. Вычислить, какое количество раз этот символ встречается в строке
1. Ввести множество, запись или строку с помощью клавиатуры. 2. Вывести на экран монитора исходную...

Дана строка. Создайте приложение, преобразующее строку, удалив каждый символ «*» и повторив каждый символ, отличный от «*»
Дана строка. Создайте приложение, преобразующее строку, удалив каждый символ «*» и повторив каждый...

Дана строка преобразовать ее удалив каждый символ * и повторив каждый символ отличный от символа *
Дана строка преобразовать ее удалив каждый символ * и повторив каждый символ отличный от символа *.


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

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

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