m.3oloum

زائرنا الكريم
يرجى التكرم بتسجيل دخولك إذا كنت عضو لدينا بالفعل
وإذا لم تكن كذلك فنحن نتشرف بانضمامك لأسرتنا
شكرا


إدارة المنتدى


m.3oloum
 
الرئيسيةس .و .جبحـثالتسجيلدخول
دليل الطالب
تصويت
ما رأيك بالتصميم الجديد للمنتدى ؟
ممتاز
71%
 71% [ 17 ]
جيد
25%
 25% [ 6 ]
لابأس به
4%
 4% [ 1 ]
غير مناسب
0%
 0% [ 0 ]
مجموع عدد الأصوات : 24
المواضيع الأكثر شعبية
المحاضرة 1 جبر خطي 2
المحاضرة 2 برمجة وخوارزميات
مرجع جبر A first cours in liner algebra رائع جدا
المحاضرة 2 تحليل 2
المحاضرة 1 تحليل متجهي
المحاضرة 1 برمجة وخوارزميات
المحاضرة 3 برمجة وخوارزميات
تاريخ الرياضيات
المحاضرة 1 برمجة وخوارزميات عملي
المحاضرة 1 تحليل 2
المواضيع الأخيرة
» الطابعات وأنواعها
الثلاثاء أبريل 09, 2013 7:10 pm من طرف hana sh

» وحدات التخزين الثانوية {التنظيم المنطقي للسواقات (الذاكرة الميتة)}
السبت أبريل 06, 2013 7:43 pm من طرف rouba kh

» الشاشات وأنظمة الألوان
السبت أبريل 06, 2013 7:43 pm من طرف rouba kh

» رسالة من الخوارزمي إلى نيوتن !
السبت أبريل 06, 2013 7:42 pm من طرف rouba kh

» تطور الرياضيات عند العرب
السبت أبريل 06, 2013 7:42 pm من طرف rouba kh

» ماذا بعد المليون
السبت أبريل 06, 2013 7:41 pm من طرف rouba kh

» التحليل الرياضي
السبت أبريل 06, 2013 7:41 pm من طرف rouba kh


شاطر | 
 

 التعليمة الشرطية

اذهب الى الأسفل 
كاتب الموضوعرسالة
m3oloum
مدير المنتدى
avatar

ذكر

عدد المساهمات : 76

نقاط : 10764

السٌّمعَة : 2

العمر : 23

تاريخ التسجيل : 16/02/2013

المستوى الدراسي : طالب جامعي

الجامعة : جامعة دمشق

السنة الدراسية : الأولى

مُساهمةموضوع: التعليمة الشرطية   الإثنين فبراير 18, 2013 2:30 am

التعليمة الشرطية :

في هذه التعليمة يجري تنفيذ بعد اختيار شرط ما.
1-التنفيذ بشرط :

وشكلها : إذا (شرط) نفذ

وهنا يتم اختيار الشرط فإن لم يتحقق ينتقل البرنامج إلى التعليمة التالية .

2-التعليمة الشرطية الاخيارية :

وهي الاختيار بين طريقتين للتنفيذ ولكن بشرط .

وشكلها : إذا (شرط) نفذ

تعليمات 1

وإلا مجموعة تعليمات 2




الكود:
if (  ) then
 
begin
.
.
end
else
begin
.
.
end
وهنا إذا تحقق الشرط ينفذ المجموعة الأولى وإلا الثانية .
المسألة 1 (نوطة كويتر)




الكود:
begin
read(mark)
if(mark>=60) then
write("passed")
else
weite("failed")
end
مسألة :2 إدخال عدد وفحصه بإظهار رسالة تبين إذا كان هذا العدد زوجياً أم فردياً.




الكود:
Begin
Readln a
If  (a mod 2= 0 ) then
      Writeln "even"   
Else  writeln "odd"
end
ملاحظة : even زوجي odd فردي mod باقي القسمة (إذا كان ناتج باقي قسمة عدد على اثنين صفر فالعدد زوجي وإلا فهو فردي)

المسألة 3:




الكود:
begin
readln(a,b)
if (a>b) then
write(b)
else
write a
end
مسألة 4: أعد المسألة السابقة ولكن باستخدام write واحدة



الكود:
begin
readln(a,b)
if (a>b) then
min = b
else
min=a
writeln(min)
end
مسألة 5: اكتب برنامج لحساب وطباعة مقلوب عدد



الكود:
begin
read a
if (a<>0) then
write(1/a)
else
weite("error")
end
ملاحظة :



  • else تتبع دائما لل if الأقرب
  • لا يسبق else ولا يلحقها فاصلة

مسألة 6 : اكتب برنامج لقراءة ثلاثة أعداد وطباعة الأكبر




الكود:
Begin
Readln  a , b , c
Max = a
If  (a < b) then
    Max =b 
If ( max < c )  then
    Max =c 
Writeln (max)
end
مسألة 7 : اكتب برنامج لقراءة أربعة أعداد وطباعة الأكبر



الكود:
Begin
Readln  a , b , c , d
Max = a
If  (a < b) then
    Max =b 
If ( max < c )  then
  Max =c 
If ( max < d )  then
  Max =d
Writeln (max)
end

مسألة 8 : برنامج يقوم بقراءة قيمتين لمتحولين صحيحين ,يبدل بين
هاتين القيمتين ثم يقوم بطباعة المتحولين بعد التبديل,باستخدام متحول ثالث
وسيط , مثال: بعد قراءة a=4 , b=2 يجب طباعة المتحولين على النحو
التالي : a=2 , b=4
الكود:
Begin
readln(x,y)
temp=x
x=y
y=temp
write(x,y)
end
مسألة 9: أعد المسألة السابقة ولاكن بدون استخدام وسيط



الكود:
Begin
Readln a , b
a= a  b
b=a-b
a=a-b
Writeln  a ,b
end
end
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
التعليمة الشرطية
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
m.3oloum :: مواد دراسية :: البرمجة-
انتقل الى:  
 
إدارة منتديات سوريا الرياضيات ترحب بكم يمكنكم التواصل معنا من خلال صفحتنا على الفيس بوك \ syriamath أو على صفحتنا على تويتر @ syriamath كما يمكنكم التواصل معنا من خلال بريدنا الإلكتروني support@syriamath.com

FacebookTwitter
أختر لغة المنتدى من هنا