Помогите, запутался

[TpaXmopucm]

Помогите, запутался

ВОт задача!!!

ЛАБОРАТОРНАЯ РАБОТА № 5

Работа с множественными типами данных.

Цель задания:
Присвоение значений данным множественного типа и операции над ними.

Методические указания:
Программа должна работать для произвольного набора символов.

Постановка задачи:
Дан непустой набор символов. Построить и напечатать множество, элементами которого являются встречающиеся в последовательности, согласно варианту:

ВАРИАНТЫ ЗАДАНИЯ

9. Буквы от 'A' до 'F' и знаки препинания.

вот типо решение :

var
s,buf:string;
i:integer;
a:set of char;
begin
readln(s);
buf:='';
a:=['A'..'F','.',',']// добавить остальные знаки препинания ;
for i:=1 to length(s) do
if (s[i] in a) and (pos(s[i],buf)=0) then buf:=buf+s[i];
writeln(buf);
end.

помогите она непонятно оформлена .....я не могу разобраться .... и еще один вапрос нужно добавить в эту прогу чтобы символы задовались рандомно ......как это сделать?? и символы чтобы были латинские !! я пробывал через ....chr(random(20)); символы непонятно какого языка добавляются .....

 

[Vladimir_S]

вот типо решение :

Ну да, типо оно типо правильное, только в строке
a:=['A'..'F','.',',']// добавить остальные знаки препинания ;
типо ошибка - разделитель ";" попал типо в комментарий. Надо, чтобы он стоял типо до "//".

помогите она непонятно оформлена .....я не могу разобраться ...

А в чем конкретно проблемы?

и еще один вапрос нужно добавить в эту прогу чтобы символы задовались рандомно ......как это сделать?? и символы чтобы были латинские !!

Где задавались? В строке? В множестве? Конкретнее, пожалуйста.

 

[TpaXmopucm]

=) типо с оформление типо разобрался типо!!:tehnari_ru_150:
ошибку тоже заметил. исправил. программа работает.
но в условии задания написано чтобы символы задавались рандомно. а тут получается я их записываю и жму ENTER И ПРОШГРАММА из них выбирает нужные от A дО F и знаки припинания!! Как сделать рандомно?

 

[TpaXmopucm]

P/S Владимир загляните пожалуйста еще раз сюда! http://www.tehnari.ru/f41/t60722/index2.html

 

[TpaXmopucm]

кто-то знает ??? помогите плиз???