رسم مربعين داخلهما اثنا عشر مستطيل باطوال مختلفة
صفحة 1 من اصل 1
رسم مربعين داخلهما اثنا عشر مستطيل باطوال مختلفة
mah11 20/7/2013, 7:31 pm
رسم مربعين داخلهما اثنا عشر مستطيل باطوال مختلفة
- الكود:
program couluer;
uses crt;
var x,y:integer;
procedure couluer_1(x,y:integer);
var i : integer;
begin
x:=0; y:=0; i:=0;
repeat
clrscr;
textbackground(y+2);
window(x+5,5,x+40,20);
x:=36; y:=13; i:=i+1;
until i>=2;
end;
procedure couluer_2(x,y:integer);
begin
x:=0; y:=0;
repeat
clrscr;
textbackground(4);
window(x+29,12-y,x+30,y+13);
x:=x+3; y:=y+1;
until (keypressed)or(x=16);
end;
begin
clrscr;
textbackground(8);
couluer_1(x,y);
couluer_2(x,y);
readln;
end.
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
مواضيع مماثلة» رسم مربعين داخلهما معين
» رسم مربعات داخل بعضها بالوان مختلفة
» رسم مربعات مختلفة الالوان
» عمليات بحث مختلفة في الحقول
» بحث في الحقول المفهرسة فقط بطريقة مختلفة
» رسم مربعات داخل بعضها بالوان مختلفة
» رسم مربعات مختلفة الالوان
» عمليات بحث مختلفة في الحقول
» بحث في الحقول المفهرسة فقط بطريقة مختلفة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى