رسم اربع مربعات و جملة
صفحة 1 من اصل 1
رسم اربع مربعات و جملة
mah11 21/7/2013, 8:42 pm
رسم اربع مربعات و جملة
- الكود:
program couleur1;
uses crt;
var i:word; ch:char;
begin
TextMode(Lo(LastMode)+Font8x8); i:=0;
i:=0;
repeat
clrscr; i:=i+1;
textbackground(i);
window(5,5,10,10);
until i>=2;
i:=0;
repeat
clrscr; i:=i+1;
textbackground(2+i);
window(11,5,16,10);
until i>=2;
repeat
clrscr; i:=i+1;
TextBackground(1+i); TextColor(4+i);
Window(20,20,60,40);
until i>=2;
i:=0;
repeat
clrscr; i:=i+1;
TextBackground(2+i); TextColor(7+i);
Window(18,18,58,38);
until i>=2;
gotoxy(40,25); write('Turbo Pascal7.1');
readkey;
end.
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
مواضيع مماثلة» رسم مربعات مختلفة الالوان
» رسم مربع فارق في داخله جملة
» رسم ثمانية مربعات بالوان مختلفة
» رسم مربعات داخل بعضها بالوان مختلفة
» كيفية نطق الكلمة أو جملة في الدلفي
» رسم مربع فارق في داخله جملة
» رسم ثمانية مربعات بالوان مختلفة
» رسم مربعات داخل بعضها بالوان مختلفة
» كيفية نطق الكلمة أو جملة في الدلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى