دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

اذهب الى الأسفل

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

مُساهمة  mah11 20/7/2013, 7:30 pm

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

الكود:

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.

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

https://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى