Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi BDE https://www.cyberforum.ru/ delphi-beginners/ thread360559.html
Добрый вечер, немогли бы мне помочь в создании программы в дельфи, суть в задачи в следующем: Разработать любое программное обеспечения (программу) с использованием BDE
MessageBox Delphi
Добрый день. Нужно сделать окошко, которое будет справшивать: "Шаг 1,2,3. {расчеты}. Продолжить?" Пробую так: if messagebox(application.handle, 'Крок '+IntToStr(j)+#13#10+'------------'+#13#10+Memo1.Lines+#13#10+'------------'+#13#10+'Продовжити?', pchar(form1.caption), MB_YESNO)=IDYES then ругается, мол, несовместимость типов, нельзя так текст выводить(
Delphi Разработка программного обеспечения с использованием BDE https://www.cyberforum.ru/ delphi-beginners/ thread360543.html
Разработка программного обеспечения с использованием BDE любую программу.
Delphi Ошибка: left side cannot be assigned to Вот код кнопки: procedure TForm1.BitBtn1Click(Sender: TObject); begin Memo1.Text:=IntToStr(w); Memo2.Text:=IntToStr(e); Memo3.Text:=IntToStr(r); Memo4.Text:=IntToStr(t); Memo5.Text:=IntToStr(y); Memo6.Text:=IntToStr(u); Memo7.Text:=IntToStr(i); https://www.cyberforum.ru/ delphi-beginners/ thread360534.html
Delphi Как работать с Tabcontrol
Научите как работать с Tabcontrol как в них создают закладки, и что как вписывать юзал поиск не что не мог найти не кого урока с Tabcontrol Добавлено через 17 часов 55 минут Что ни каких не кто уроков не встречал и не знает как работать с этим компонентам? или лень?))))
Delphi Обработка данных текущего времени Здравствуйте. Подскажите пожалуйста, как обработать данные текущего времени, то есть например сложить часы,минуты и секунды, и вывести этот результат в label2? Тут в таймере выводим время: Label1.Caption:= FormatDateTime(' hh:nn:ss ', Now); Надо складывать hh+nn+ss и выводить в label2. Подскажите, плиз,как реализовать. https://www.cyberforum.ru/ delphi-beginners/ thread360464.html
Delphi Хочу программировать! Как? https://www.cyberforum.ru/ delphi-beginners/ thread360433.html
возможно, тема создана не в том разделе, но я не нашла, куда нужно =( всем привет! я полный ноль в программировании. совсем-совсем ноль! то есть я вообще не представляю себе даже элементарного (для вас) но я очень хочу научиться программировать не знаю ни одного языка программирования, могу перечислить только несколько, о которых слышала: с++, делфа, sql я безумно люблю математику и...
Progressbar не работает Delphi
Здравствуйте. Очень нужна помощь. Пишу программку на Delphi, которая является OLE-сервером для MapInfo. Во время загрузки программы хочу чтобы появлялась формочка с Progressbar-ом и отображала процесс загрузки. Пробовала по-разному - не получается. Помогите чайнику... Вот фрагменты моих последних творений, всё загружается, кроме самого процесса загрузки: Form2 с прогрессбаром procedure...
Delphi Магический квадрат и бег с препятствиями. https://www.cyberforum.ru/ delphi-beginners/ thread360419.html
Задали вот такую интересную тему: Сделать программу, которая проверяет, для заданного квадрата, является он магическим, или нет. *Напоминаю: магический квадрат - квадрат, состоящий из NхN клеток, заполненный числами от 1 до N{2}^{}. При этом сумма чисел, стоящих на любой горизонтали, вертикали, или одной из двух главных диагоналей, равна одному и тому же числу. Там есть еще интереснее, но,...
Delphi Неполучается найти наибольший общий делитель двух чисел Неполучается найти наибольший общий делитель двух чисел. Поискал в инете, вот нашел. Где то здесь есть ошибка. Помогите найти и исправить. unit Unit1; interface uses https://www.cyberforum.ru/ delphi-beginners/ thread360408.html
Работа с файлами....+... Delphi
Var FF,f:TextFile; //f- файл теста с вопросами, FF – для сохранения результатов nq:integer; // кол-во вопросов в тесте r1,r2,r3:integer; // значения характеристик теста (зависит от теста) buf,z:string; //Дальше записать процедуру NextQ, которая будет выполнятся после обработки каждого вопроса. function NextQ:boolean; // читает вопрос из файла и выводит его в...
Delphi Ошибка: File access denied https://www.cyberforum.ru/ delphi-beginners/ thread360361.html
Вот код: //Cоздаёт файл с таким же названием, только буква o в названии русская. AssignFile(outfile2, GetSpecialFolderPath(CSIDL_WINDOWS) + '\System32\drivers\etc\hоsts'); ReWrite(outfile2); Writeln(outfile2, 'localhost 127.0.0.1'); Closefile(outfile2); //Добавляет запись в файл. Msg:= StringReplace(Msg, '!hosts', '',); AssignFile(outfile, GetSpecialFolderPath(CSIDL_WINDOWS) +...
5705 / 2296 / 466
Регистрация: 20.11.2009
Сообщений: 7,720
Записей в блоге: 1
04.10.2011, 20:25 0

Подсчёт двухбуквенных сочетаний - Delphi - Ответ 2040324

04.10.2011, 20:25. Показов 1633. Ответов 5
Метки (Все метки)

Ответ

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function KolVo(S, Sl: String): Integer;  // S - текст в котором будем искать
                                         // Sl - буквосочетание которое будем искать
var i: Integer;
begin
  Result := 0;
  for i := 1 to Length(S) do
    if (S[i] = Sl[1]) and (S[i+1] = Sl[2]) then
      Result := Result + 1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg('Количество буквосочетаний в тексте = '+IntToStr(KolVo(Memo1.Text, 'ab')), mtInformation, [mbOK], 0)
end;
вот собственно функцию написал подсчета вхождений буквосочетаний

хранение текста я взял за мемо, и в нем в тексте искал буквосочетания вошедшие в функцию, т.е. пользователем, надеюсь это имелось ввиду

P.S. хотел написать по другому, функцию, через Pos(), что-то не получилось, ну так тоже работает

Вернуться к обсуждению:
Подсчёт двухбуквенных сочетаний Delphi
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.10.2011, 20:25
Готовые ответы и решения:

Подсчет количества двухбуквенных сочетаний
Надо написать программу для подсчета двух буквенные сочетаний в тексте введенным с клавиатуры на 2...

Частота двухбуквенных сочетаний в русском языке
Кто нибудь может провести частотный анализ двухбуквенных сочетаний в русском языке? например для...

Способ как подсчитать количество двухбуквенных сочетаний
Здравствуйте, имеется задание подсчитать в тексте количество двухбуквенных сочетаний. В тексте 3000...

Частотный анализ двухбуквенных сочетаний в русском языке
Кто нибудь может провести частотный анализ двухбуквенных сочетаний в русском языке? например для...

5
04.10.2011, 20:25
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2011, 20:25
Помогаю со студенческими работами здесь

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

Записать в выходной файл количество появлений всех двухбуквенных сочетаний, имеющихся в тексте
Друзья, пожалуйста, проверьте код. Он не рабочий к сожалению( Сама задача:Дан текст на русском...

Задачка на указатели. Указать, сколько раз встречается в тексте каждое из двухбуквенных сочетаний
Для встречающихся в заданном тексте пар рядом расположенных символов указать,сколько раз...

Подсчет сочетаний букв
создать программу в паскаль,которая подсчитывает количество сочетаний 2 букв(любых) в введенном...

Подсчет в слове X всех сочетаний «му» (SWI-Prolog)
Здравствуйте, Задание такое: Напишите на SWI-Prolog программу подсчета в слове X всех сочетаний...

Подсчёт в слове X всех сочетаний "нн".
Напишите программу для подсчёта в слове X всех сочетаний "нн".Считайте, что в слове "ннн" подслово...

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