مناقشة الوظيفة الثامنة (التقرير)_برمجة 2

كل ما يتعلق بمادة البرمجة 2 من استفسارات و مناقشات و محاضرات...........

المشرفون: Ghais, Karam

Re: مناقشة الوظيفة الثامنة (التقرير)_برمجة 2

مشاركة غير مقروءةبواسطة Ghais » الثلاثاء مايو 10, 2011 7:26 pm

كودي...

CODE: تحديد الكل
unit FathChUnit;


أولاً : الأنماط والمتحولات :

CODE: تحديد الكل
interface


CODE: تحديد الكل
type
  String20=String[20];

  PChild = ^Child;
  Child = record
    CName : String20;
    CNext : PChild;
  end;

  PFather = ^Father;
  Father = record
    FName : String20;
    FNext : PFather;
    ChNext : PChild;
  end;

var
  List: PFather;




CODE: تحديد الكل
implementation

ثانياً : إجرائيتان مساعدتان :
CODE: تحديد الكل
Procedure Pause;
begin
  writeln;
  writeln('Press ENTER to continue...');
  readln;
  writeln;
end;



CODE: تحديد الكل
Function TrueName(Name:String20):Boolean;
var
  i:integer;
begin
  TrueName:=True;
  if (not (Name[1] in ['A'..'Z','a'..'z'])) or (Length(Name)<3) then
    TrueName:=False
  else
    for I := 1 to Length(Name) do
      begin
        if not (Name[i] in ['A'..'Z','a'..'z',' ']) then
          begin
            TrueName:=False;
            Break;
          end;
      end;
end;


التابع الأخير استخدمته في البرنامج أثناء قراءة الاسم للتحقق من كونه قد كُتب بشكل صحيح, ويتحقق هذا التابع من كون جميع محارف الاسم هي إما أحرفاً أو فراغاً Space, وألا يبدأ الاسم بفراغ, وأن يزيد عدد أحرفه على ثلاثة...

ثالثاً : إجرائية إضافة أب :
CODE: تحديد الكل
Procedure Insert_Father(Var List:PFather;FatherToAdd:String20);
var
  PrevItem,NextItem,Temp:PFather;
  Located,AlreadyExists:Boolean;
begin
  writeln('~~~ Father Insert ~~~');

  New(Temp);
  Temp^.FName:=FatherToAdd;
  Temp^.FNext:=nil;
  Temp^.ChNext:=nil;

  AlreadyExists:=False;
  Located:=False;

  if List=nil then
    List:=Temp
  else
    begin
      NextItem:=List;
      while (NextItem<>nil) and (not Located) do
        if NextItem^.FName < FatherToAdd then
          begin
            PrevItem:=NextItem;
            NextItem:=NextItem^.FNext;
          end
        else
          Located:=True;

      if (NextItem<>nil) and (NextItem^.FName = FatherToAdd) then
        AlreadyExists:=True
      else
        begin
          Temp^.FNext:=NextItem;
          if NextItem = List then
            List:=Temp
          else
            PrevItem^.FNext:=Temp;
        end;
    end;


  if AlreadyExists then
    writeln('Father Name already exists !')
  else
    writeln('Father successfully added.');

  Pause;
end;


رابعاً : إجرائية إضافة ابن :
CODE: تحديد الكل
Procedure Insert_Child(Var List:PFather;FatherName,ChildToAdd:String20);
var
  PWantedFather:PFather;
  PrevItem,NextItem,Temp:PChild;
  Located,Found,AlreadyExists:Boolean;
begin
  writeln('~~~ Child Insert ~~~');

  AlreadyExists:=False;
  Found:=False;

  if List<>nil then
    begin
      PWantedFather:=List;
      while (PWantedFather<>nil) and (not Found) do
        if PWantedFather^.FName = FatherName then
          Found:=True
        else
          PWantedFather:=PWantedFather^.FNext;
    end;

  if Found then
    begin
      New(Temp);
      Temp^.CName:=ChildToAdd;
      Temp^.CNext:=nil;

      Located:=False;

      if PWantedFather^.ChNext=nil then
        PWantedFather^.ChNext:=Temp
      else
        begin
          NextItem:=PWantedFather^.ChNext;
          while (NextItem<>nil) and (not Located) do
            if NextItem^.CName < ChildToAdd then
              begin
                PrevItem:=NextItem;
                NextItem:=NextItem^.CNext;
              end
            else
              Located:=True;

          if (NextItem<>nil) and (NextItem^.CName = ChildToAdd) then
            AlreadyExists:=True
          else
            begin
              Temp^.CNext:=NextItem;
              if NextItem = PWantedFather^.ChNext then
                PWantedFather^.ChNext:=Temp
              else
                PrevItem.CNext:=Temp;
            end;
        end;
    end;

  if not Found then
    writeln('Father not found !')
  else if AlreadyExists then
    writeln('Child already exists !')
  else
    writeln('Child successfully added.');

  Pause;
end;


خامساً : إجرائية حذف ابن لأب معين :
CODE: تحديد الكل
Procedure Delete_Child(Var List:PFather;Fathername,ChildName:String20);
var
  L,ChTemp:PChild;
  PWantedFather:PFather;
  FoundFather,FoundChild:Boolean;
begin

  writeln('~~~ Child Delete ~~~');

  PWantedFather:=List;
  FoundChild:=False;
  FoundFather:=False;

  while (PWantedFather<>nil) and (not FoundFather) do
    begin
      if PWantedFather^.FName <> FatherName then
        PWantedFather:=PWantedFather^.FNext
      else
        begin
          FoundFather:=True;
          if PWantedFather^.ChNext<>nil then
            if (PWantedFather^.ChNext^.CName = ChildName) then
              begin
                FoundChild:=True;
                ChTemp:=PWantedFather^.ChNext;
                PWantedFather^.ChNext:=PWantedFather^.ChNext^.CNext;
                  Dispose(ChTemp);
              end
            else
              begin
                L:=PWantedFather^.ChNext;
                while (L<>nil) and (not FoundChild) do
                  if L^.CNext^.CName=ChildName then
                    begin
                      FoundChild:=True;
                      ChTemp:=L^.CNext;
                      L^.CNext:=L^.CNext^.CNext;
                      Dispose(ChTemp);
                    end
                  else
                    L:=L^.CNext;
              end;
        end
    end;

  if not FoundFather then
    writeln('Father not found !')
  else if not FoundChild then
    writeln('Child not found !')
  else
    writeln('Child successfully deleted !');

  Pause;
end;



سادساً : حذف أب لابن معين :
1- إجرائية مساعدة لحذف جميع الأبناء لأب ما :
CODE: تحديد الكل
Procedure Delete_All_Children(Var Father:PFather);
var
  ChTemp:PChild;
begin
  while Father^.ChNext<>nil do
    begin
      ChTemp:=Father^.ChNext;
      Father^.ChNext:=Father^.ChNext^.CNext;
      Dispose(ChTemp);
    end;
end;


2- إجرائية حذف أب لابن معين (مع حذف جميع أبنائه) :
CODE: تحديد الكل
Procedure Delete_Father(Var List:PFather;ChildName:String20);
var
  Temp,S:PFather;
  ChTemp:PChild;
  FoundChild:Boolean;
  Choice:Char;
begin
  writeln('~~~ Father Delete ~~~');
  FoundChild:=False;
  Temp:=List;
  while (Temp<>nil) and (not FoundChild) do
    begin
      ChTemp:=Temp^.ChNext;
      while (ChTemp<>nil) and (not FoundChild) do
        begin
          if ChTemp^.CName=ChildName then
            begin
              writeln('Father Name: ',Temp^.FName);
              writeln(' Child Name: ',ChTemp^.CName);
              writeln('Do you want to delete ? (Y/N)');
              readln(Choice);

              if Choice in ['y','Y'] then
                begin
                  FoundChild:=True;
                  Delete_All_Children(Temp);

                  if Temp=List then
                    begin
                      List:=Temp^.FNext;
                      Dispose(Temp);
                    end
                  else
                    begin
                      S^.FNext:=S^.FNext^.FNext;
                      Dispose(Temp);
                    end;
                end;

            end
          else
            ChTemp:=ChTemp^.CNext;
        end;

      S:=Temp;
      Temp:=S^.FNext;
    end;

  if not FoundChild then
    writeln('Child not found !')
  else
    writeln('Children and father successfully deleted.');

  Pause;
end;


سابعاً : إجرائية طباعة أبناء أب معين :
CODE: تحديد الكل
Procedure Print_Children(List:PFather;FatherName:String20);
var
  Temp:PFather;
  ChTemp:PChild;
  Found:Boolean;
begin
  writeln('~~~ Child Print ~~~');
  Found:=False;
  Temp:=List;
  while (Temp<>nil) and (not Found) do
    begin
      if Temp^.FName=FatherName then
        Found:=True
      else
        Temp:=Temp^.FNext;
    end;

  if Found then
    if Temp^.ChNext <> nil then
      begin
        writeln('Children are: ');
        ChTemp:=Temp^.ChNext;
        while ChTemp <> nil do
          begin
            writeln('   ',ChTemp^.CName);
            ChTemp:=ChTemp^.CNext;
          end;
      end
    else
      writeln('This father has no children !');

  if not Found then
    writeln('Father not found !');

  Pause;

end;


ثامناً : إجرائية طباعة أسماء الآباء الذين لا أبناء لديهم :
CODE: تحديد الكل
Procedure Print_NoChildren_Father(List:PFather);
var
  Temp:PFather;
  Found:Boolean;
begin
  writeln('Father that have no children: ');

  Found:=False;

  if List<>nil then
    begin
      Temp:=List;
      while Temp<>nil do
        begin
          if Temp^.ChNext = nil then
            begin
              Found:=True;
              writeln('  ',Temp^.FName);
            end;
          Temp:=Temp^.FNext;
        end;
    end
  else
    writeln('Empty list !');

  if not Found then
    writeln('No such father found !');

  Pause;
end;


تاسعاً : طباعة أسماء الأب الذي لديه أكبر عدد من الأبناء (بالأحرى الآباء الذين لديهم أكبر عدد من الأبناء) :
1- تابع يرد قيمة صحيحة تمثل عدد أبناء أب ما :
CODE: تحديد الكل
Function ChildrenNumber(Father:PFather):Integer;
var
  ChTemp:PChild;
begin
  Result:=0;
  ChTemp:=Father^.ChNext;
  while ChTemp<>nil do
    begin
      Result:=Result+1;
      ChTemp:=ChTemp^.CNext;
    end;
end;


2- إجرائية الطباعة :
CODE: تحديد الكل
Procedure Print_MostChildren_Father (List:PFather);
var
  Temp:PFather;
  ChTemp:PChild;
  MaxNumber,ChNumber:Integer;
begin
  writeln('~~~ Print Fathers with most children number ~~~');

  MaxNumber:=0;

  if List=nil then
    writeln('Empty List !')
  else
    begin
      Temp:=List;
      while Temp<>nil do
        begin
          ChNumber:= ChildrenNumber(Temp);
          if ChNumber > MaxNumber then
            MaxNumber:=ChNumber;

          Temp:=Temp^.FNext;
        end;

      Temp:=List;
      while Temp<>nil do
        begin
          if ChildrenNumber(Temp)=MaxNumber then
            writeln('The father "',Temp^.FName,'" has ',MaxNumber,' children');
          Temp:=Temp^.FNext;
        end;
    end;

  Pause;
end;


في هذه الإجرائية تمت معالجة حال وجود أكثر من أب لديه أكبر عدد من الأبناء, حيث تقوم الإجرائية بمعرفة قيمة أكبر عدد من الأبناء MaxNumber, ثم تعيد مقارنة هذا العدد مع عدد أبناء كل أب وطباعة المتوافق مع هذا العدد...

عاشراً : البرنامج والاستدعاءات :
CODE: تحديد الكل
uses
  FathChUnit;

var
  Choice:Integer;
  Father,Child:String20;
begin
  repeat
    writeln;
    writeln('1 : Insert Father');
    writeln('2 : Insert Child');
    writeln('3 : Delete Child of a father');
    writeln('4 : Delete Father of a child');
    writeln('5 : Print Children for a given father');
    writeln('6 : Print Fathers that have no children');
    writeln('7 : Print Fathers with most children');
    writeln;
    writeln('0 : To Exit');

    write('Please enter a choice: ');readln(Choice);

    case choice of
      1:
        begin
          repeat
            write('Please enter the father name: ');
            readln(Father);
          until TrueName(Father);

          Insert_Father(List,Father);
        end;

      2:
        begin
          repeat
            write('Please enter the father name: ');
            readln(Father);
          until TrueName(Father);

          repeat
            write('Please enter the child name: ');
            readln(Child);
          until TrueName(Child);

          Insert_Child(List,Father,Child);
        end;

      3:
        begin
          repeat
            write('Please enter the father name: ');
            readln(Father);
          until TrueName(Father);

          repeat
            write('Please enter the child name: ');
            readln(Child);
          until TrueName(Child);

          Delete_Child(List,Father,Child);
        end;

      4:
        begin
          repeat
            write('Please enter the child name: ');
            readln(Child);
          until TrueName(Child);

          Delete_Father(List,Child);
        end;

      5:
        begin
          repeat
            write('Please enter the father name: ');
            readln(Father);
          until TrueName(Father);

          Print_Children(List,Father);
        end;

      6:
        begin
          Print_NoChildren_Father(List);
        end;

      7:
        begin
          Print_MostChildren_Father(List);
        end;

    end;
  until Choice=0;

end.




... جاهز لأي استفسار :iok:
Ghais Zaher
ghais.speedy@gmail.com

syrian es

صورة العضو الشخصية
Ghais
مشرف منتديات السنة الأولى
مشرف منتديات السنة الأولى
 
مشاركات: 685
اشترك في: الجمعة أكتوبر 01, 2010 1:38 am
الجتس: ذكر
الشهادة الثانوية: سورية (علمي)
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الثانية

Re: مناقشة الوظيفة الثامنة (التقرير)_برمجة 2

مشاركة غير مقروءةبواسطة shimaa 1 » الأربعاء ديسمبر 04, 2013 10:32 pm

[url][/url]https://www.facebook.com/fsed.bu.edu.eg?ref=profile
shimaa 1
عضو جديد
عضو جديد
 
مشاركات: 20
اشترك في: الأربعاء ديسمبر 04, 2013 8:23 pm
الجتس: أنثى
الشهادة الثانوية: مصريه
الجامعة: جامعه بنها
الكلية: التربيه النوعيه
المرحلة الدراسية: السنة الأولى
الاختصاص: غير ذلك

Re: مناقشة الوظيفة الثامنة (التقرير)_برمجة 2

مشاركة غير مقروءةبواسطة shimaa 1 » الأربعاء ديسمبر 04, 2013 10:33 pm

[url][/url]https://www.facebook.com/fsed.bu.edu.eg?ref=profile
shimaa 1
عضو جديد
عضو جديد
 
مشاركات: 20
اشترك في: الأربعاء ديسمبر 04, 2013 8:23 pm
الجتس: أنثى
الشهادة الثانوية: مصريه
الجامعة: جامعه بنها
الكلية: التربيه النوعيه
المرحلة الدراسية: السنة الأولى
الاختصاص: غير ذلك

Ugg Boots Discount

مشاركة غير مقروءةبواسطة word77nknyq » السبت ديسمبر 07, 2013 3:40 am

as well as ナイキ コービー7 B innovative ニューバランス 574 uk A hunting sounds. Oakley's very few renowned types of tones tend to be: -- Oakley OLS2028 -- Starting smoke a cigarette, off white along with brown lightly hues Oakley's OLS2028 has become the nearly all favorite label of eyewear having l8rs.
word77nknyq
عضو جديد
عضو جديد
 
مشاركات: 105
اشترك في: الجمعة ديسمبر 06, 2013 3:33 am
الجتس: ذكر
الشهادة الثانوية: ?????
الجامعة: ????? ????
الكلية: ??????? ???????????
المرحلة الدراسية: السنة الخامسة
الاختصاص: غير ذلك

Treat Your Tootsies With Australian Ugg Boots

مشاركة غير مقروءةبواسطة word77nknyq » السبت ديسمبر 07, 2013 3:51 am

Optic will be certainly a good web shop which will http://www.meatrake.com/kobe-6.html B generally generates especially genuine well-known eye protection products, along with Alfredia Dior, Mentor Purses and handbags Prada, Rayban and even more. Up to ニューバランス 996 A the actual 1970s, many.
word77nknyq
عضو جديد
عضو جديد
 
مشاركات: 105
اشترك في: الجمعة ديسمبر 06, 2013 3:33 am
الجتس: ذكر
الشهادة الثانوية: ?????
الجامعة: ????? ????
الكلية: ??????? ???????????
المرحلة الدراسية: السنة الخامسة
الاختصاص: غير ذلك

Re: مناقشة الوظيفة الثامنة (التقرير)_برمجة 2

مشاركة غير مقروءةبواسطة ahmed_hanss » الأحد ديسمبر 08, 2013 10:52 am

ربنا يوفقكوا يارب دايما
http://www.fnur.bu.edu.eg/
http://www.fnur.bu.edu.eg/fnur/
http://www.fnur.bu.edu.eg/fnur/index.php/departements
http://www.fnur.bu.edu.eg/fnur/index.ph ... l-surgical
http://www.fnur.bu.edu.eg/fnur/index.ph ... ity-health
http://www.fnur.bu.edu.eg/fnur/index.ph ... nistration
http://www.fnur.bu.edu.eg/fnur/index.ph ... obstetrics
http://www.fnur.bu.edu.eg/fnur/index.php/mental-health
http://www.fnur.bu.edu.eg/fnur/index.ph ... on-nursing
http://www.fnur.bu.edu.eg/fnur/index.php/dean-word
http://www.fnur.bu.edu.eg/fnur/index.php/about-faculty
http://www.fnur.bu.edu.eg/fnur/index.ph ... aculty/tip
http://www.fnur.bu.edu.eg/fnur/index.ph ... on-mission
http://www.fnur.bu.edu.eg/fnur/index.ph ... ulty/goals
http://www.fnur.bu.edu.eg/fnur/index.ph ... nistration
http://www.fnur.bu.edu.eg/fnur/index.ph ... ious-deans
http://www.fnur.bu.edu.eg/fnur/index.ph ... es-faculty
http://www.fnur.bu.edu.eg/fnur/index.ph ... culty-deps
http://www.fnur.bu.edu.eg/fnur/index.ph ... es-offered
http://www.fnur.bu.edu.eg/fnur/images/n ... zim11i.jpg
http://www.fnur.bu.edu.eg/fnur/images/n ... Page_1.jpg
http://www.fnur.bu.edu.eg/fnur/images/n ... maaeer.pdf
http://www.fnur.bu.edu.eg/fnur/images/n ... edaria.pdf
http://www.fnur.bu.edu.eg/fnur/index.ph ... fi-faculty
http://www.fnur.bu.edu.eg/fnur/images/p ... seyana.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... 0cover.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... temaea.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/computer.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... edaria.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/fenon.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/maamal.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/maktabat.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/dean.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... haregi.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... haregi.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... akheli.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/hykal.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... %20fuc.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... 20kaaa.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... amal12.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... 20amaa.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... erasat.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... arayat.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... aktaba.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... wazana.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... 0shbab.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... em%20t.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... em%20t.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... amleen.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... maamel.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... maamel.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... 20almy.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/saeq.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... 20sehy.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/saraf.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... swetch.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... adrees.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/fehres.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/fawasel.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... adrees.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... amleen.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... arshef.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... rtaria.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... 0edari.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/kahrobaee.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... adrees.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... khedma.pdf
http://www.fnur.bu.edu.eg/fnur/images/pdf/mokadema.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... asalat.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... 0talem.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... erasat.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... gtamaa.pdf
http://www.fnur.bu.edu.eg/fnur/index.php/main-news
http://www.fnur.bu.edu.eg/fnur/index.php/main-news/news
http://www.fnur.bu.edu.eg/fnur/index.ph ... /community
http://www.fnur.bu.edu.eg/fnur/index.php/graduates
http://www.fnur.bu.edu.eg/fnur/images/p ... hregen.pdf
http://bu.edu.eg/portal/index.php?act=306&fid=13
http://www.fnur.bu.edu.eg/fnur/index.php/conferences
http://www.fnur.bu.edu.eg/fnur/index.php/workshops
http://www.fnur.bu.edu.eg/fnur/index.php/relations
http://srv1.eulc.edu.eg/eulc_v5/libraries/start.aspx
http://www.fnur.bu.edu.eg/fnur/index.php/contact-us
http://www.fnur.bu.edu.eg/fnur/index.ph ... access-map
http://www.fnur.bu.edu.eg/fnur/index.ph ... 3-11-48-42
http://www.fnur.bu.edu.eg/fnur/index.ph ... c-services
http://www.fnur.bu.edu.eg/fnur/index.ph ... arity-fund
http://www.fnur.bu.edu.eg/fnur/images/V ... nur_91.pdf
http://www.fnur.bu.edu.eg/fnur/index.ph ... -employees
http://www.fnur.bu.edu.eg/fnur/images/W ... nur_86.pdf
http://www.fnur.bu.edu.eg/fnur/images/W ... nur_87.pdf
http://www.fnur.bu.edu.eg/fnur/images/W ... nur_88.pdf
http://www.fnur.bu.edu.eg/fnur/images/W ... nur_89.pdf
http://www.fnur.bu.edu.eg/fnur/images/W ... nur_90.pdf
http://www.fnur.bu.edu.eg/fnur/images/G ... nur_83.pdf
http://www.fnur.bu.edu.eg/fnur/images/G ... nur_84.pdf
http://www.fnur.bu.edu.eg/fnur/images/G ... nur_84.pdf
http://www.fnur.bu.edu.eg/fnur/images/G ... nur_85.pdf
http://www.fnur.bu.edu.eg/fnur/images/n ... 0batni.pdf
http://www.fnur.bu.edu.eg/fnur/images/n ... 0atfal.pdf
http://www.fnur.bu.edu.eg/fnur/images/n ... nafsia.pdf
http://www.fnur.bu.edu.eg/fnur/images/n ... 20elom.pdf
http://www.fnur.bu.edu.eg/fnur/images/n ... nshora.pdf
http://www.fnur.bu.edu.eg/fnur/images/n ... htheya.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... zia123.pdf
http://www.fnur.bu.edu.eg/fnur/images/p ... htheya.pdf
http://www.fnur.bu.edu.eg/fnur/index.php/students
http://www.fnur.bu.edu.eg/fnur/index.php/studies
http://www.fnur.bu.edu.eg/fnur/index.ph ... ty-service
http://www.fnur.bu.edu.eg/fnur/index.php/quality-unit
http://www.fnur.bu.edu.eg/fnur/index.php/projects
http://www.fnur.bu.edu.eg/fnur/index.php/ictp
ahmed_hanss
عضو جديد
عضو جديد
 
مشاركات: 101
اشترك في: السبت ديسمبر 07, 2013 6:33 pm
الجتس: ذكر
الشهادة الثانوية: الجامعية
الجامعة: بنها
الكلية: هندسة
المرحلة الدراسية: متخرج
الاختصاص: شبكات و نظم

Re: مناقشة الوظيفة الثامنة (التقرير)_برمجة 2

مشاركة غير مقروءةبواسطة aman goda » الأحد ديسمبر 08, 2013 12:14 pm

aman goda
عضو جديد
عضو جديد
 
مشاركات: 16
اشترك في: الأحد ديسمبر 08, 2013 11:58 am
الجتس: أنثى
الشهادة الثانوية: مصريه
الجامعة: جامعة بنها
الكلية: التربية النوعية
المرحلة الدراسية: ماجستير
الاختصاص: غير ذلك

السابق

العودة إلى البرمجة 2

الموجودون الآن

المستخدمون المتصفحون لهذا المنتدى: لا يوجد أعضاء مسجلين متصلين و 1 زائر

cron