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

رسم شــــــــــــــــــــــــــــكل

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

رسم شــــــــــــــــــــــــــــكل  Empty رسم شــــــــــــــــــــــــــــكل

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

رسم شكل

الكود:

program fenertes1;
uses crt;
var x : integer;
procedure fenetr(x:integer);
begin
 if x=12 then write(' TURBO BASCAL7.1')
 else
 begin
  clrscr;
  textbackground(4+x);
  window(2+x,12-x,78-x,13+x);
  clrscr;
  fenetr(x+1);
 end;
end;
begin
clrscr;
textbackground(8);
fenetr(x);
readkey;
end.

mah11
Admin

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

https://delph.forumalgerie.net

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

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


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