Как через лазарус сделать чтобы форма меняла цвет от одного до другого(от красного к черному и потом наоборот)

115

236

Посмотреть ответы 2

Ответы на вопрос:

uchenik5713

Информатика

4,5(60 оценок)

1var2 cl : array[0 .. 2] of tcolor = (clgreen, clred, clyellow); 3 curr : integer = 0; 4 5 procedure tform1.button1click(sender: tobject); 6 begin7 curr : = succ(curr) mod 3; 8 color : = cl[curr]; 9 end; 10 11 procedure tform1.formcreate(sender: tobject); 12 begin13 color : = cl[curr]; 14 end;

MeBloger

Информатика

4,4(75 оценок)

Const n = 25; var d: array[1..n] of integer; i,a: integer; begin randomize; for i: =1 to n do d[i]: = random(41)-16; for i: =1 to n do if d[i] mod 3 = 0 then writeln('d[',i,'] = ',d[i]); end.