разные буквы

@adic.93 · Регистрация: 12.11.2009

Author24 — интернет-сервис помощи студентам

Помогите решить
Дана слова, определять сколько в ней разных букв….

@Wassago · 15.11.2009, 00:30

Pascal

var H:string;
begin
 writeln('Введите слово:');
 read(H);
 writeln('К-во букв:',ord(H[0]));
end.

@Inadequate · 15.11.2009, 00:43

Wassago, это немноге не то, там же написано разных...
adic.93, вот решение:

Pascal

var
  s:string;
  m:set of char;
  i,count:integer;
begin
  writeln('Ââåäèòå ñëîâî:');
  readln(s);
  count:=0;
  for i:=1 to length(s) do
    if not (s[i] in m) then
    begin
      m:=m+[s[i]];
      inc(count)
    end;
  writeln('Êîëè÷åñòâî ðàçíûõ áóêâ: ',count)
end.

@adic.93 · 15.11.2009, 00:46 **[ТС]**

мне нужны только разные буквы, а не все

Добавлено через 2 минуты
спасибо большое Inadequate

@Wassago · 15.11.2009, 00:50

Inadequate, ааааааа!Понял,сорь...

@adic.93 · 15.11.2009, 00:57 **[ТС]**

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

Inadequate,

опиши пожалуйста 3,10 и 12 строки

@Inadequate · 15.11.2009, 01:07

adic.93, тут метод основан на работе с множиствами.
3) тут мы задаем множуство
10) тут мы проверяем если буква входит в множество
12) если буква не входит, то мы её заносим в него, чтобы потом она не повторялась

@Wassago · 15.11.2009, 01:13

Pascal

1	m:set of char;

переменная m,которая может принимать: m:=['a','b','...];

Pascal

1	if not (s[i] in m) then

Если буквы под номером[i] нету в m,то:

Pascal

1	m:=m+[s[i]];

вносим ее туда!

Inadequate, можешь убить меня,не заметил твой ответ

@adic.93 36 / 34 / 2 Регистрация: 12.11.2009 Сообщений: 46
		1
	разные буквы 15.11.2009, 00:23. Показов 1939. Ответов 7 Метки нет (Все метки) Помогите решить Дана слова, определять сколько в ней разных букв…. 2

@adic.93 36 / 34 / 2 Регистрация: 12.11.2009 Сообщений: 46
	15.11.2009, 00:46 [ТС]	4
	мне нужны только разные буквы, а не все Добавлено через 2 минуты спасибо большое Inadequate 2

@Wassago localhost 58 / 58 / 9 Регистрация: 02.09.2009 Сообщений: 170
	15.11.2009, 00:50	5
	Inadequate, ааааааа!Понял,сорь... 0

@adic.93 36 / 34 / 2 Регистрация: 12.11.2009 Сообщений: 46
	15.11.2009, 00:57 [ТС]	6
	Сообщение от Wassago Inadequate, опиши пожалуйста 3,10 и 12 строки 2

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	15.11.2009, 01:07	7
	Сообщение было отмечено как решение Решение adic.93, тут метод основан на работе с множиствами. 3) тут мы задаем множуство 10) тут мы проверяем если буква входит в множество 12) если буква не входит, то мы её заносим в него, чтобы потом она не повторялась 3

	15.11.2009, 01:13

разные буквы

Решение