коректировка - Форум «Всё о Паскале»

Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы

Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

коректировка, робота с множествами

Опции

compiler

28.01.2007 18:38

Сообщение #1

Человек

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация:

Ребята (господа/товарищи/...), прошу помоч мне.
Я написал програмку (довольно простую), а она не работает

Я разместил её в этот раздел потому что она теоритическая (а не практическая) и должна помоч понять роботу с множествами.

type
    q110 = set of 1..10;
    q515 = set of 5..15;
    i = set of 1..150;
VAR
    a1a10 : q110;
    a5a15 : q515;
    res : i;
    w:integer;
BEGIN
    a1a10 := [1..10];
    a5a15 := [5..15];
     res := a1a10 + a5a15;
     for w := 0 to 150 do 
     if w in res then WriteLn( i );
END.