بعض التوابع المفيدة في الباسكال......

يحوي الدروس و الملخصات التي قام أعضاء الموقع بكتابتها .

المشرف: Mohammad_807

بعض التوابع المفيدة في الباسكال......

مشاركة غير مقروءةبواسطة Mu_Nizar » الجمعة يوليو 25, 2008 5:58 pm

بسم الله الرحمن الرحيم

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

بعد هذه المقدمة المسهبة ( ويلي كمان يمكن بتنعس و جميعكون بيعرفا بس حبيت اذكرا مشان الزملاء يلي لح يجو لعنا جدد مع مطلع العام المقبل :wink: )


نبدأ بأهم التوابع و الإجرائيات المبيتة في الباسكال........
• هذه ثلة من التوابع و الإجرائيات الموجودة في Terbo Pascal 7.0
• لاتتضمن هذه التوابع على ما تم دراسته خلال منهج البرمجة 1و2
• بعض هذه التوابع تسهل بعض العمليات البرمجية التي كنا للقيام بها نضطر لكتابتها (على اعتبارها غير مبيتة في الباسكال مثل تابع val ) لا ينصح باستخدام هذه التوابع في حال طلب منا كتابة تابع يؤدي نفس المهمة


1)
Function Odd(x:longint):Boolean

تابع يفيد في اختبار العدد x فيما إذا كان فردي أم زوجي
يحمل القيمة True عندما يكون العدد فردي


2)
Function Length (S:string):byte

يرد الطول الديناميكي لشريط محرفي


3)
Function Copy (S:string; Index:integer;ount:integer):string;

يقوم هذا التابع بنسخ عدد يساوي إلى Count محرف من ال String Index
إذا كان ال المدخل أكبر من طول سلسلة المحارف التابع Copy خرجه يكون خالي.....
CODE: تحديد الكل
[Left]var s:string;
  begin
    s:='abcdefghijk';
    writeln(s);    {abcdefghijk}
    s:=copy (s,3,4);
    writeln(s);     {cdef}
    readln;
  end.[/Left]



4)
Procedure Delet(var S:string;Index,Count :integer):

تحذف Count محرف من ال S بدأ من المحرف ذي الترتيب Index
إذا كان ال Index أكبر من طول الشريط المحرفي عندئذ لا يتم حذف أي محرف من السلسلة
إذا كان ال Count أكبر من
CODE: تحديد الكل
[Left] var
  s: string;
begin
  s := 'Honest Abe Lincoln';
  Delete(s,8,4);
  Writeln(s); { 'Honest Lincoln' }
end.[/Left]


5)
Function ConCat(S1,…..,Sn:String):String;

يقوم بجمع "Concatenates a se`uence of strings " جمع مجموعة من سلاسل المحارف حيث تكون قيمة هذا التابع هي سلسلة محارف تمثل تسلسل لجميع وسطاء الدخل
إن هذا التابع يكافئ المؤثر (+) المسعرف على النمط String
إذا كانت السلسلة الناتجة أكبر من 255 محرف فإن المحارف الفوق 255 تهمل .

6)
Procedure Insert(var S:string; sours :string;Index:integer)

إضافة ال Sours إلى ال S من المحرف ذي الترتيب index
CODE: تحديد الكل
[Left] var
  S: String;
begin
  S := 'Honest Lincoln';
  Insert('Abe ', S, 8);  { 'Honest Abe Lincoln' }
end.[/Left]



7)
Function Pos (Substr:string;S:string):byte;

يقوم هذا التابع بعملية البحث عن الشريط المحرفي Substr ضمن ال S و في حال العثور عليه يرد قيمة ترتيب المحرف الأول من ال Substr ضمن السلسلة S
إذا لم يتم العثور على ال Substr ضمن ال S يرد التابع القيمة 0


8)
Procedure Val(S:string;var v:integer/or real/var code:integer

يقوم بتحويل المحارف "1 ..9"إلى النمط الرقمي (Integer or real)
حيث يتم عندئذ التعامل معها على اعتبارأنها أرقام و ليست من النمط المحرفي (يحملها متحول الدخل / خرج V )| بينما لم أجد عملا للمتحول code على الرغم من أن الإجرائية لا تعمل بدون وجودهفي حالة التخبيص
CODE: تحديد الكل
[Left]var s:string;
    v:integer{or real};
    code:integer;
begin
  val('1234',v,code);
  writeln(v);
  writeln(code+1000);
  readln;
end.[/Left]



9)
Procedure Str (x:integer;var s:string);

يقوم بتحويل الأعداد من النمط الرقمي إلى نمط شريط المحارف مما يمكننا من إجراء العمليات المحرفية عليها
CODE: تحديد الكل
[Left]var  s:string;
begin
str(1234,s);
writeln(s);
s:=s+'abc';
writeln(s);
readln;
end.[/Left]



10)
Function UpCase(ch:char):char;

تحويل المحارف "a..z" إلى حروف كبيرة
CODE: تحديد الكل
[Left]var c:string; i:integer;
begin
 write(' Inter a string :');
 readln(c);
 for i:=1 to length(c) do
     c[i]:=Upcase(c[i]);
 writeln(' Here it is in all uppetcase ',c);


   readln;
 end.[/Left]



11)
Function Int(real):real;

يعطي القسم الصحيح من العدد الحقيقي المدخل


12)
Function Frac(real):real
;
يعطي القسم الكسري "العشري" من العدد الحقيقي المدخل


13)
Function tranc (real):integer;

يقوم باقتطاع القسم الصحيح من العدد الحقيقي المدخل


14 )
function Round(real):integer;

تابع التقريب


CODE: تحديد الكل
[Left]begin
  writeln('    int (123.456) = ', int (123.456));
  writeln('    Frac(123.456) = ', frac(123.456));
  writeln('    Round(123.7)= ',round(123.456));
  writeln('    Trunc(123.7)= ',trunc(123.456));
  readln;
end.[/Left]



15)
Function Low(x):' the same type of x'

يرد القيمة الدنيا لشي ممتحول من نمط معدود متقطع
فمثلا عجندما Xمن النمط Array فإن التابع السابق سيرد قيمة أصغر دليل لهذه المصفوفة(دليل Index وليس محتواها عند الدليل الموافق)
عندما قيمة x من نمط ال String
CODE: تحديد الكل
[Left]type a = array [5..10] of integer;
var b:a;
    i:integer;
    begin
     writeln(low(b));
     readln
    end.[/Left]



16)
Function High(x):'the same type of x'

عمله معاكس لعمل التابع السابق


17)
Procedure Include (var S:set of T;a:T);

لإضافة العنصر a إلى المجموعة S ( حيث كلاهما من نفس النمط ) وهي تكافئ العملية "+"


18)
Procedure Exclude (var S:set of T;a:T);

لاستثناء العنصر a إلى المجموعة S ( حيث كلاهما من نفس النمط ) و هي تكافئ العملية "-"


19)
Procedure Seek(var F;n:longint);


20)
Function Maxint:imteger;

يرد قيمة ال Max value in the intereg type
CODE: تحديد الكل
[Left]begin
  writeln(Maxint);
  writeln(maxlongint);
  readln;
  end.[/Left]


21)
Function Maxlongint:longint;

يرد قيمة الMax value of the longint type


***********************

الوحدات الأساسية بالباسكال:
يوجد في الباسكال 9 وحدات قياسية و هي :
CRT Unit
Dos Unit
Graph Unit
Graph3 Unit
Overlay Unit
Printer Unit
System Unit
Turbo3 Unit
Windos Unit



و سنقوم باستعرض سريع لبعض للوحدات السابقة و أهم التوابع فيها و سنسهب بعض الشيء في الCrt.tpu
1ً ) CRT Unit
هذه الوحدة تقوم بتزويدنا ببعض الأجراءات المفيدة جدا و التي تمكننا من المقدرة على التحكم بالإظهار على لاشاشة و الألوان و النوافذ إضافة إلى الصوت...................


1) مفاجأة أكثر من رائعة : اجعل برنامج الباسكال قادر على إصدار صوت (وننننننن) حيث تقوم هذه الأجرائية بإصدار صوت طنين من الكيس و ليس من ال Speaker .....يمكن الأستفادة من هذه الإجرائية لإصدار صوت لإنذار المستخدم عندما يغلط بإدخال المدخلات ............أو للفت نظر المستخدم إلى نجاح أو فشل عملية.........


22) Procedure Sound(Hz:Word);
حيث ال hz يحدد تردد الصوت frequency (تغير قيمته يؤدي إلى تغير في صفة الصوت الصادر)

CODE: تحديد الكل
[Left]uses crt;
var i:word;   a:array [1..5] of char;
begin
  writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;
  writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;writeln;
  a[1]:='N';
  a[2]:='i';
  a[3]:='z';
  a[4]:='a';
  a[5]:='r';
  write('                                ');
 for I:=1 to 5 do
  begin
  sound(3000);(*Beeb*)
  delay(500); (*MS*)
       Nosound;
  write(a[i]);
  delay(500);
  end;
  for I:=1 to 10 do
  begin
  sound(3000);(*Beeb*)
  delay(250); (*MS*)
       Nosound;
  end;
    for I:=1 to 10 do
  begin
  sound(3000);(*Beeb*)
  delay(200); (*MS*)
       Nosound;
  end;
    for I:=1 to 10 do
  begin
  sound(3000);(*Beeb*)
  delay(150); (*MS*)
       Nosound;
  end;
    for I:=1 to 10 do
  begin
  sound(3000);(*Beeb*)
  delay(100); (*MS*)
       Nosound;
  end;

  sound(3000);(*Beeb*)
  delay(3000); (*MS*)
       Nosound;

  readln;

end.[/Left]



23)
NoSound

إجرائية لإيقاف إصدار الصوت ( لو نسينا نحطا .......لح يستمر الصوت ............حتى لو انتقلنا إلى الشاشة الزرقا)


24)
Delay
إجرائية تستخدم لتأخير الزمن (تكافئ فكرة حلقات ال for المتداخلة و التي كل منها تقوم بالعد من 1 إلى 10000 مثلا )


25)
Function Keypressed;

ينهي مهمة ما تنفذ عند الضغط على أحد أزرار لوحة المفاتي


26)
Procedure HighVideo;

يقوم بإظهار النصوص المكتوبة بعد استدعائه بلون أقوى (أشد سطوعاً)


27)
Procedure LowVideo;

يقوم بإظهار النصوص المكتوبة بعد استدعائه بلون خافت(أقل سطوعاً)


28)
ocedure NormVideo;


CODE: تحديد الكل
[Left]uses crt;
 begin
  writeln(' Muhammad Nizar ...');
  readln;
  HighVideo;
  writeln(' Muhammad Nizar ...');
  readln;
  lowVideo;
  writeln(' Muhammad Nizar ...');
  normVideo;
  writeln(' Muhammad Nizar ...');
  readln;
  e[/Left]


29)
Function ReadKey:char;

يقوم بقراءة المحرف الذي تم الضغط عليه في لوحة المفاتيح


30)
Procedure Textbackgground(Color:Byte);

تلوين خلفية النص المكتوب
يتحدد اللون بواسطة قيم المتحول color (0 >>>>black….255>>>>white)


31)
Procedure Textcolor(Color:Byte);

تحديد لون النص المكتوب بعد استدعائها
طبعا يتحدد لون النص من خلال قيم المتحول Color


32)
Procedure Gotoxy (x,y:byte);

لوضع المؤشر عند نقطة معينة في الشاشة ( نقل المؤشر لنقطة معينة في الشاشة و الكتابة عندها

CODE: تحديد الكل
[Left]uses crt;
var i:integer;
begin
textMode(-5);
Textcolor(100);
TextBackGround(1);
Gotoxy(30,30);
writeln('Muhammad Nizar');
readln;
for i:=1 to 50 do
 writeln;
end.[/Left]



33)
Procedure Window(x1,y1,x2,y2:byte)

لتحديد نافذة محددة على الشاشة من أجل الكتابة ضمن حدودها


34)
Procedure DelLine;

إجرائية حذف سطر (مثلا طبعنا سطر معين .....و ليكن رسالة خطأ ..و من ثم المستخدم ادارك الغلط و رجع صححو هلأ ما عاد صفي داعي تبقى رسالة الغلط موجودة منقوم منحذفا بستخدام هي الإجرائية)
2ً) DOS Unit



35)
Function DiskSize(Drive:byte):longint;



36)
Function FreeSize(Drive:byte):longint;

في التابعين السابقين القيمة 0 للقرص تكافئ القرص الرئيسي ((default
1>>>A…..2>>>B………etc


37)
Procedure Getdate(var Y,M,D,Toto:word);

يرد قيمة التاريخ الحالي في النظام حيث المتحول Toto يأخذ قيم في المجال [0..6] و القيمة 0 توافق Sunday و هكذا ..........


38)
Procedure Gettime(H,M,S,S100:word);

يرد قيمة التوقيت الحالي في النظام
CODE: تحديد الكل
[Left]uses dos;
var y,m,d,dd:word;
    Dname:string;
   begin
   getdate(y,m,d,dd);
   case dd of
   0:Dname:='Sun';
   1:Dname:='Mon';
   2:Dname:='Tuse';
   3:Dname:='Wed';
   4:Dname:='Therth';
   5:Dname:='Fri';
   6:Dname:='Sat';
        end;
   writeln(' Today is :',d,'/',m,'/',d,'   ',Dname);
   readln;
   end.[/Left]



39)
Procedure Setdate(y,m,d:word);



40)
Procedure Settime(h,m,s,s100:word);

الإجرائيتن السابقتين تقومان بتعديل التاريخ و التوقيت في النظام
ملاحظة: المعطيات المدخلة في حال كونها غلط يتم تجاهلها



[size=150]
3ً) Graph Unit
[/size]

معباية خيرات الله توابع حلوة................من الصعب إيرادها هنا .......ممكن يلي بدو يتطلع عليها يقرأها من ال help و مع كل تابع او إجرائية في مثال ....


lملاحظة هامة:
عندما يمر النمط Word فهو نمط أعدادصحيحة مجالها[0..65535]
عندما يمر النمط Byte فهو نمط أعداد صحيحة مجالها[0..255]
عندما يمر النمط Longint فهو نمط أعداد صحيحية مجالها[-2147483648..+2147483647]

مع أطيب التمنيات بالفائدة و الإستفادة
{لا تحزن إن الله معنا}

يالمحاسن التقدير الإلهي :mrgreen: :ism: عم قول لحالي ليش حارتنا منورة
و إن شاء الله دوما بتبقى منورة :ism:
صورة العضو الشخصية
Mu_Nizar
مشرف منتدى الخوارزميات العام
مشرف منتدى الخوارزميات العام
 
مشاركات: 2465
اشترك في: الاثنين مارس 10, 2008 2:49 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: هندسة برمجيات

مشاركة غير مقروءةبواسطة Mu_Nizar » الجمعة يوليو 25, 2008 6:11 pm

إذا كان في شي شغلة مخربط فيا حبذا تصلحولي ياها .لانو "جل من لا يخطئ"
{لا تحزن إن الله معنا}

يالمحاسن التقدير الإلهي :mrgreen: :ism: عم قول لحالي ليش حارتنا منورة
و إن شاء الله دوما بتبقى منورة :ism:
صورة العضو الشخصية
Mu_Nizar
مشرف منتدى الخوارزميات العام
مشرف منتدى الخوارزميات العام
 
مشاركات: 2465
اشترك في: الاثنين مارس 10, 2008 2:49 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: هندسة برمجيات

مشاركة غير مقروءةبواسطة A2A » الجمعة يوليو 25, 2008 7:53 pm

شكرا كتير الك بالفعل هي التوابع كتير بتفيدنا بالباسكال شكرا الك مرة تانية :smile:
R░A░M░D░A░ N░░░K░A░R░E░E░ M
صورة العضو الشخصية
A2A
عضو جديد
عضو جديد
 
مشاركات: 163
اشترك في: الأربعاء يونيو 18, 2008 12:54 pm
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الرابعة
الاختصاص: ذكاء صنعي

مشاركة غير مقروءةبواسطة N.Sham » السبت يوليو 26, 2008 1:40 pm

ماشاء الله كل هدول موجودين بالباسكال ومامنعرف !!!!!!!!

قريت شوي وبرجع بكمل الباقي ... يسلموووووووووووووووووووووو
على قدر النية يكون العون من الله
صورة العضو الشخصية
N.Sham
عضو نشيط جدا
عضو نشيط جدا
 
مشاركات: 3642
اشترك في: الاثنين يناير 28, 2008 6:00 pm
الجتس: أنثى
الشهادة الثانوية: إماراتية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: ذكاء صنعي

مشاركة غير مقروءةبواسطة Mu_Nizar » السبت يوليو 26, 2008 6:22 pm

N.Sham كتب:ماشاء الله كل هدول موجودين بالباسكال ومامنعرف !!!!!!!!

قريت شوي وبرجع بكمل الباقي ... يسلموووووووووووووووووووووو

و بس هدول...............في خيراات الله توابع...................و في منون ما فهمت شو استخدامون بالخياة :imb: :imb: :imb:


كمان بحب الفت نظركم إلى أن الباسكال ممكن نعرف في[color=#0000BF] مصفوفة ثلاثية الأبعاد[/color]
كالتالي: (بغض النظر عن الحجم...)
CODE: تحديد الكل
Type v3d = array [1..3,1..3,1..3] of integer;
   var i,j,k:integer;
       a:v3d;
   begin
     for i:=1 to 3 do
        begin
           for j:=1 to 3 do
               begin
                 for k:=1 to 3 do
                   begin
                     write(' [ ',i,' , ',j,' , ',k,' ] : ');
                     readln(a[i,j,k]);
                   end;
               end;
        end;
        writeln('++==++==++==++==++==++==++==++==++==++==++==++==');
        readln;
        for i:=1 to 3 do
          begin
           for j:=1 to 3 do
               begin
                 for k:=1 to 3 do
                   write('#',i,' ((',j,k,'))');
               end;
           writeln; writeln;
           end;
        readln;
        end.

مو بس هيك...............كمان مصفوفة ذات أربعة أبعاد...
CODE: تحديد الكل
Type v4d = array [1..2,1..2,1..2,1..2] of integer;
   var i,j,k,l:integer;
       a:v4d;
   begin
     for i:=1 to 2 do
        begin
           for j:=1 to 2 do
               begin
                 for k:=1 to 2 do
                   begin
                      for l:=1 to 2 do
                         begin
                            write(' [ ',i,' , ',j,' , ',k,' , ',l,' ] : ');
                            readln(a[i,j,k,l]);
                         end;
                   end;
               end;
        end;
        writeln('++==++==++==++==++==++==++==++==++==++==++==++==');
        readln;
        for i:=1 to 2 do
          begin
           for j:=1 to 2 do
               begin
                 for k:=1 to 2 do
                   begin
                     for l:=1 to 2 do
                       write('#',i,' ((',j,k,l,'))');
                   end;
               end;
           writeln; writeln;  writeln;
           end;
        readln;
        end.

أما خمس أبعاد فما جربتها :eek: :eek: :eek:
{لا تحزن إن الله معنا}

يالمحاسن التقدير الإلهي :mrgreen: :ism: عم قول لحالي ليش حارتنا منورة
و إن شاء الله دوما بتبقى منورة :ism:
صورة العضو الشخصية
Mu_Nizar
مشرف منتدى الخوارزميات العام
مشرف منتدى الخوارزميات العام
 
مشاركات: 2465
اشترك في: الاثنين مارس 10, 2008 2:49 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: هندسة برمجيات

مشاركة غير مقروءةبواسطة N.Sham » السبت يوليو 26, 2008 11:58 pm

ثلاثية ورباعية !!!!!!!!!!


كيف شكلها هي ؟؟ :???:
على قدر النية يكون العون من الله
صورة العضو الشخصية
N.Sham
عضو نشيط جدا
عضو نشيط جدا
 
مشاركات: 3642
اشترك في: الاثنين يناير 28, 2008 6:00 pm
الجتس: أنثى
الشهادة الثانوية: إماراتية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: ذكاء صنعي

Re:

مشاركة غير مقروءةبواسطة Mu_Nizar » الأحد يوليو 27, 2008 9:33 am

N.Sham كتب:ثلاثية ورباعية !!!!!!!!!!


كيف شكلها هي ؟؟ :???:

إذا قصدك كيف شكلها بالذاكرة فعلى حد علمي ....لو كان عدد ابعادها شو ماكان فالمعلوماتت بتكون مرتبة بشكل خطي متسلسل (و كانها نسق ذو بعد واحد)
بس أنا ما بتوقع هيك قصدك..........بتوقع يمكن انو إذا حبينا "نرسما أو نمثلها"بالواقع........فإذا كانت 3 أبعاد فهي متل المكعب..........
أكتر من 3 أبعاد لا يمكن تخيلها كيف بتصير ...................و لكن موجودة................(بين قوسين..و لو أنو خرجنا عن الموضوع شوي ................العلماء بيقولو أنو عند اللحظة يلي حدث فيا الإنفجار الاعظو يلي بدأ فيا الكون..كان في عشرة أبعاد ...............منها 4 موجودين بعالمنا الحالي " طول+عرض+ارتفاع+الزمن"و ال6 التانيات ما بيعرفو هنا شي ..............هي قصة .........شغلة تانية...............مرة وقع بإيدي كتاب بيحكي عن شغلة اسما "نظرية كل شيئ"....هي نظرية بالفيزيا تحدف إلى توحيد كل القوانين القيزيائية بقانون واحد...........الفكرة بلشت من عند انشتاين و لهلأ ما كتملت........بس عم تتطور مع مرور الزمن.........و هي مو هيك كيمة بتنقال ......شغلة معقدة جدا "أكتر من أنصاف النواقل :mrgreen: ".....و النقاش فيا عى مستوى العلماء .....المهم بتذكر أنو قرأت عن ال 26 بعد يلي عم يدورو عليون العلماء مشان يلاقو حل لهل النظرية....................طبعا 95% ما فهمت شي من يلي قرأتو .........و الكتابين لهلأ موجودين عندي .........بس كل ما خطر ببالي اقرأ فيون................بعد دقيقة بفضل أقرأ بكتاب أنصاف النواقل .........اسم الكتابين "البحث عن اللانهاية+الأوتار الفائقة...نظرية كل شيئ)
آسف عل الخروج عن الموضوع........
المهم.......بس بتصوري أنو هنن ما علمونا هيك سي ..........لأانو :
في عنا مشكلة بالإظهار ........فهلأ لما تكون المصفوفة 2D منطبعا على شكل جدول .........بس لما بتكون 3D يف بدنانطبعا ......(مشا هيك مثلا ..جمعت بعدين لحالون بين قوسين( ) لما طبعت)
المشكلة التانية و الاهم هي أنو في عنا بنية معطيات يلي هي Record بتريحنا من هل اللبكة كلها ....................منعرف ريكور ..و منحط في كل الحقول يلي بدنا ياها .و من ثم منلحشو بوسط نسق ................و صلى الله و بارك..............
آسف مرة تانية عل الإطالة...........[س إن شتء الله كون قدرت فيدك.....و لو 1 %
{لا تحزن إن الله معنا}

يالمحاسن التقدير الإلهي :mrgreen: :ism: عم قول لحالي ليش حارتنا منورة
و إن شاء الله دوما بتبقى منورة :ism:
صورة العضو الشخصية
Mu_Nizar
مشرف منتدى الخوارزميات العام
مشرف منتدى الخوارزميات العام
 
مشاركات: 2465
اشترك في: الاثنين مارس 10, 2008 2:49 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: هندسة برمجيات

Re: بعض التوابع المفيدة في الباسكال......

مشاركة غير مقروءةبواسطة N.Sham » الأحد يوليو 27, 2008 1:53 pm

شكلي رح اقلبو نقاش فيزيا :mrgreen:

الأوتار الفائقة ع فكرة نظرية كتيييييييييييييييير حلوة صح اول مرة سمعت عنها كنت هيك :eek:


بس بعدين رجعت قريت ودورت طلعت شغلة ظريفة فإذا ممكن تقلي اسم المؤلف والدار اللي نشر هالكتاب :imb:
على قدر النية يكون العون من الله
صورة العضو الشخصية
N.Sham
عضو نشيط جدا
عضو نشيط جدا
 
مشاركات: 3642
اشترك في: الاثنين يناير 28, 2008 6:00 pm
الجتس: أنثى
الشهادة الثانوية: إماراتية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: ذكاء صنعي

Re: بعض التوابع المفيدة في الباسكال......

مشاركة غير مقروءةبواسطة Mu_Nizar » الاثنين يوليو 28, 2008 11:28 am

الله .........
N.Sham كتب:شكلي رح اقلبو نقاش فيزيا :mrgreen:

الأوتار الفائقة ع فكرة نظرية كتيييييييييييييييير حلوة صح اول مرة سمعت عنها كنت هيك :eek:


بس بعدين رجعت قريت ودورت طلعت شغلة ظريفة فإذا ممكن تقلي اسم المؤلف والدار اللي نشر هالكتاب :imb:

1- البحث عن اللانهاية ......حل أسرار الكون
تأليف غورون فريزر +إيغيل ليلستول+إنجه سيليفاك
ترجمة: دزمكي الحسني+أدهم السمان+دزأحمد حصري
الدار:دار طلاس للدراسات و الترجمة و النشر

2-الأوتار الفائقة......نظرية كل شيئ؟
إعداد :بول ديفس
+جوليان براون
ترجمة:دزأدهم السمان
الدار:دار طلاس للدراسات و الترجمة و النشر
:cool:
{لا تحزن إن الله معنا}

يالمحاسن التقدير الإلهي :mrgreen: :ism: عم قول لحالي ليش حارتنا منورة
و إن شاء الله دوما بتبقى منورة :ism:
صورة العضو الشخصية
Mu_Nizar
مشرف منتدى الخوارزميات العام
مشرف منتدى الخوارزميات العام
 
مشاركات: 2465
اشترك في: الاثنين مارس 10, 2008 2:49 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: هندسة برمجيات

مشاركة غير مقروءةبواسطة HammooD » السبت أغسطس 02, 2008 7:43 am

هالموضوع متل مرجع متقدم للباسكال.....يسلمو نزار :iok: :iok:
بس متل ما قلتلك طالما إنك طلعت من السنة الأولى فحاول إنك تطلق الباسكال بالتلاتة و تتعلم غيرها... :wink:
A man who won't die for something is not fit to live
صورة العضو الشخصية
HammooD
متميز برمجة عام
متميز برمجة عام
 
مشاركات: 2199
اشترك في: الأربعاء مارس 05, 2008 4:12 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: شبكات و نظم

Re:

مشاركة غير مقروءةبواسطة Mu_Nizar » الأحد أغسطس 03, 2008 9:26 pm

I Does 2 كتب:هالموضوع متل مرجع متقدم للباسكال.....يسلمو نزار :iok: :iok:
بس متل ما قلتلك طالما إنك طلعت من السنة الأولى فحاول إنك تطلق الباسكال بالتلاتة و تتعلم غيرها... :wink:

شكرا........
أكيد.....................
بس المتل بيقبلك :" يلي مالو قديم مالو جديد" :wink2:
{لا تحزن إن الله معنا}

يالمحاسن التقدير الإلهي :mrgreen: :ism: عم قول لحالي ليش حارتنا منورة
و إن شاء الله دوما بتبقى منورة :ism:
صورة العضو الشخصية
Mu_Nizar
مشرف منتدى الخوارزميات العام
مشرف منتدى الخوارزميات العام
 
مشاركات: 2465
اشترك في: الاثنين مارس 10, 2008 2:49 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: هندسة برمجيات

Re: بعض التوابع المفيدة في الباسكال......

مشاركة غير مقروءةبواسطة asecrety » الاثنين نوفمبر 01, 2010 12:06 am

أولا ... up!
لأن الموضوع قيم جدا و تشكر عليه أستاذنا الكريم
ثانيا
بالنسبة للمصفوفة رباعية الحد
هلأ المصفوفة الأحادية خط و الثنائية مربع و الثلاثية مكعبة
طيب الرباعية ما فينا ناخدها مكعبة بس كل مكعب "عنصر" هو عبارة عن مصفوفة خطية :???:
بسم الله
لا إله إلا الله .... محمد رسول الله
صورة العضو الشخصية
asecrety
عضو فعال
عضو فعال
 
مشاركات: 836
اشترك في: الاثنين أغسطس 30, 2010 1:34 pm
الجتس: ذكر
الشهادة الثانوية: -
الجامعة: -
الكلية: -
المرحلة الدراسية: غير ذلك

Re: بعض التوابع المفيدة في الباسكال......

مشاركة غير مقروءةبواسطة asecrety » الثلاثاء نوفمبر 30, 2010 7:58 pm

UP !!!

مفيد جدا للأولى :iok:
بسم الله
لا إله إلا الله .... محمد رسول الله
صورة العضو الشخصية
asecrety
عضو فعال
عضو فعال
 
مشاركات: 836
اشترك في: الاثنين أغسطس 30, 2010 1:34 pm
الجتس: ذكر
الشهادة الثانوية: -
الجامعة: -
الكلية: -
المرحلة الدراسية: غير ذلك

Re: بعض التوابع المفيدة في الباسكال......

مشاركة غير مقروءةبواسطة Mu_Nizar » الثلاثاء نوفمبر 30, 2010 8:30 pm

asecrety كتب:هلأ المصفوفة الأحادية خط و الثنائية مربع و الثلاثية مكعبة
طيب الرباعية ما فينا ناخدها مكعبة بس كل مكعب "عنصر" هو عبارة عن مصفوفة خطية :???:

هلأ إذا عم تتخيل كيف بتتجسد هل المصفوفة فما لح تزبط لأنو أكتر شي الله خلقنا منعرفه هو 3D ..
أما كتجريد و بنية معطيات ...برأيي كلامك فيه وجهة نظر ... فمثلا لما كنا نعمل Linked List و كل عنصر منها هو Linked list كنا نعتبرها بتشبه المصفووفة ثنائية البعد ...

و بالسي بلس على ما اذكر أنو أقصى حد هو أنك تعمل مصفوفة بعدها 9 , بس مالي مجرب و مالي متأكد من هل الحكي ..
موفق :)
{لا تحزن إن الله معنا}

يالمحاسن التقدير الإلهي :mrgreen: :ism: عم قول لحالي ليش حارتنا منورة
و إن شاء الله دوما بتبقى منورة :ism:
صورة العضو الشخصية
Mu_Nizar
مشرف منتدى الخوارزميات العام
مشرف منتدى الخوارزميات العام
 
مشاركات: 2465
اشترك في: الاثنين مارس 10, 2008 2:49 pm
الجتس: ذكر
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة
الاختصاص: هندسة برمجيات

Re: بعض التوابع المفيدة في الباسكال......

مشاركة غير مقروءةبواسطة asmaaaaa » السبت ديسمبر 07, 2013 1:58 pm

asmaaaaa
عضو جديد
عضو جديد
 
مشاركات: 54
اشترك في: السبت ديسمبر 07, 2013 10:48 am
الجتس: أنثى
الشهادة الثانوية: سورية
الجامعة: جامعة دمشق
الكلية: الهندسة المعلوماتية
المرحلة الدراسية: السنة الخامسة


العودة إلى دروس في البرمجة

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

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