转换关系 ：

   c=255-r;

   m=255-g;

   y=255-b;

   k=MinValue(c,m,y);

   c'=c-k;

   m'=m-k;

   y'=y-k;

这里的c',m',y',k就是r,g,b的转换值。

PROCEDURE CMYKtoRGB(CONST C,M,Y,K:  TReal; VAR   R,G,B:  TReal);

 BEGIN

   R := 1.0 - (C + K);

   G := 1.0 - (M + K);

   B := 1.0 - (Y + K)

 END {CMYtoRGB};

 // R, G, B, C, M, Y each IN [0.0 .. 1.0]

 PROCEDURE RGBToCMYK(CONST R,G,B:  TReal;  VAR C,M,Y,K:  TReal);

 BEGIN

   RGBtoCMY(R,G,B, C,M,Y);

   K := MinValue([C, M, Y]);

   C := C - K;

   M := M - K;

   Y := Y - K

 END {RGBtoCMYK};