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

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

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

Привет всем) вот условие задачи:В слове Х перед каждой буквой "к", которой предшествует буква "с", вставить букву "н" У меня был код на паскале я его переделал под 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.09.2013, 19:12
Ответы с готовыми решениями:

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак",
В каждом слове текста замените &quot;а&quot; на букву &quot;е&quot;, если &quot;а&quot; стоит на четном...

Замените в слове Х все буквы "а" на сочетание "ку", а сочетание "ку" на букву "б"
Написать программу, заменяющую в слове Х все буквы &quot;а&quot; на сочетание &quot;ку&quot;, а...

Из слов "Работа", "крест", "тон" составить фразу "Кто не работает, тот не ест" и определить ее длину
Из слова &quot;Работа&quot;,&quot;крест&quot;,&quot;тон&quot; составить фразу:&quot;Кто не работает, тот не ест&quot; и...

На форме располагаются компоненты: редактор Edit; линейка ScrollBar; радионабор с опциями "Цветы", "Деревья", "Рыбы", "Звери"
Доброго времени суток, 2 курс 2 семестр, пришли, препод раздал задачи, сказал...

В каждом слове текста замените "а" на букву "е"
В каждом слове текста замените &quot;а&quot; на букву &quot;е&quot;, если &quot;а&quot; стоит на четном...

2
FIL
Модератор
3422 / 2556 / 728
Регистрация: 19.09.2012
Сообщений: 7,926
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
RomeoSFS
0 / 0 / 2
Регистрация: 23.09.2012
Сообщений: 130
18.09.2013, 19:24  [ТС] 3
Спасибо выручили))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.09.2013, 19:24

Тысячные числа исправлять к примеру с "1200" на "1 200", "12000" на "12 000" и т.д
Собственно числа исправлять к примеру с &quot;1200&quot; на &quot;1 200&quot;, &quot;12000&quot; на &quot;12 000&quot;,...

Поменять местами в выбранном слове первую букву "а" с последней буквой
Разработать программу, которая меняет местами в выбранном слове первую букву...

Сформируйте новый файл t2, который будет содержать те строки файла t1, которые начинаются с буквы "а" и заканчиваются буквой "я"
Задание 4. Задан текстовый файл t1. Сформируйте новый файл t2, который будет...


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

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

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