VPF::Помогите новичку - Форум программистов

NewMan

Дата 10.10.2004, 14:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Надо составить программу , которая подсчитывает для заданного текста(Memo) частоты вхождения всех букв русского алфавита.
Буду очень благодарен за помощь.

Felliks

Дата 10.10.2004, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 329
Регистрация: 15.8.2004
Где: Красноярский край

Репутация: 1
Всего: 7

Код


procedure TForm1.Button1Click(Sender: TObject);
var s,a:string;
    i,j,k,sum:integer;
begin
a:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
sum:=0;
s:=memo1.Lines.GetText;
for j:=1 to length(s) do
for k:=1 to length(a) do
if s[j]=a[k] then sum:=sum+1;
edit1.Text:=inttostr(sum);
end;

Пользуйся на здоровье

--------------------

Почему русские при зависании Windows всё время повторяют фразу "твой кролик написал" (Your Bunny Wrote)?

Kesh

Дата 10.10.2004, 22:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Эксперт
Сообщений: 2488
Регистрация: 31.7.2002
Где: Германия, Saarbrü cken

Репутация: 4
Всего: 54

Я бы сделал так...

Код

procedure TForm1.Button1Click(Sender: TObject);
var 
  s:string;
  j:integer;
  sum: array['а'..'я'] of integer;
  c: char;
begin
  s:=memo1.Lines.GetText;
  for c := 'а' to 'я' do sum[c]:=0;
  for j:=1 to length(s) do if s[j] in ['а'..'я'] then inc(sum[s[j]]);
end;

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »