Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.10.2007, 12:20   #1
Марго
 
Аватар для Марго
 
Регистрация: 14.10.2007
Сообщений: 3
Вопрос что-то типа курсовой...

Привет !очень рассчитываю на вашу помощь...курсовая моя по статистике...задание звучит примерно так:нужно сделать такую программу в Делфи,чтобы она умела считать буквы в тексте,т.е. например взять кусочек произведения Толстого,программа посчитает ,что там буква "А"встречается 80 раз,буква "Б"встречается 73 раза,буква "В"встречается 25 раз и так далее...берём второй текст...там программа считает тоже самое...и чтобы эта программа еще умела выводить разницу между текстами...вот...всё ,что запомнила от препода,изложила...еще он сказал,что мне в этой программе нужно будет вспомнить понятие кодового символа,функцию ОРТ...помогите пожалуйста..!!!!!!!!!! margomax88@mail.ru аська 284304501...очень рассчитываю на помощь умных людей-программистов=)))
Марго вне форума Ответить с цитированием
Старый 14.10.2007, 14:06   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
чтобы она умела считать буквы в тексте
Загоняем текст в ТМЕМО и последовательно просматриваем:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var kolvo_bukv,i,j,len: integer;
begin
Button1.Enabled:=False;
if OpenDialog1.Execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
len:=Memo1.GetTextLen;
for i:=Ord('А') to Ord('я') do //"кодового символа,функцию ОРТ"
begin
kolvo_bukv:=0;
for j:=1 to len do
if Memo1.Text[j]=Chr(i) then
Inc(kolvo_bukv);
if kolvo_bukv>0 then
ShowMessage('В тексте найдено '+IntToStr(kolvo_bukv)+' букв '+Chr(i));
end;
end;
Button1.Enabled:=True;
end;
mihali4 вне форума Ответить с цитированием
Старый 14.10.2007, 15:15   #3
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
Смущение

Код:
//заводим массив :
Var
a: array['A'..'Я'] of integer;
c: char; 
begin
//прогоняем текст 1 раз :
 for j:=1 to len do
 begin
  c:= AnsiUpperCase(Memo1.Text[j])[1];
  if (c>='A')and(c<='Я') then
    a[c] := a[c]+1;
 end;
  // вывод результатов аналогичен :
  for c:='A' to 'B' do
   if a[c]>0 then
    ShowMessage('В тексте найдено '+IntToStr(a[c])+' букв '+c);
end;
Берегите друг друга!

Последний раз редактировалось Virtson; 14.10.2007 в 15:24.
Virtson вне форума Ответить с цитированием
Старый 14.10.2007, 15:18   #4
Марго
 
Аватар для Марго
 
Регистрация: 14.10.2007
Сообщений: 3
По умолчанию

знаете,в чем проблема))у меня нет делфи))пришлите мне кто-нить))
Марго вне форума Ответить с цитированием
Старый 14.10.2007, 15:20   #5
Марго
 
Аватар для Марго
 
Регистрация: 14.10.2007
Сообщений: 3
По умолчанию

а еще он что-то говорил про коэффициент кореляции...и чтобы программа сравнивала массивы или тексты....ничё в этом не понимаю))бу
Марго вне форума Ответить с цитированием
Старый 14.10.2007, 15:21   #6
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
Сообщение если обязательно ORD

Код:
Var
a: array[0..31] of integer;
b: byte;
begin
 for j:=1 to len do
 begin
  b:= ORD(AnsiUpperCase(Memo1.Text[j])[1]);
  if (b>=ORD('A'))and(b<=ORD('Я')) then
  begin
   b:= b-ORD('A');
   a[b] := a[b]+1;
  end;
 end;
 for b:=0 to 31 do
   if a[b]>0 then
     ShowMessage('В тексте найдено '+IntToStr(a[b])+' букв '+CHR(b+ORD('A')));
end;
Для ORD('A') и напрашивается отдельная константа .. (и ORD('Я') тоже )
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Старый 14.10.2007, 15:26   #7
Virtson
Владимир М.
Участник клуба
 
Аватар для Virtson
 
Регистрация: 30.10.2006
Сообщений: 1,289
Вопрос

Цитата:
Сообщение от Марго Посмотреть сообщение
а еще он что-то говорил про коэффициент кореляции...и чтобы программа сравнивала массивы или тексты....ничё в этом не понимаю))бу
коэффициен корреляции связан с вероятностью того, что после буквы 'A' пойдет буква 'C' например. считать нужно уже вхождения пар символов.
+ сравнение .. отчеты..

но это уже действительно тянет на курсовой.. а Вы Delphi в глаза не видели %)
Берегите друг друга!
Virtson вне форума Ответить с цитированием
Старый 14.10.2007, 15:28   #8
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
//заводим массив :
Var a: array['A'..'Я'] of integer;
mihali4 вне форума Ответить с цитированием
Старый 14.10.2007, 15:29   #9
Марго
 
Аватар для Марго
 
Регистрация: 14.10.2007
Сообщений: 3
По умолчанию

плиз......пришлите мне делфи(((
Марго вне форума Ответить с цитированием
Старый 14.10.2007, 15:31   #10
Марго
 
Аватар для Марго
 
Регистрация: 14.10.2007
Сообщений: 3
По умолчанию

ага))в галаза не видела)))я вообще ничего тут не понимаю)))
Марго вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с курсовой Danilyuk Помощь студентам 3 20.05.2008 15:54
Помогите с Курсовой !!! TRAITOR Фриланс 3 10.05.2008 14:29
Помогите с курсовой inret Фриланс 2 09.05.2008 19:03
Курсовой за $ ChiLi Фриланс 1 21.05.2007 23:28