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

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

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

عرض معلومات عن شخص مسجل في الجدول

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

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

عرض معلومات عن شخص مسجل في الجدول Empty عرض معلومات عن شخص مسجل في الجدول

مُساهمة  mah11 20/7/2013, 7:25 pm

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


عرض معلومات عن شخص مسجل في الجدول
الكود:

program centre_de_djelfa;
uses delfa,delfa1,delfa2,message;
begin  { Programmer principal }
effacer; fente;
nom_pre;
nom_prem(tanom,
 taage,
  tapreno);
quitt;
end.
-------------------------
unit delfa;
interface
  uses crt;
  procedure fente;
         { Procedure de premier fenatre }
implementation
procedure fente;
begin
  clrscr;
  textbackground(8);
  textcolor(2); gotoxy(15,3);
  write('REPUBLIQUE ALGERIENNE DEMOCRATIQUE POPULAIRE');
  textcolor(4); gotoxy(20,4);
  write('MINISTERE DE L EDUCATION NATIONAL');
  textcolor(7);
end;

end.
-----------------------
unit delfa1;
interface
uses crt;
procedure nom_pre;
implementation
procedure nom_pre;
begin
 gotoxy(6,10); writeln('Nom    :');
 gotoxy(6,15); writeln('Prenom :');
 gotoxy(6,20); writeln('Age    :');
end;
end.
--------------
unit delfa2;
interface
uses crt;
const antailer=10; automatiqements=3;
a1=1; b2=2; c3=3; d4=4; e5=5; f6=6; g7=7; h8=8; i9=9; j10=10;
type ta100tpaba=array[1..antailer] of string[antailer];
     ta110tpaca=array[1..antailer] of integer;
     ta111tpada=array[1..automatiqements] of string[antailer];
var tanom:ta100tpaba; taage:ta110tpaca; tapreno:ta111tpada;
procedure tableau10_charg_pre(var ta111da:ta111tpada);
procedure tableau11_charge_age(var ta110ca:ta110tpaca);
procedure tableau12_charges_nom(var ta100ba:ta100tpaba);
procedure nom_prem(tablnom:ta100tpaba; tablage:ta110tpaca;
                                              tablprenom:ta111tpada);
implementation
procedure tableau12_charges_nom(var ta100ba:ta100tpaba); begin
 ta100ba[a1]:='Yousef'; ta100ba[b2]:='Saber'; ta100ba[c3]:='Hamid';
 ta100ba[d4]:='Saadia'; ta100ba[e5]:='Kemal'; ta100ba[f6]:='Ahmed';
 ta100ba[g7]:='Salim'; ta100ba[h8]:='Saadi'; ta100ba[i9]:='Mokhtar';
 ta100ba[j10]:='Taib'; end;
procedure tableau11_charge_age(var ta110ca:ta110tpaca); begin
 ta110ca[a1]:=43; ta110ca[b2]:=22; ta110ca[c3]:=19; ta110ca[d4]:=26;
 ta110ca[e5]:=32; ta110ca[f6]:=10; ta110ca[g7]:=15; ta110ca[h8]:=24;
 ta110ca[i9]:=35; ta110ca[j10]:=41; end;
procedure tableau10_charg_pre(var ta111da:ta111tpada); begin
 ta111da[a1]:='Ben taib'; ta111da[b2]:='Ben homida'; ta111da[c3]:='Atia'; end;
procedure nom_prem(tablnom:ta100tpaba; tablage:ta110tpaca;
                                      tablprenom:ta111tpada);
                                      var i:integer;
begin
 tableau12_charges_nom(tablnom);
 tableau10_charg_pre(tablprenom);
 tableau11_charge_age(tablage);
 for i:=1 to antailer do begin
  gotoxy(15,10); writeln(tablnom[i],'    ');
  gotoxy(15,20); writeln(tablage[i],'    ');
  if (tablnom[i]='Yousef')or(tablnom[i]='Saadia')or(tablnom[i]='Sadek')
     or(tablnom[i]='Mokhtar')or(tablnom[i]='Taib')or(tablnom[i]='Kemal')
       or(tablnom[i]='Hamid') then begin gotoxy(15,15);
       writeln(tablprenom[1],'     '); end
  else if (tablnom[i]='Saber')or(tablnom[i]='Saadi') then
   begin gotoxy(15,15); writeln(tablprenom[2],'     ') end
  else begin gotoxy(15,15); writeln(tablprenom[3],'     ') end;
  gotoxy(10,40); readkey; end;
end;
end.

delph.forumalgerie.net

mah11
Admin

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

https://delph.forumalgerie.net

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

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

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

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

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