Deprecated: Assigning the return value of new by reference is deprecated in /www/wwwroot/shabab.ps/public_html/vb/showthread.php on line 639

Deprecated: Assigning the return value of new by reference is deprecated in /www/wwwroot/shabab.ps/public_html/vb/showthread.php on line 1041

Deprecated: Assigning the return value of new by reference is deprecated in /www/wwwroot/shabab.ps/public_html/vb/showthread.php on line 1046

Deprecated: Assigning the return value of new by reference is deprecated in /www/wwwroot/shabab.ps/public_html/vb/showthread.php on line 1518

Deprecated: Assigning the return value of new by reference is deprecated in /www/wwwroot/shabab.ps/public_html/vb/showthread.php on line 1523
دروس لغة الباسكال Pascal ... - منتديات شباب فلسطين
نحن مع غزة
قديم 11-29-2005, 06:45 AM   #1
محمود
..{ مديــــــر عــــام }..
 
الصورة الرمزية محمود
عيد فطر سعيد ,,

قوة السمعة: 50 محمود has a reputation beyond reputeمحمود has a reputation beyond reputeمحمود has a reputation beyond reputeمحمود has a reputation beyond reputeمحمود has a reputation beyond reputeمحمود has a reputation beyond reputeمحمود has a reputation beyond reputeمحمود has a reputation beyond reputeمحمود has a reputation beyond reputeمحمود has a reputation beyond reputeمحمود has a reputation beyond repute

افتراضي مشاركة: دروس لغة الباسكال Pascal ...

تابع ::

يجب علينا قبل الدخول في البرمجة فهم الطريقة الرياضية للتعامل مع البيانات وطريقة تعامل المصنف مع الدوال الرياضية والأقواس و برنامج الباسكال يتعامل مع العمليات الرياضية حسب القاعدة التالية
والتي تعتمد على الأسبقية بحيث :

أولا : تنفيذ الدالة Not


ثانيا : تنفيذ الدوال التالية

AND
MOD
DIV
/
*
بحيث أن الدالتين Div و Mod دوال رياضية سيتم التعرف عليها لاحقا


ثالثا : تنفيذ العمليات

OR
-
+

رابعا : تنفيذ المعاملات المنطقية
=
<>
<=
>=
<
>

عندما يكون هناك دالتين من نفس المستوى ننفذ الدالة بدءا من اليسار إلى اليمين
لتتضح الرؤيا حول إستخدام قاعدة الأولويات نرى الأمثلة التالية :

1-Write a PASCAL program to find the roots of a quadratic equation (assume that b2 - 4ac >= 0)
يريد في هذا المثال إيجاد جذور لمتتابعة ثنائية
الحل


كود:
Program Root(input,output); 

Var 

A,b,c :integer; 

X1,x2 : real ;
الناتج عرفناه على أنه عدد حقيقي لإنه سيكون ناتج من عمليات منها عمليات قسمة
وفي حالة وجود عمليات قسمة فناتجها دائما عدد حقيقي وليس صحيح


كود:
Begin 
Writeln ('Enter the Numbers A , B ,C'); 

Readln (a,b,c); 

X1:= (-b+sqrt(b*b -4*a*c))/(2*a); 

X2:= (-b-sqrt(b*b -4*a*c))/(2*a); 

Write ('The Nunmber X1 =',x1 ,'And Number X2 =',x2); 
End.
2- Find (7 Div 2/3)
في هذا المثال نلاحظ أن الدالتين Div و / يأتيان في مرتبة واحده في أولوية التنفيذ

ولكن لإن Div أتت قبل من جهة اليسار فنقوم بتنفيذها أولا لذلك

7 div 2/3 =

3 / 3 =

1.0

( لاحظ أن العدد جوابه 1.0 وليس 1 لإنه ناتج من قسمة فلذلك يعد عدد حقيقي Real ولا يعتبر Integer)
  اقتباس المشاركة
إضافة رد


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
دروس فوتوشوب صوت+صورة المجموعه الاول احمد سعد! ريــشــة فنــآن 6 01-23-2006 11:41 AM
تعلم اساسيات Pascal بسهولة A s h i q o h a مُتعلقات التقنية 2 12-14-2005 06:04 PM
دروس في الفوتشوب والتعديل والتحمي Abu Shadi ريــشــة فنــآن 9 11-20-2005 11:52 AM
دروس امنية للمجاهدين فى الأعتقال والتحقيق ابومهدي الــوآحــة الـعــآمّــة 4 10-27-2005 12:07 PM
دروس امنية للمجاهدين فى الأعتقال والتحقيق ابومهدي الــوآحــة الـعــآمّــة 2 10-17-2005 12:12 PM


الساعة الآن 06:06 AM.