Wypisywanie zbioru

0

Witam.
Nie potrafię sobie poradzić z teoretycznie banalnym problemem. Otóż w jaki sposób mogę wypisać zawartość zbioru?
Zawiera on przeciwdziedzinę funkcji y=2x w dziedzinie [0,100]. Nie wolno mi użyć tablic, jak to wypisać?

0

O to chodzi?

for x:=0 to 100 do WriteLn(2*x);
0

Niestety muszę zrobić to przy pomocy typu zbiorowego.

 type
przeciwdziedzina = set of byte

Wypełniłem ten zbiór wynikami, ale nie wiem, w jaki sposób to wypisać. Takich typów nie da się za pomocą write/writeln.

1

Pętla "for ... in"
http://4programmers.net/Delphi/For-in
http://delphi.about.com/od/beginners/a/delphi_set_type.htm
Lecz nie jestem pewien, od których wersji Delphi ona działa.
Na pewno nie działa w Delphi 7.

1
var x:Byte;
for x:=0 to 255 do if (x in przeciwdziedzina) then WriteLn(x);
0

Dzięki wielkie. Właśnie tego potrzebowałem!

1 użytkowników online, w tym zalogowanych: 0, gości: 1