رسم مربعات مختلفة الالوان

**mah11** 21/7/2013, 8:40 pm

الكود:: program color_11; uses crt; procedure color_12; var i,j:integer; begin i:=0; j:=0; repeat i:=i+1; clrscr; textbackground(i+1); window(j+3,2,j+12,5); j:=j+10; until j>=80; end; procedure color_13; var i,j:integer; begin i:=0; j:=0; repeat i:=i+1; clrscr; textbackground(i+5); window(j+3,6,j+12,9); j:=j+10; until j>=80; end; procedure color_14; var i,j:integer; begin i:=0; j:=0; repeat i:=i+1; clrscr; textbackground(i+2); window(j+3,10,j+12,13); j:=j+10; until j>=80; end; procedure color_15; var i,j:integer; begin i:=0; j:=0; repeat i:=i+1; clrscr; textbackground(i+6); window(j+3,14,j+12,17); j:=j+10; until j>=80; end; procedure color_16; var i,j:integer; begin i:=0; j:=0; repeat i:=i+1; clrscr; textbackground(i+4); window(j+3,18,j+12,21); j:=j+10; until j>=80; end; procedure color_17; var i,j:integer; begin i:=0; j:=0; repeat i:=i+1; clrscr; textbackground(i); window(j+3,22,j+12,25); j:=j+10; until j>=80; end; begin clrscr; textbackground(8); color_12; color_13; color_14; color_15; color_16; color_17; readkey; end.