رسم مربع فارق في داخله جملة
صفحة 1 من اصل 1
رسم مربع فارق في داخله جملة
بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله
CARRE
رسم مربع فارق في داخله جملة
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله
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.
مواضيع مماثلة
» رسم مربع داخله رقم
» رسم اربع مربعات و جملة
» رسم مستطيل أو مربع
» رسم مربع بالفأرة
» كتابة عبارة أو جملة على الشاشة
» رسم اربع مربعات و جملة
» رسم مستطيل أو مربع
» رسم مربع بالفأرة
» كتابة عبارة أو جملة على الشاشة
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى