0 / 0 / 2
Регистрация: 23.09.2012
Сообщений: 130
1

В слове Х перед каждой буквой "к", которой предшествует буква "с", вставить букву "н"

18.09.2013, 19:12. Показов 2590. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Привет всем) вот условие задачи:В слове Х перед каждой буквой "к", которой предшествует буква "с", вставить букву "н" У меня был код на паскале я его переделал под delphi но он мне в memo выводит какие то цифры, не подскажите в чём проблема?
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
var s : string;
    i : integer;
begin
  s := Edit1.Text;
   i := 1;
  while i < Length(s) do
    if (s[i] = 'с') and (s[i+1] = 'к') then
    begin
      Insert('н',s, i+1);
      Inc(i, 3);
       Memo1.Text := IntToStr(i)
    end
    else
      Inc(i);
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.09.2013, 19:12
Ответы с готовыми решениями:

В строке перед каждой буквой 'k' которой предшествует буква 'c' вставить букву 'n'
В строке перед каждой буквой 'k' которой предшествует буква 'c' вставаить букву 'n' ___ помогите...

Вставьте в слове перед каждой буквой "к", которой предшествует буква "с", букву "о"
Вставьте в слове перед каждой буквой &quot;к&quot;, которой предшествует буква &quot;с&quot;, букву &quot;о&quot; в C++

В слове x перед каждой буквой "к", которой предшествует буква "с", вставить бкуву "н"
В слове x перед каждой буквой &quot;к&quot;, которой предшествует буква &quot;с&quot;, вставить бкуву &quot;н&quot;....

Двусвязный список: перед каждой буквой А вставить букву Д
Есть такое задание в двусвязном списке перед каждой буквой А вставить букву Д. И есть такой код,...

Вставить пробел перед каждой большой буквой в строке
Всем привет , столкнулся с проблемой , при вывода строки на экран нужно что бы перед каждой...

2
Модератор
3490 / 2613 / 741
Регистрация: 19.09.2012
Сообщений: 7,974
18.09.2013, 19:22 2
Delphi
1
2
3
4
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := StringReplace(Edit1.Text, 'ñê', 'ñíê', [rfReplaceAll])
end;
1
0 / 0 / 2
Регистрация: 23.09.2012
Сообщений: 130
18.09.2013, 19:24  [ТС] 3
Спасибо выручили))
0
18.09.2013, 19:24
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.09.2013, 19:24
Помогаю со студенческими работами здесь

Строка: вставить пробел перед каждой заглавной буквой
Вводится строчка, например, HaveaNiceDay. Нужно чтобы выводилось Havea Nice Day, то есть перед...

Перед каждой гласной буквой вставить восклицательный знак
Дана строка, содержащая латинские буквы, цифры, знаки препинания, пробельные символы. Перед каждой...

В каждую пару символов «АБ» вставить букву «П», подсчитать сколько раз в строке буква «Г» стоит перед «Д»
Составить алгоритм программу, которая вводит строку текста, печатает ее, производит исчисления и...

Вставить заданную букву перед последней буквой "и"
2. Дано предложение, оканчивающееся символом &quot;_&quot;. Вставить заданную букву перед последней буквой...

Проверить, есть ли в заданном слове буква "к", стоящая на четных местах перед буквой "и"
Здравствуйте!Помогите пожалуйста решить задачу. Составьте программу, проверяющую, есть ли в...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru