Помощь - Поиск - Пользователи - Календарь
Полная версия: коректировка
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
compiler
Ребята (господа/товарищи/...), прошу помоч мне.
Я написал програмку (довольно простую), а она не работаетsad.gif
Я разместил её в этот раздел потому что она теоритическая (а не практическая) и должна помоч понять роботу с множествами.

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.

 ! 
В следующий раз пост без тегов удалю!

Bokul
Ну во-первых, неужели настолько лень взять свой код в теги?

Во-вторых, что ты хотел сделать?

Это?

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(w);
readln;
end.



PS загляни сюда: Множества
compiler
Цитата(Bokul @ 28.01.2007 17:52) *

Ну во-первых, неужели настолько лень взять свой код в теги?

прошу прощения, забылsad.gif

А за помощ искреннее СПАСИБОrespect.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.