ввод строки!

[Татяна]

Написать программу, которая осуществляет ввод строки с клавиатуры, затем выводит на экран символы латинского нижнего регистра, НЕ встечающиеся в строке, в алфавитном порядке.
(Использовать тип множество для определения символов, отсутствующих с строке.)

[__STDC__]

ну скажем так

var
	str:string;
	symb:set of char;
	i:integer;
	j:char;
begin
	writeln('Enter string: ');
	readln(str);
	symb := ['a'..'z'];
	for i:=1 to length(str) do
		if (str[i] in symb) then 
			symb := symb-[str[i]];
	for j:='a' to 'z' do
		if (j in symb) then 
			write(j:3);
	readln;
end.

[Татяна]

Спасибо, а если осуществлять проверку на ввод именно натинских букв?

[Татяна]

*Латинских

[__STDC__]

зачем это??? Попробуйте ввести НЕлатинские буквы.... цифры, спецсимволы, что угодно)

[Татяна]

ок)спасибо

[__STDC__]

ну можете такое добавить если хотите после считывания строки в str:

	for i:=1 to length(str) do
		if (ord(str[i]) < 97) or (ord(str[i]) > 122) then begin
			writeln('Not latin symbol detected: ',str[i]);
			exit;
		end;

Тогда просто будет выдаваться сообщение "обнаружен не латинский символ " и сам символ... и программа будет прерываться.. вот..

[Татяна]

Извените, а можете пояснить строчку
if (ord(str[i]) < 97) or (ord(str[i]) > 122) then begin....

[__STDC__]

могу... если открыть ASCII-таблицу и посмотреть коды символов от a до z, можно увидеть, что в десятичной СС они занимают пространство от 97 до 122. Соответственно, если код символа выходит за эти пределы - он не является латинской маленькой буквой.. Функция ord как раз возвращает код символа..

[Татяна]

Благодарю!