برنامج باسكال على طريقة PowerPoint (من برمجتي)

[King Soft]

السلام عليكم ورحمة الله وبركاته

اليوم اتيت لكم بمثال عن التلاعب وانفلات النص في الباسكال
ليصبح برنامجك كالباور بوتنت PowerPoint

program Skin;
uses Crt;
var i,j:integer;
procedure Titre(text:String;line,Color:byte);
begin
Textcolor(Color);
for i:=50 downto 5 do
     begin
      gotoxy(i,Line);
      Write(Text);
      Delay(20);
      write('         ');
  end;
end;begin
Titre('Programation de : ',2,10);
Titre(' Abdelbaki',3,10);
Titre('profession :',6,5);
Titre(' Etudiant duniversite',7,5);
Titre('specialisation  :',11,7);
Titre('  Maths et informatique ',12,7);
Titre('universite  de : ',16,14);
Titre(' El oued  Souf ',17,14);
Titre('    annee universitaire 2012 ',21,3);
readln;
end.

لا تتردد في السؤال

بالتوفيق