رسم مربع داخله رقم
صفحة 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.
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى