false; p> End; p> Destructor Tosob.Done; p> Begin p> Tosob.blind; p> End; p> procedure Tosob.Show; p> Begin p> putpixel (TPosition.GetX, TPosition.GetY, color); p> vidno: = True; p> End; p> procedure Tosob.Blind; p> Begin p> putpixel (TPosition.GetX, TPosition.GetY, GetBKColor); p> vidno: = False; p> End; p> Function Tosob.Daizwet: word; p> Begin Daizwet: = color End; p > Function Tosob.VidnoLi: Boolean; p> Begin VidnoLi: = Vidno End; p> FUNCTION TOSOB.DAIAGE: INTEGER; p> BEGIN DAIAGE: = AGE END; p> End. p> p> p> Додаток 3. p> p> Бібліотека Mycrt p> p> p> unit Mycrt; p> p> interface p> uses tpcrt, dos; p> procedure fon (x: byte); p> procedure txt (col: byte); p> procedure ramka (x1, y1, x2, y2: integer); p> procedure colorwind (v1, v2, v3, v4, fon, text: byte); p> FUNCTION COLWORD (COL: BYTE): STRING; p> function mes (z: longint): string; p> implementation p> {****************************************** *****************} p> function mes; p> var col: string; p> x: integer; p> begin p> x: = z mod 365; p> if (x> = 0) and (x <= 30) then col: = 'січня'; p> if (x> = 31) and (x <= 58) then col: = 'лютого'; p> if (x> = 59) and (x <= 89) then col: = 'Март'; p> if (x> = 90) and (x <= 119) then col: = 'Апрель'; p> if (x> = 120) and (x <= 150) then col: = 'травня'; p> if (x> = 151) and (x <= 180) then col: = 'червня'; p> if (x> = 181) and (x <= 211) then col: = 'липня'; p> if (x> = 212) and (x <= 241) then col: = 'серпня'; p> if (x> = 242) and (x <= 272) then col: = 'вересня'; p> if (x> = 273) and (x <= 303) then col: = 'Жовтень'; p> if (x> = 304) and (x <= 335) then col: = 'Листопад'; p> if (x> = 336) and (x <= 365) then col: = 'грудня'; p> mes: = col; p> end; p> {****************************************** *****************} p> FUNCTION COLWORD; p> VAR COLO: STRING; p> BEGIN p> IF COL = 0 THEN COLO: = 'ЧОРНИЙ'; p> IF COL = 1 THEN COLO: = 'СИНІЙ'; p> IF COL = 2 THEN COLO: = 'ЗЕЛЕНИЙ'; p> IF COL = 3 THEN COLO: = 'ГОЛУБОЙ'; p> IF COL = 4 THEN COLO: = 'ЧЕРВОНИЙ'; p> IF COL = 5 THEN COLO: = 'ФІОЛЕТОВИЙ'; p> IF COL = 6 THEN COLO: = 'КОРИЧНЕВИЙ'; p> IF COL = 7 THEN COLO: = 'СВІТЛО-СІРИЙ'; p> IF COL = 8 THEN COLO: = 'ТЕМНО-СІРИЙ'; p> IF COL = 9 THEN COLO: = 'світло-синій'; p> IF COL = 10 THEN COLO: = 'СВІТЛО-ЗЕЛЕНИЙ'; p> IF COL = 11 THEN COLO: = 'світло-блакитний'; p> IF COL = 12 THEN COLO: = 'СВІТЛО-ЧЕРВОНИЙ'; p> IF COL = 13 THEN COLO: = 'світло-фіолетовий'; p> IF COL = 14 THEN COLO: = 'ЖОВТИЙ'; p> p> IF COL = 15 THEN COLO: = 'БІЛИЙ'; p> COLWORD: = COLO; p> END; p> {****************************************** *****************} p> p> procedure fon; p> begin p> textbackground (x); p> end; p> {****************************************** *****************} p> procedure txt; p> begin p> textcolor (col); p> end; p> {*******************************...
