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

رسم مربع داخله رقم

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

رسم مربع داخله رقم   Empty رسم مربع داخله رقم

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

رسم مربع داخله رقم  

الكود:

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.

mah11
Admin

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

https://delph.forumalgerie.net

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

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

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

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