رسم مربعين داخلهما معين
صفحة 1 من اصل 1
رسم مربعين داخلهما معين
mah11 20/7/2013, 7:29 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+2; y:=y+1;
until (keypressed)or(x=14);
end;
procedure couluer_3(x,y:integer);
begin
x:=0; y:=0;
repeat
clrscr;
textbackground(4);
window(x+43,y+7,x+45,18-y);
x:=x+2; y:=y+1;
until x>=14;
end;
begin
clrscr;
textbackground(8);
couluer_1(x,y);
couluer_2(x,y);
couluer_3(x,y);
readln;
end.
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى