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

تعلم دلفي بالامثلة، ويوجد اكواد سورس كثيرة من أجل تعلم دلفي

  • الرئيسية
  • صفحة منتدى دلفي
  • أحدث الصور
  • التسجيل
  • دخول
مرحبا بــالزوار الكــرام يشرفني أن أتقدم إلى السادة الكرام زوار هذا المنتدى أن يتفضلوا بتسجيل معنا وبطرح انتقاداتهم ونصائحهم واني سوف أتقبل كل نقد أو نصيحة بصدر رحب مع تمنياتي للجميع بكل نجاح والتقدم والازدهار والتوفيق ونحن نسعى في تقديم هذه المواضيع بكل اخلاص وغايتنا هي نيل رضاكم وحرصا منا على بلوغ أعلى مستوى في هذه اللغة -دلفي وغيرها - وتعتبر لغات البرمجة هي الوسيلة التي تمكننا من تخاطب مع حواسيبنا فإني أنصحك بها أيها الزائر فبها وبالعلوم الاخرى بلغت الامم أعلى درجات التقدم الازدهار وان تعلم اي لغة يكون في البداية صعب لكن مع قليل من الصبر والمثابرة يصبح تعلمها ممتعا ومفيدا في آن واحد و نصيحتي أن تستعملها في خدمة البشرية جمعاء وفي الاخير تقبلوا مني فائق التقدير والاحترام
منتدى دلفي تعليم يرحب بكم ويتمنى لكم قضاء وقت ممتع مع هذه المواضيع الشييقة والتي سأعرض من خلالها مواضيع حول دلفي وهي عبارة أمثلة متعددة ومتنوعة أي كل موضوع سحتوي على مثال توضيحي يفسر ذلك الموضوع مرحبا بكم أيها الزوار الكرام زوار منتدى دلفي تعليم ويسعدنا تكرمكم بتسجيل في المنتدى

كلمة مرور أو كيفية انشاء كلمة في تاربو باسكال

دلفي تعليم :: منتديات البرمجة :: برمجة بــاللغة تربو باسكال

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

كلمة مرور أو كيفية انشاء كلمة في تاربو باسكال Empty كلمة مرور أو كيفية انشاء كلمة في تاربو باسكال

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

كلمة مرور أو كيفية انشاء كلمة في تاربو باسكال

الكود:

program centour_fentre;
uses crt;
var i,j : integer;
   sortie:string[6];
begin
clrscr;
textbackground(8); textcolor(15);
clrscr;

{}
 gotoxy(2,2); write(chr(218)); gotoxy(76,2); write(chr(191));
 gotoxy(2,24); write(chr(192)); gotoxy(76,24); write(chr(217));
 for i:=1 to 73 do
 begin
    gotoxy(2+i,2); write(chr(196));
    gotoxy(2+i,24); write(chr(196));
 end;
 for i:=1 to 21 do
 begin
    gotoxy(2,2+i); write(chr(179));
    gotoxy(76,2+i); write(chr(179));
 end;

{}
 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(15,5); write('REPUBLIQUE ALGERIENNE DEMOCRATIQUE POPULAIRE');
{}
 gotoxy(15,7); write(chr(218)); gotoxy(56,7); write(chr(191));
 gotoxy(15,18); write(chr(192)); gotoxy(56,18); write(chr(217));
 for i:=1 to 40 do
 begin
    gotoxy(15+i,7); write(chr(196));
    gotoxy(15+i,18); write(chr(196));
 end;
 for i:=1 to 10 do
 begin
    gotoxy(15,7+i); write(chr(179));
    gotoxy(56,7+i); write(chr(179));
 end;

{}
     for j:=1 to 10 do
     begin
       gotoxy(16,7+j);
       textbackground(2);
       for i:=1 to 40 do
         write(' ');
       writeln;
     end;


gotoxy(24,11);
textcolor(4); write('Entrez le mot de passe');

gotoxy(24,12);
textbackground(15); textcolor(1);
for i:= 1 to 24 do write(' ');

gotoxy(25,12); textcolor(8); read(sortie);

if sortie<>'1954' then
 begin
  for j:=1 to 6 do
     begin
       gotoxy(20,13+j);
       textbackground(4);
       for i:=1 to 31 do
         write(' ');
       writeln;
     end;

   gotoxy(22,16); textbackground(15); textcolor(1);
   write('Le mot de passe ne pas vrai');
 end else
 begin
  for j:=1 to 6 do
     begin
       gotoxy(20,13+j);
       textbackground(1);
       for i:=1 to 31 do
         write(' ');
       writeln;
     end;

   gotoxy(22,16); textbackground(15); textcolor(4);
   write(' Le mot de passe est vrai ');
 end;

textbackground(8); textcolor(15);

repeat until keypressed;

end.

mah11
Admin

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

https://delph.forumalgerie.net

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

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

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

دلفي تعليم :: منتديات البرمجة :: برمجة بــاللغة تربو باسكال

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