اهلا وسهلا بك فى بوابة الثانوية العامة ... سجل الان

العودة   بوابة الثانوية العامة المصرية > المرحلة الاعدادية > الفصل الدراسى الثانى > الصف الثالث الاعدادى > الكمبيوتر وتكنولوجيا المعلومات 3 ع ترم 2 > حاسب آلى 3ع ترم2

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 30-05-2010, 04:12 AM
tarek elhamy tarek elhamy غير متواجد حالياً
مدرس حاسب الى
 
تاريخ التسجيل: Jul 2008
المشاركات: 2,572
معدل تقييم المستوى: 19
tarek elhamy is on a distinguished road
افتراضي

Dim First as integer =20 , Second as integer=40
Dim Third as integer = First + Second
Dim Total as integer
If Third <=50 Then
Total= First + Second+ Third
Else
First=30
Second=50
Total= First + Second+ Third
End If

1-قيمه المتغير First = 30
2- قيمه المتغير Second = 50
3- قيمه المتغير Total = 140
Third =20+40
وهو الذى بنى عليه التعبير الشرطى
30+50+60=140
ولم يحدث تغيير لقيمهThird

4- اذا كان التعبير Third <=50 هى False
أتمنى ان تكون واضحه وشكرا
__________________
لاإله إلا أنت سُبحــانك أني كُنت من الظالمين
سـبـّحـَان الـلـهّ وبـِحـَمـّده*عـَدَدّ خـَلـّقـِه

وَزِنـَةِ عـَرّشـِه *وَرِضـاَ نـَفـّسِه*وَمـِدَآدّ كَـَلـِمـَآتـِه





رد مع اقتباس
  #2  
قديم 30-05-2010, 01:05 PM
الصورة الرمزية محمد عبد الحكم
محمد عبد الحكم محمد عبد الحكم غير متواجد حالياً
عضو لامع
 
تاريخ التسجيل: Oct 2009
المشاركات: 2,464
معدل تقييم المستوى: 18
محمد عبد الحكم is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة tarek elhamy مشاهدة المشاركة
Dim First as integer =20 , Second as integer=40


Dim Third as integer = First + Second


Dim Total as integer


If Third <=50 Then


Total= First + Second+ Third


Else


First=30


Second=50


Total= First + Second+ Third


End If

1-قيمه المتغير First = 30
2- قيمه المتغير Second = 50
3- قيمه المتغير Total = 140
Third =20+40
وهو الذى بنى عليه التعبير الشرطى
30+50+60=140
ولم يحدث تغيير لقيمهThird

4- اذا كان التعبير Third <=50 هى False

أتمنى ان تكون واضحه وشكرا
ا/ طارق اجابة خاطئة
30+50+80=180
3- قيمه المتغير Total = 180
رد مع اقتباس
  #3  
قديم 30-05-2010, 01:23 PM
tarek elhamy tarek elhamy غير متواجد حالياً
مدرس حاسب الى
 
تاريخ التسجيل: Jul 2008
المشاركات: 2,572
معدل تقييم المستوى: 19
tarek elhamy is on a distinguished road
افتراضي

اقتباس:
المشاركة الأصلية كتبت بواسطة محمد عبد الحكم مشاهدة المشاركة
ا/ طارق اجابة خاطئة
30+50+80=180

3- قيمه المتغير Total = 180

عزيزى أ/ محمد عبد الحكم
الاجابه صحيحه
واذا لم تكون مقتنع جرب هذا البرنامج ورد على
وشكرا
Dim First AsInteger = 20, Second AsInteger = 40

Dim Third AsInteger = First + Second
Dim Total AsInteger
If Third <= 50 Then
Total = First + Second + Third
Else
First = 30
Second = 50
Total = First + Second + Third
EndIf
MsgBox(Total)
__________________
لاإله إلا أنت سُبحــانك أني كُنت من الظالمين
سـبـّحـَان الـلـهّ وبـِحـَمـّده*عـَدَدّ خـَلـّقـِه

وَزِنـَةِ عـَرّشـِه *وَرِضـاَ نـَفـّسِه*وَمـِدَآدّ كَـَلـِمـَآتـِه





رد مع اقتباس
إضافة رد

العلامات المرجعية


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

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

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


جميع الأوقات بتوقيت GMT +2. الساعة الآن 07:45 AM.