Подсчёт символов в массиве

[Pecho]

Эмм...Короч.
Дан массив с английскими буквами, например,

mas_osn: array[1..610] of char = ('G','Y','J','N','G','M','Y','M','O ','A','E','G','R','F','R','T','E',' H','Y','L' ,'S','P','U','R','J');

Как сделать так, чтобы при просмотре программой массива, она определяла, сколько букв А, сколько букв В, сколько букв С и т.д.?
Просто в голове что-то не укладывается, не могу представить, как это будет выглядеть...

[andrewpalkin]

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

Эмм...Короч.
Дан массив с английскими буквами, например,

mas_osn: array[1..610] of char = ('G','Y','J','N','G','M','Y','M','O ','A','E','G','R','F','R','T','E',' H','Y','L' ,'S','P','U','R','J');

Как сделать так, чтобы при просмотре программой массива, она определяла, сколько букв А, сколько букв В, сколько букв С и т.д.?
Просто в голове что-то не укладывается, не могу представить, как это будет выглядеть...

У тебя только английский алфавит с заглавными буквами ??? или все символы ASCII ????

[Pecho]

Только такой алфавит, который приведён в массиве
Я думал присобачить

function Calc(bukva: char): char;
var i, k: integer;
begin
 k := 0;
 for i := 1 to length(mas_osn[i]) do
  if mas_osn[i] = bukva then k := k + 1;
 Result := bukva + ': ' + IntToStr(k);
end;

Но что-то как-то не выходит

[andrewpalkin]

1. Тебе надо создать еще один массив на 26 чисел , вначале задать им всем ноль .
2. Когда ты проходишь по своему массиву буквенному , то пользуйся ASCII для определения места во втором массиве , куда надо добавить +1 . Код ASCII - 65 , это будет номер ячейки во втором массиве .
3. После того , как ты прошел по всему первому массиву , во втором у тебя будет подсчитано , сколько раз какая буква встречалась .
4. Теперь осталось пройти по второму массиву и распечатать результат . символ сможешь получить , если к номеру ячейки прибавишь +65 и сделаешь из этого символ .

P.S. Надеюсь идея понятна

[Utkin]

for i := 1 to length(mas_osn[i])

поменять на

for i := 1 to length(mas_osn)

[Pecho]

Utkin, не помогло
andrewpalkin, идея понятна, только 2-й пункт вызывает сложности...
Я понимаю, что этот пункт - основной программный кусочек, который, по хорошему, я должен написать сам, но вот с программной реализацией и возникают сложности! Можешь помочь?

[Pecho]

На сколько понял, во 2-й пункте mas[i]]++;, где mas числовой массив, i - номер символа в строке

[andrewpalkin]

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

На сколько понял, во 2-й пункте mas[i]]++;, где mas числовой массив, i - номер символа в строке

Минут через 20-30 , смогу тебе написать код , но только на Java , так как под рукой только JAVA

[Utkin]

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

Utkin, не помогло

Конечно, потому что это не единственная ошибка. Например, что возвращает Ваша функция? А что она должна возвращать ?
Напомню, что Char это символ, String это строка...

[andrewpalkin]

Вот решение на твою задачу , функция которая решает все это и распечатывает . Тот же массив , можно отправлять в функцию , а массив подсчетов возвращать . Я просто пытался написать саму идею подсчета .

public void numberOfLetters()
	{
		char[] letters = {'A','V','B','D','F','A','V','B','D','B','A','B'};
		int[] numberOfLetter = new int[26];
		
		for(int i = 0 ; i < numberOfLetter.length ; i++)
			numberOfLetter[i] = 0;
		
		for (int i = 0; i < letters.length ; i++)
		{
			numberOfLetter[(byte)letters[i]-65]++;
		}
		
		for(int i = 0 ; i < numberOfLetter.length ; i++)
		{
			if(numberOfLetter[i] != 0)
				System.out.println((char)(i+65) +  " = " + numberOfLetter[i]);
		}
	}