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

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.73
Light_COOLER
0 / 0 / 0
Регистрация: 02.01.2010
Сообщений: 3
#1

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

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

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

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

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

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

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

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

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

6
EFEFEFEF
36 / 13 / 1
Регистрация: 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 / 0
Регистрация: 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
Модератор
52844 / 40655 / 13908
Регистрация: 18.05.2008
Сообщений: 94,365
04.01.2010, 13:00 #5
s,c:string;//а это конечно не строки!
0
69Ik
7 / 7 / 0
Регистрация: 02.01.2010
Сообщений: 69
04.01.2010, 13:36 #6
Цитата Сообщение от Puporev Посмотреть сообщение
s,c:string;//а это конечно не строки!
ну строки... а в чем проблема? это дополнительные переменные =) это же не массив строк.
0
deathNC
1890 / 1003 / 27
Регистрация: 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-го символа строки вставить букву "в" - Delphi
Помогите пожалуйста решить задачу! Составить программу. Вставить букву "в" после каждого девятого символа строки. Для каждой строки...

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

Заменить первые буквы в каждом слове строки на заглавные буквы - Delphi
Задача: Заменить первые буквы в каждом слове строки на заглавные буквы. P.S. При помощи Edit , прошу скинуть мне полный код! заранее...

Выделить в слове Х каждую букву О - Delphi
Напишите программу, выделяющую в слове Х каждую букву "о" с помощью буквы "-" слева и справа.


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

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

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