Определить сколько букв латинского алфавита встречается в данной последовательности

@DarkLord666 · Регистрация: 11.12.2013

Дана последовательность символов. Определить сколько букв латинского алфавита встречается в данной последовательности.

@Puporev · 23.03.2014, 12:24

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

Написать код программы

Еще одно такое название темы и начну мочить.

@Vakoto · 23.03.2014, 12:47

Хотя бы раз в жизни стоит включить свой мозг.

Перебором

Pascal

var
  s: string;
  c: char;
  i,k: integer;
begin
  write('Введите строку: ');
  readln(s);
  k:=0;
  for c:='A' to 'Z' do
    for i:=1 to length(s) do
      if UpCase(s[i])=c then
        begin
          inc(k);
          break;
        end;
  writeln('В строке встречается ',k,' букв лат. алфавита');
end.

С помощью множеств

Pascal

var
  s: string;
  c: set of char;
  i,k: integer;
begin
  write('Введите строку: ');
  readln(s);
  c:=[];
  k:=0;
  for i:=1 to length(s) do
    if not(UpCase(s[i]) in c) then
      begin
        c:=c+[UpCase(s[i])];
        inc(k);
      end;
  writeln('В строке встречается ',k,' букв лат. алфавита');
end.

@DarkLord666 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 152
		1
	Определить сколько букв латинского алфавита встречается в данной последовательности 23.03.2014, 12:14. Показов 1548. Ответов 2 Метки нет (Все метки) Дана последовательность символов. Определить сколько букв латинского алфавита встречается в данной последовательности. 0

@Puporev Почетный модератор 64279 / 47578 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	23.03.2014, 12:24	2
	Сообщение от DarkLord666 Написать код программы Еще одно такое название темы и начну мочить. 0

Опции темы

Определить сколько букв латинского алфавита встречается в данной последовательности

Решение