Строки

← →
kop (2006-03-16 17:48) [0]

Подскажите как написать программу, находящую согласную, которая встречается реже остальных в слове из Edit1

← →
Ega23 © (2006-03-16 17:53) [1]

1. Определить что есть согласная.
2. Определить, количество каждой согласной в данном слове.
3. Выбрать минимально положительное количество.
4. Вывести на экран.

← →
zorik © (2006-03-16 17:55) [2]

Создать динамический массив записей (символ, кол-во встречаний). Пройтись по всем символам edit. если нет символа в масиве - добавить и записать кол-во 1, если есть - увеличить к-во на единицу. В конце выбрать из массива символ с наименьшим числом повторений.

← →
kop (2006-03-16 17:57) [3]

То есть наобходимо иметь 2 массива, так? из одного читаем согласные буквы, а в другой пишем количество встречаний каждой согласной в слове?

← →
zorik © (2006-03-16 17:58) [4]

Проехал. Выбирать нужно только согласные. Так как их, согласных, немного можно и статический массив сделать, заполнив его для начала, например "-1"

← →
kop (2006-03-16 17:59) [5]

Я делаю так (на С++):
int i,j,min;
AnsiString slovo;
char sogl[20]={"б","в","г","д","ж","з","к","л","м","н","п","р","с","т","ф","х","ц","ч ","ш","щ"};
int count[20];

slovo = Edit1->Text;
for(i=0; i <= slovo.Length(); i++)
for(j=0; j < 20; j++)
{
if (slovo.SubString(i,1)==sogl[j])
{count[j]=+1;
}
}
min = count[0];
for(j=0; j < 20: j++)
{
if (min > count[j])
{min = count[j];
Label2->Caption = sogl[j];
}
}

Вместо 2-х массивов
type TSymb = record s: char; k: integer; end; TSymbArray = array [0..x] of TSymb; var SymbArray: TSymbArray;

Строки Найти похожие ветки