Составить программу, которая читает произвольный текст

[Doublefaced]

Составить программу, которая читает произвольный текст (5 строк по 40 символов) и распечатывает в алфавитном порядке все латинские буквы; входящие в этот текст.

Как распечатать в алфавитном порядке? Помогите

[__STDC__]

Добавить все символы в множество, потом вывести его элементы

[Doublefaced]

var
c:char
s,sd:set of char;
begin
s:=[];
sd:=[];
repeat
read(c);
if c in s then
sd:=s+[c];
for c:=#33 to #255 do
if (c in s) then
write(c);
readln;
end;

Начало примерно такое, это без текстового файла

[__STDC__]

что-то вроде такого

var
	f:text;
	s:string;
	x:set of char;
	i:byte;
	c:char;
begin
	x := [];
	assign(f,'in.txt');
	reset(f);
	while not(eof(f)) do begin
		readln(f,s);
		for i:=1 to length(s) do
			x := x + [s[i]];
	end;
	for c:='a' to 'z' do
		if (c in x) then
			write(c:2);
	readln;
end.

если в текст входят не только латинские символы, ну там цифры или спецсимволы, можно завести еще множество.. к примеру a := ['a'..'z']; и там проверять во вложенном цикле

[Doublefaced]

Спасибо, работает.

[Doublefaced]

А как сделать, чтобы выводило все буквы, то есть:

Pascal
a a c l p s

[Daramant]

1. Заводишь массив размера = количество букв в лат. алфавите.
2. Первоначально в массиве нули.
3. Идешь по строке. Для i-го символа. Из кода этого символа вычитаешь код буквы "a", получаешь индекс в массиве. Увеличиваешь значение элемента с этим индексом на 1.
4. В результате, получаем массив встречаемости символов.

[Doublefaced]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var  f:text;
     var i,j,k:integer;
     m:array[1..1000] of char;
     x:char;
     s:string;
begin
       assign(f,'in.txt');
        reset(f);
        k:=0;
while not(eof(f)) do
  begin
     readln(f,s);
     for i:=1 to length(s) do
     if s[i] in ['A'..'Z','a'..'z'] then

       begin
         k:=k+1;
         m[k]:=s[i];
       end;
  end;
for i:=1 to k-1 do
for j:=i+1 to k do
if m[i]>m[j] then
begin
    x:=m[i];
    m[i]:=m[j];
    m[j]:=x;
  end;
writeln('Bykvy po alfavitu:');
for i:=1 to k do
write(m[i],' ');
readln;
end.

[Вавел из ГМТУ]

Зачем массивы?

For x := 1 To 26 Do 
For y := 1 To Length(Stroka) Do If Stroka[y] = ABC[x] Then Write(Stroka[y]);

(писал прям в браузере)
Смысл такой. ABC - множество a, b, c, d .....
В двойном цикле. Первый цикл перебирает множество ABC (вроде в латинском 26 букв, но это не принципиально) второй цикл бегает от начала строки до конца и ищет совпадение. Как только оно найдено он выводит эту букву на экран. Дойдя до конца строки берётся следующая буква из ABC.....

[__STDC__]

Сообщение от Вавел из ГМТУ

Зачем массивы?

... If Stroka[y] = ABC[x] Then...

так получать доступ к элементам множества нельзя.. элементы во множестве не индексированы и уникальны, такая уж особенность типа... Вариант с массивом вроде бы неплохой, хранить в массиве кол-во букв, а в мн-ве - сами буквы... я пока лучше ничего не придумал.. хотя и не думал особо... только проснулся =)