رسم ثمانية مربعات بالوان مختلفة
صفحة 1 من اصل 1
رسم ثمانية مربعات بالوان مختلفة
رسم ثمانية مربعات بالوان مختلفة
- الكود:
program couluer;
uses crt;
procedure color_1;
var i,j:integer;
begin
i:=0; j:=0;
repeat
i:=i+1; clrscr;
textbackground(i+6);
window(j+3,2,j+12,5);
j:=j+9;
until j>=80;
end;
begin
clrscr;
textbackground(8);
color_1;
readkey;
end.
مواضيع مماثلة
» رسم مربعات داخل بعضها بالوان مختلفة
» رسم مربعات مختلفة الالوان
» مسح مربعات التحرير TEdit
» رسم اربع مربعات و جملة
» عمليات بحث مختلفة في الحقول
» رسم مربعات مختلفة الالوان
» مسح مربعات التحرير TEdit
» رسم اربع مربعات و جملة
» عمليات بحث مختلفة في الحقول
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى