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

TpaXmopucm · 04.12.2011, 21:21

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

Цитата:

ЛАБОРАТОРНАЯ РАБОТА № 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 · 04.12.2011, 21:34

Цитата:

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

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

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

Цитата:

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

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

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

Цитата:

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

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

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

TpaXmopucm · 04.12.2011, 21:40

=) типо с оформление типо разобрался типо!!

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

TpaXmopucm · 04.12.2011, 21:41

P/S Владимир загляните пожалуйста еще раз сюда! Помогите студенту решить задачки

TpaXmopucm · 04.12.2011, 22:41

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

04.12.2011, 21:21
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вот ссылки на темы, которые скорее всего помогут вам в решении проблемы Я запутался... Я запутался...

04.12.2011, 21:40	#3 (permalink)
TpaXmopucm Member Регистрация: 04.12.2011 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	=) типо с оформление типо разобрался типо!! ошибку тоже заметил. исправил. программа работает. но в условии задания написано чтобы символы задавались рандомно. а тут получается я их записываю и жму ENTER И ПРОШГРАММА из них выбирает нужные от A дО F и знаки припинания!! Как сделать рандомно?

04.12.2011, 21:41	#4 (permalink)
TpaXmopucm Member Регистрация: 04.12.2011 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	P/S Владимир загляните пожалуйста еще раз сюда! Помогите студенту решить задачки

04.12.2011, 22:41	#5 (permalink)
TpaXmopucm Member Регистрация: 04.12.2011 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	кто-то знает ??? помогите плиз???

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070