رسم مربع داخله رقم
صفحة 1 من اصل 1
رسم مربع داخله رقم
رسم مربع داخله رقم
- الكود:
program windo1;
uses crt;
var i : integer;
procedure wino2(i : integer);
begin
if i>=2 then writeln(' ',i)
else
begin
clrscr;
textbackground(2);
window(3,2,20,10);
wino2(i+1);
end;
end;
begin
clrscr;
textbackground(8);
wino2(i);
readkey;
end.
مواضيع مماثلة
» رسم مربع فارق في داخله جملة
» مربع يتغير لونه حسب ضغط المفاتيح
» رسم مربع بالفأرة
» مربع النص Edit
» مربع الحوار فتح OpenFileDialog
» مربع يتغير لونه حسب ضغط المفاتيح
» رسم مربع بالفأرة
» مربع النص Edit
» مربع الحوار فتح OpenFileDialog
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى