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

رسم مربع فارق في داخله جملة

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

رسم مربع فارق في داخله جملة  Empty رسم مربع فارق في داخله جملة

مُساهمة  mah11 21/7/2013, 8:37 pm

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله

CARRE

رسم مربع فارق في داخله جملة

الكود:

program carre1;
uses crt;
var i : integer;
procedure carre01;
begin
 clrscr;
 gotoxy(9,3); textbackground(8);
 textcolor(7);
 gotoxy(15,5); write(chr(218)); gotoxy(61,5); write(chr(191));
 gotoxy(15,24); write(chr(192)); gotoxy(61,24); write(chr(217));
 for i:=1 to 45 do
 begin
    gotoxy(15+i,5); write(chr(196));
    gotoxy(15+i,24); write(chr(196));
 end;
 for i:=1 to 18 do
 begin
    gotoxy(15,5+i); write(chr(179));
    gotoxy(61,5+i); write(chr(179));
 end;
 gotoxy(28,15); textbackground(4); textcolor(2); write('   Wilaya djelfa   ');
 gotoxy(15,25); textcolor(7);
 textbackground(8);
end;

procedure carre02;
begin
 clrscr;
 gotoxy(15,5); write(chr(201)); gotoxy(61,5); write(chr(187));
 gotoxy(15,24); write(chr(200)); gotoxy(61,24); write(chr(188));
 for i:=1 to 45 do
 begin
    gotoxy(15+i,5); write(chr(205));
    gotoxy(15+i,24); write(chr(205));
 end;
 for i:=1 to 18 do
 begin
    gotoxy(15,5+i); write(chr(186));
    gotoxy(61,5+i); write(chr(186));
 end;
 gotoxy(35,15); write('Alger');
 gotoxy(15,25);
end;

begin
 carre01;
 readkey;
 carre02;
 readln;
end.

mah11
Admin

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

https://delph.forumalgerie.net

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

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

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

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