Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
Light_COOLER
0 / 0 / 0
Регистрация: 02.01.2010
Сообщений: 3
1

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

02.01.2010, 17:52. Просмотров 1464. Ответов 6
Метки нет (Все метки)

Дано предложение. Признак конца ввода - точка. В заданном слове после заданной буквы вставить другую заданную букву.
P.S. Предложение должно быть загнано в массив.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.01.2010, 17:52
Ответы с готовыми решениями:

Написать программку которая будет подставлять в заданном слове на месте пробела букву латинского алфавита
Всем привет, помогите с написанием небольшого алгоритма. В этом деле я не але....

Вставить в натуральное число заданную цифру после всех четных цифр в записи числа(цифра вводится с клавиатуры)
Дано натуральное число. Вставить в него заданную цифру после всех четных цифр в...

В каждое слово строки вставить введённую пользователем букву после символа с заданным номером
Доброго дня всем! В универе задали написать программу, которая после нажатия на...

В файл из нескольких строчных латинских букв вставить после каждой из них аналогичную прописную букву
В файл из нескольких строчных латинских букв вставить после каждой из них...

В слове Х перед каждой буквой "к", которой предшествует буква "с", вставить букву "н"
Привет всем) вот условие задачи:В слове Х перед каждой буквой "к", которой...

6
EFEFEFEF
36 / 13 / 2
Регистрация: 12.10.2009
Сообщений: 421
02.01.2010, 23:41 2
Смотри будем определять так, конец слова, точка и после точки нудно вставить знак.
Delphi
1
2
3
4
5
6
7
ss:=s;
for i:=1 to length(s) do
begin
reS:=pos('.',S);
S:=copy(S,res,length(S));
insert('simvol',ss,res+1);
end;
0
Light_COOLER
0 / 0 / 0
Регистрация: 02.01.2010
Сообщений: 3
03.01.2010, 11:46  [ТС] 3
Не, у меня массив символов (char), а не строк. Никаких copy/insert. Напишите хотя бы, как найти это слово, которое задано и как вставить заданную букву, пожалуйста.
0
69Ik
7 / 7 / 5
Регистрация: 02.01.2010
Сообщений: 69
04.01.2010, 10:07 4
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
var
a:array[1..3000] of char;
i,n,j,k,q:integer; s,c:string; s1,s2,v:char;
begin
i:=0;
repeat
 inc(i);
 readln(a[i]);
until a[i]='.';
n:=i-1; //Кол-во символов без точки
writeln(n);
readln(s);  {s - Слово}
readln(s1); {S1 - символ после которого ставить другой}
readln(s2); {s2 - символ который ставить после S1}
for i:=1 to n-length(s) do
 begin
  c:='';
  for j:=i to i+length(s)-1 do
   c:=c+a[j];
  if s=c then
   k:=i;
 end;
q:=0;
for i:=k to k+length(s) do
 if a[i]=s1 then
  begin
   inc(q);
   for j:=n downto i do
    a[j+1]:=a[j];
   a[i+1]:=s2;
  end;
for i:=1 to n+q+1 do
 write(a[i]);
readln;
Написал в паскале, но переделать в делфи не трудно, должно помоч =) если что пиши, но олько не в личку =)
0
Puporev
Модератор
54590 / 42094 / 29064
Регистрация: 18.05.2008
Сообщений: 99,319
04.01.2010, 13:00 5
s,c:string;//а это конечно не строки!
0
69Ik
7 / 7 / 5
Регистрация: 02.01.2010
Сообщений: 69
04.01.2010, 13:36 6
Цитата Сообщение от Puporev Посмотреть сообщение
s,c:string;//а это конечно не строки!
ну строки... а в чем проблема? это дополнительные переменные =) это же не массив строк.
0
deathNC
1892 / 1005 / 123
Регистрация: 08.12.2009
Сообщений: 2,792
Записей в блоге: 2
05.01.2010, 08:46 7
Погляди содержание проги... там я что-то с индексами на пьяную голову напортачил...
Если ты захочешь, я допишу прогу... тока пиши сюда...
0
05.01.2010, 08:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.01.2010, 08:46

В заданном списке фамилий найти фамилии, начинающиеся на букву «к» и оканчивающиеся на букву «а»
В заданном списке фамилий найти фамилии, начинающиеся на букву «к» и...

После каждого 9-го символа строки вставить букву "в"
Помогите пожалуйста решить задачу! Составить программу. Вставить букву "в"...

Ввести строку символов и заменить в каждом слове первую букву на букву "В"
Ввести строку символов и заменить в каждом слове первую букву, на букву В....


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

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

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