Задача на строки

[semennn]

Задан текст. Напишите программу, которая посчитает статистику - сколько раз встречается буква A, сколько - B и т.д. При этом большие и маленькие латинские буквы считать одинаковыми.
Входные данные
На входе могут быть сколь угодно длинные строки. Текст, состоит из английских букв (больших и маленьких), знаков препинания, цифр и т.д.
Выходные данные
Вывести 26 строк. Каждая строка должна соответствовать латинской букве, буквы должны идти в алфавитном порядке. Каждая строка должна содержать сначала большую латинскую букву, которой она соответствует, пробел, символ - (тире), пробел и число: сколько раз буква встречается во входном файле.
Пример
Вход
Ab - a
Выход
A - 2
B - 1
C - 0
D - 0
E - 0
F - 0
G - 0
H - 0
I - 0
J - 0
K - 0
L - 0
M - 0
N - 0
O - 0
P - 0
Q - 0
R - 0
S - 0
T - 0
U - 0
V - 0
W - 0
X - 0
Y - 0
Z - 0

[HoLToFF]

program Buk_Stat;

var
  m:array['A'..'Z'] of integer; {массив статистки букв}
  i: integer;
  b: char; s:string;
begin
  for b:= 'A' to 'Z' do    {иницализация массива}
    m[b]:=0;

  write('Vvedite stroku: '); readln(s);
  for i:= 1 to length(s) do   {по всей длинне строки}
    begin
    s[i]:=UpCase(s[i]);      {переводим обрабатываемую букву в верхний регистр}
    if s[i] in ['A'..'Z'] then    {если текущий символ, переведенный в верхний регистр в промежутке букв от А до Z}
    inc(m[s[i]]);    {Значит обратиться к массиву по индексу буквы и увеличить статистику по этой букве на 1}
    end;

  for b:='A' to 'Z' do   {выводим статистику}
    writeln(b,' - ',m[b]);

  readln;
end.

[HoLToFF]

Пардон, у вас чтение из файла, не заметил, будем считать что файл лежит в одной папке с программой, тогда код будет иметь вид:

program Buk_Stat;

var
  m:array['A'..'Z'] of integer; {массив статистки букв}
  i: integer;
  fl:text;
  b, s: char; dir:string;
begin
  for b:= 'A' to 'Z' do    {иницализация массива}
    m[b]:=0;

  writeln('Vvedite imya faila dlia chtenia (po umolchaniu In.txt)');
  readln(dir); if (dir = '') or (dir = ' ') then dir:='in.txt';
  reset(fl,dir);

    while not eof(fl) do   {пока не конец файла}
      begin
        while not eoln(fl) do   { пока не конец строки}
         begin
          read(fl,s);        {читать очередную букву из файла}
          s:=UpCase(s);      {переводим обрабатываемую букву в верхний регистр}
          if s in ['A'..'Z'] then    {если текущий символ, переведенный в верхний регистр в промежутке букв от А до Z}
          inc(m[s]);    {Значит обратиться к массиву по индексу буквы и увеличить статистику по этой букве на 1}
         end;
      readln(fl);
      end;

  for b:='A' to 'Z' do   {выводим статистику}
    writeln(b,' - ',m[b]);

  readln;
end.

[HoLToFF]

Как приятно осознавать, что тебе даже не скажут спасибо за работу

[JekaX]

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

Как приятно осознавать, что тебе даже не скажут спасибо за работу

Это слишком )))

[MAKEDON]

Не знаю на каком языке тебе надо было это написать, но вот я как то писал на Си. Посмотри, вдруг поможет.

#include <stdio.h>

int main(){
	int i=0,j,t,c=0,h=1,g=0,p=0;
	char a[255];
	gets(a);
	while(a[i++]);
	i--;
	for(j=0;j<i;j++){
		for(t=0;t<i;t++){
			if(a[t]==a[j]){
				c++;
			}
		}
		while(p<j){
			if(a[p]==a[j]){
				g++;
			}
			p++;
		}
		p=0;
		if(g==0){
			printf("\n%c : %d",a[j],c);
		}
		g=0;
		c=0;
	}
	return 0;
}