|
||||||
| أرشيف المنتدى هنا نقل الموضوعات المكررة والروابط التى لا تعمل |
|
|
أدوات الموضوع | ابحث في الموضوع | انواع عرض الموضوع |
|
|
|
#1
10-04-2011, 12:39 PM
|
||||
|
||||
اقتباس:
فالاجابة الصحيحة هى 12345.76 حضرتك قم بعد الارقام ستجدهم سبعة أرقام بينما المتغير integer متغير عددى صحيح لا يخزن إلا الاعداد الصحيحة فقط فسيقوم بتخزين الرقم 12345
__________________
ـــــــــــــــــــــــــــــــــــــــــــــــ لا إله إلا أنت سبحانك إنى كنت من الظالمين
|
|
#2
10-04-2011, 03:59 PM
|
|||
|
|||
|
اقتباس:
حيث مع المتغير single سوف يتم التقريب لتصبح 12345.77 ومع المتغير integer سوف التقريب لتصبح 12346 ولكم جزيل الشكر |
|
#3
10-04-2011, 04:36 PM
|
||||
|
||||
|
اقتباس:
__________________
ـــــــــــــــــــــــــــــــــــــــــــــــ لا إله إلا أنت سبحانك إنى كنت من الظالمين
|
|
#4
10-04-2011, 08:14 PM
|
|||
|
|||
|
اقتباس:
ولكن عند وضع الرقم في 12345.768 المتغيرين singel و integer سوف يقوم البرنامج بالتقريب وهذا الكود يوضح ذلك Dim a As Integer, b As Single a = 12345.768 b = 12345.768 (MsgBox (a (MsgBox(b ولكم جزيل الشكر |
|
#5
18-04-2011, 08:34 AM
|
||||
|
||||
|
اقتباس:
تمااااااااااااااااااااااااام الاختيارات بها خطأ حيث سيتم التقريب عند فقد أرقام عاطف مهدى حسان |
|
#6
18-04-2011, 09:06 PM
|
|||
|
|||
|
اقتباس:
|
|
#7
10-04-2011, 12:30 PM
|
|||
|
|||
|
والسؤال الاهم هو
( ب ) أقرأ التعليمات الاتيه ثم أجب عن الاسئله التاليه 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 2- قيمة المتغير Second = ......... 3- قيمة المتغير Total = ......... 4- قيمة التعبير Third <= 50 هى ........ ممممششششكوووررر لك كثيرا وارجوا ان تعمل موضوع فيه الاسأله والشرح انا على نفسى مش فاهم الا منك |
|
#8
10-04-2011, 12:49 PM
|
||||
|
||||
|
اقتباس:
بينما إذا كانت قيمة الشرط false غير صحيحة يتم تنفيذ الاوامر التى تلى كلمة else . نرجع نقيم الشرط Third <=50 طبعاً قيمة third هى Dim Third as integer = First + Second بالتعويص فى المعادلة عن قيمة first = 40 وعن قيمة second = 20 نجد ان قيمة third = 60 يعنى الشرط Third <=50 قيمته غير صحيحة ) false (فيتم تنفيذ الاوامر التى تلى كلمة else وبالتالى انظر الى قيم المتغيرات المطلوبة بعد كلمة else 1- قيمة المتغير First =30 2- قيمة المتغير Second = 50 3- قيمة المتغير Total =140 Total= First + Second+ Third 4- قيمة التعبير Third <= 50 هىfalse كما ذكرنا سابقاً
بالتعويض عن قيمة first = 30 وقيمة second = 50 وقيمة third = 60
__________________
ـــــــــــــــــــــــــــــــــــــــــــــــ لا إله إلا أنت سبحانك إنى كنت من الظالمين
|
|
#9
10-04-2011, 09:49 PM
|
|||
|
|||
|
السلام عليكم
النهايه الصغري في الحاسب من كام |
|
#10
11-04-2011, 12:52 AM
|
|||
|
|||
|
اقتباس:
عشرة درجات
__________________
|
|
#11
10-04-2011, 10:18 PM
|
|||
|
|||
|
برجاء سرعة إجابة هذا الشؤال:
السؤال السابع الفصل الثالث كتاب الوزارة صفحة 125 صف المخرجات الناتجة من تنفيذ مجموعة الاوامر الآتية For I= 0 To 7 If ( i mod 2 = 0 ) then MsgBox( i + 1 ) Elself ( i Mod 3+ 0) Then MsgBox( i *i) Elself (i Mod 5= 0) then msgBox(2 *i - 1 ) Else MsgBox(i) Evd If NEXT |
|
#12
11-04-2011, 12:17 AM
|
||||
|
||||
|
اقتباس:
i = 0.1.2.3.4.5.6.7 بعد كده هنقول هو امتى باقى قسمة i مع 2 = صفر في حالة i = 2 . 4 . 6 بعد كده نقول عند i =2 تظهر رسالة 3 وعند i = 4 تظهر رسالة 5 و عند i = 6 تظهر رسالة 7 ------------------------ i+1 بعد كده هنقول امتى باقى قسمة i مع 3 = صفر في حالة i = 3 . 6 بعد كده نقول عند i = 3 تظهر رسالة محتواها 9 وعند i = 6 تظهر رسالة محتواها 36 ------------------ i*i بعد كده نقول امتى باقى قسمة i على 5 = صفر في حالة i = 5 بعد كده نقول عند i = 5 تظهر رسالة محتواها 9 -----------------1-2*5 آخر تعديل بواسطة راغب المصري ، 11-04-2011 الساعة 12:36 AM |
|
#13
25-04-2011, 11:29 AM
|
|||
|
|||
|
أرجو الإجابة عن السؤال التالى فورا
Dim Computer, English ,Total ,Aag As Integer computer=40 English=20 If Comuter >30 Then Total= Computer+ English Avg= Total/2 Else Computer=30 English=26 Total= Computer+ English Avg= Total/2 End If ضع علامة صح او خطأ 1- قيمة المتغير Computer تساوى 40 ( )
2- قيمة المتغير English تساوى 26 ( ) 3- ناتج التعبيرComuter >30 يكون True ( ) 4-قيمة المتغير Total تساوى 56 ( ) 5-قيمة المتغير Avg تساوى 28 ( ) |
|
#14
28-04-2011, 07:35 PM
|
||||
|
||||
|
[quote=نهال18;3355204]
Dim Computer, English ,Total ,Aag As Integer computer=40 English=20 If Comuter >30 Then Total= Computer+ English Avg= Total/2 Else Computer=30 English=26 Total= Computer+ English Avg= Total/2 End If ضع علامة صح او خطأ 1- قيمة المتغير Computer تساوى 40 ( صــح ) وذلك لعدم وجود قيمة للمتغير computer بعد كلمة then فنأخذ القيمة الاصلية له وهى 40 . 2- قيمة المتغير English تساوى 26 ( خـطـأ) 3- ناتج التعبيرComuter >30 يكون True ( صــح) 4-قيمة المتغير Total تساوى 56 ( خطأ) قيمة total = 40 + 20 = 60 5-قيمة المتغير Avg تساوى 28 ( خطأ) قيمة Avg = 60 / 2 = 30 فى قاعدة IF إذا كانت قيمة الشرط True يتم تنفيذ الاوامر التى تلى كلمة Then وإذا كانت قيمة الشرط False يتم تنفيذ الاوامر التى تلى كلمة Else ., بالرجوع للسؤال نجد أن قيمة الشرط true وبالتالى يتم تنفيذ الاوامر التى تلى كلمة Then .
__________________
ـــــــــــــــــــــــــــــــــــــــــــــــ لا إله إلا أنت سبحانك إنى كنت من الظالمين
|
|
#15
30-04-2011, 03:12 PM
|
|||
|
|||
|
مع احترامى لحضرتك الاجابة مش كده
اقتباس:
اقتباس:
حيث ان القيم يتم ايجادها من اعلى لاسفل وبالتالى يجب ان تأخذ تختبر القيم كل مرة من اعلى الى اسفل وعند حدوث اول قيمة true يجب ان تنفذ الاوامر التى تليها مع اهمال باقى الاوامر وبالتالى حل المسألة الصحيح هو: قيم i التى سيتم التعامل معها هى : 0,1,2,3,4,5,6,7 المخرجات الناتجة : 1,2,3,9,5,7,7 |
| العلامات المرجعية |
«
الموضوع السابق
|
الموضوع التالي
»
العرض المتطور
|
|
جميع الأوقات بتوقيت GMT +2. الساعة الآن 06:05 PM.
