اظهار رسالة خروج
صفحة 1 من اصل 1
اظهار رسالة خروج
mah11 21/7/2013, 8:46 pm
اظهار رسالة خروج
- الكود:
{
*** REPUBLIQUE ALGERIENNE DEMOCRATIQUE ET POPULAIRE ***
}
program message1;
uses crt;
procedure effacer;
begin
clrscr;
textbackground(8); textcolor(15);
clrscr;
end;
procedure message_color;
var i,j:integer;
begin
for j:=1 to 48 do
begin
gotoxy(1,1+j);
textbackground(15);
for i:=1 to 77 do
write(' ');
writeln;
end;
end;
procedure message_plue;
var i,j:integer;
begin
for j:=1 to 6 do
begin
gotoxy(20,11+j);
textbackground(1);
for i:=1 to 31 do
write(' ');
writeln;
end;
end;
procedure mess_ecrir;
procedure quitte_prg;
begin
textcolor(14); gotoxy(26,13); write('Quitter le programmer');
end;
begin quitte_prg;
textbackground(4); textcolor(10);
gotoxy(33,15); write(' OK ');
end;
procedure message_noir;
var i,j:integer;
begin
for j:=1 to 6 do
begin
gotoxy(21,12+j);
textbackground(8);
for i:=1 to 31 do
write(' ');
writeln;
end;
end;
procedure petit_carre;
var i,j:integer;
begin
gotoxy(5,4); write(chr(218)); gotoxy(73,4); write(chr(191));
gotoxy(5,6); write(chr(192)); gotoxy(73,6); write(chr(217));
for i:=1 to 67 do
begin
gotoxy(5+i,4); write(chr(196));
gotoxy(5+i,6); write(chr(196));
end;
gotoxy(5,5); write(chr(179));
gotoxy(73,5); write(chr(179));
gotoxy(6,5);
write(' REPUBLIQUE ALGERIENNE DEMOCRATIQUE ET POPULAIRE ');
end;
begin
effacer;
message_color;
message_noir;
message_plue;
mess_ecrir;
petit_carre;
textbackground(8);
gotoxy(36,15); readkey;
end.
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى