Статистика (Вероятность)

@Programmia · Регистрация: 18.02.2020

Студворк — интернет-сервис помощи студентам

Проблема такая. Есть код, где подсчитывает количество символов в первом Memo, а в Edit 1 и 2 выводит количество и сумму вероятностей всех символов в тексте. Но к этому также надо добавить ещё один Memo и Edit с кнопкой. И теперь в эдит надо ввести какое-то слово (любое) и при нажатии на кнопку вывести в Memo первый символ, затем при повторном нажатии программа должна посчитать вероятность появления символа (например, после буквы "б") и вывести вторым символом в memo букву с самой большой вероятностью появления и так далее, пока не кончится слово в Edit
Так например, мы ввели слово "Воробей", но в Memo могло появиться слово "Ворабаи". То есть слово могло передаться правильно, а могло с ошибками.
Помогите, пожалуйста.

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
35
36
37
38
39
40
41
42
procedure TForm1.Button2Click(Sender: TObject);
var
f:boolean;
i,l:integer;
s:string;
begin
s:=memo1.lines.Text;
i:=1;
l:=length(s);
f:=false;
while i<=l do
begin
if ((s[i]>='a')and(s[i]<='z'))or((s[i]>='A')and(s[i]<='Z'))
or((s[i]>='а')and(s[i]<='я'))or((s[i]>='А')and(s[i]<='Я'))or(s[i]='-') then
f:=false;
i:=i+1;
end;
Edit1.Text:=inttostr(l);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
var
   s : string;
   Ch : Char;
   Counts : array[Char] of Integer;
   i: Integer;
   p, sum:extended;
begin
sum:=0;
 s := Memo1.Text;
 ZeroMemory(@Counts, SizeOf(Counts)); //заполняем ячейки памяти нулями
   for i := 1 to Length(s) do Inc(Counts[s[i]]);
   for Ch := Low(Char) to High(Char) do
 if Counts[Ch] > 0 then
   begin
   p:=(Counts[Ch])/Length(s);
   sum:=sum+p;
 Memo2.Lines.Add(Format('" %s ", повторяется %d раз(а)',
 [Ch, Counts[Ch]]) + ' = ' + floattostr(p));
end;
Edit2.Text:=floattostr(sum);
end;

@D1973 · 18.11.2021, 09:05

Сообщение от Programmia

У меня получилось на C# написать

написать на C# код на С++... Просто замечательно

@Constcat · 18.11.2021, 11:41

Не по теме:

Сообщение от D1973

написать на C# код на С++

Угу. И при этом не мочь переписать его на Delphi...

@Пытливый · 18.11.2021, 12:28

Вот что делает форум-животворящий. Какой грандиозный интеллектуальный скачек от фразы "Вот что-то похожее и должно быть, но мне не понятно, как реализовать это программно.", до готового кода. Он ведь его для нас и комментариями оформил. И это всего за неделю.

Новые блоги и статьи Все статьи Все блоги /
Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .

@Пытливый 3764 / 2272 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	18.11.2021, 12:28
	Вот что делает форум-животворящий. Какой грандиозный интеллектуальный скачек от фразы "Вот что-то похожее и должно быть, но мне не понятно, как реализовать это программно.", до готового кода. Он ведь его для нас и комментариями оформил. И это всего за неделю. 1