|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.01.2008, 13:50 | #1 |
Пользователь
Регистрация: 20.12.2007
Сообщений: 12
|
помогите до решать задачу на Множества
Ввести 10 символов в множество символов A и вывести в алфавитном порядке все элементы множества А
var i,m,k:integer; j:char; x,c:string; a: array [1..10] of char; b:set of char; begin b:=[]; for i:=1 to 10 do begin write('Vvedite ',i,' - element: '); readln (x); b:=b+[x[i]]; end; for j:=#0 to #255 do if j in b then c:=c+j; write(c); она не закончена но начало должно быть таким наверное.... |
05.01.2008, 15:53 | #2 |
Форумчанин
Регистрация: 12.06.2007
Сообщений: 130
|
Только с массивом смог сделать:
Код:
|
05.01.2008, 16:02 | #3 | |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
Цитата:
Код:
Код:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачу на множества (Паскаль) | mpegable | Помощь студентам | 3 | 17.02.2015 00:15 |
Помогите! Множества, подмножества в Bisual C++ 6 | VBlond | Помощь студентам | 1 | 28.11.2007 20:00 |