Паскаль: необычный цикл

[proser93]

Здравствуйте! Есть задача: "Определить, сколько различных символов входит в заданный текст, содержащий не более 100 символов и оканчивающийся точкой (в сам текст точка не входит)."
Я решил создать счетчик "разных символов", но столкнулся с необходимостью создать цикл, который сначала пробегает по первому элементу строки, затем по первому и второму, затем по первому, второму, третьему, и так далее.
Но в паскале в цикле for число итераций задается всего один раз, и изменять его нельзя. Что делать?
Заранее спасибо.

[Abstraction]

Есть такой фокус - карта символов. Если у нас символы однобайтовые, заводим массив из 256 переменных, изначально нулей. Читаем текст посимвольно, и для каждого символа прибавляем единичку к соответствующему элементу массива. В финале имеем полную статистику, осталось вывести ненулевые элементы с соответствующими им символами.

[proser93]

"Читаем текст посимвольно, и для каждого символа прибавляем единичку к соответствующему элементу массива" - а как определить для каждого символа, в какой именно элемент массива плюсовать единичку?

[денис80]

как решить задачу найти сумму цифр числа 5655

[Abstraction]

proser93,
Мы прочитали символ c. Эта переменная может быть рассмотрена как число (собственно, она и есть число, от 0 до 255 по всей видимости); в частности, её можно использовать как индекс в массиве - statistics[c] := statistics[c] + 1 (благо символ с кодом 0 нам вряд ли введут). Как это синтаксически проделать - увы, вопрос не ко мне, Паскаль знаю плохо.

денис80,
0) Новые вопросы задаются в новых темах обычно.
1) Ответ - 21.

[денис80]

спасибо огромное а можно еще дну задачку задать

[proser93]

вот, есть предположение, так пойдет?
пусть строка s, p,i,n,dif - целые
тогда
n:=length(s)-1; (так как точку не надо учитывать)
p:=0; - переменная количества итераций в цикле
dif:=0; - количество разных символов (счетчик)
while p<>n do begin
p:=p+1;
i:=0;
while i<>(p+1) do begin
if s[p+1] <> s[i] then dif:=dif+1; - если последний из доступного ряда не равен ни одному из предыдущих, увеличиваем счетчик на 1
i:=i+1
end
end
write(dif);

[proser93]

и еще вопрос: символов в паскале не может быть больше 255?
ведь ещё мб могут вводиться русский буквы...

[phomm]

Das русский буквы sind nicht verboten вводиться ) Но это нисколько не мешает их использовать в качестве индексов массива.
Делаем так :
заведем массив на 256 элементов:

var letters : array[0..255] of integer;

при считывании символа увеличиваем конкретный элемент массива на единичку, используя функцию Ord

inc(letters[ord(c]);

Учтите, каждый символ - хоть русская буква, хоть английская, хоть разного регистра, цифры, хоть даже небуквенные символы - точки , пробелы и т.п. записываются в массив. Если Вам необходимо подсчитывать буквы разного регистра как одну букву, то используйте функции ansiuppercase/uppercase
Вывод количества конкретных символов стоит ограничить :
во-первых убрать символы с нулевым вхождением

if letters[итератор_цикла_вывода] = 0 then continue;

во-вторых убрать конкретные левости, пробелы, например, или цифры, тут уж как сообразите, можно написать case в котором для левых символов будет соответствовать команда continue, а для нужных - вывод, такого же эффекта можно добиться множествами

if chr(итератор_цикла_вывода) in [' ', '.'] then continue

[Sna1L]

Эм. ТС, возможно, я неправильно понял задание, но не проще ли использовать множество?
что-то типа:

var
mn:set of char;
i:integer;
c:char;

begin
i:= 0;
mn:=[];
repeat
   read(c);
   if not (c in mn) then 
      begin
      mn:=mn+[c];
      inc(i);
      end;
until(c<>'.');
end.