Hej
Mam do napisania program, który zamieni kolor zapisany w rbg jako trójkę r(0-255), g(0-255), b(0-255) na odpowiadającą mu wartość w integer.
Szukałam już czegoś na googlu ale nie mogę dojść jak to napisać w Pascalu.
Dziękuję za pomoc :)
Hej
Mam do napisania program, który zamieni kolor zapisany w rbg jako trójkę r(0-255), g(0-255), b(0-255) na odpowiadającą mu wartość w integer.
Szukałam już czegoś na googlu ale nie mogę dojść jak to napisać w Pascalu.
Dziękuję za pomoc :)
http://www.google.pl/search?hl=pl&q=pascal+rgb+to+integer&aq=f&aqi=&aql=&oq=&gs_rfai= - PIERWSZY WYNIK W GOOGLE!!!
zamiast przesunięć bitowych można też użyć typu wariantowego:
type TKolor = packed record case boolean of
true: (B,G,R,A : byte;) // nie jestem pewien co do kolejności. jak będzie źle wychodzić to poprawić
false: (int : integer;)
end;
i teraz zapisujemy rgb:
var kolor:TKolor;
kolor.R:=128; kolor.G:=0; kolor.B:=255;
i od razu mamy integera:
writeln(kolor.int);
w drugą stronę też działa.