انت تسأل وجميع الاساتذة تجيب

[أحـمد قرنى]

المشاركة الأصلية كتبت بواسطة ناروتو الشبح

سؤال ارجو الجابه


1- عند تخزين القيمه (12345.768) فى متغيرين من النوع integer , single ثم استرجاع قيمه كل متغير فان


singleب- قيمه المتغير من النوع تكون( 12345.768 - 12345-12345.76 )

مع الشرح ؟؟؟؟؟؟؟؟؟؟؟؟


ومشكور على الشرح الجميل

المتغير single متغير عددى خاص بتخزين الاعداد الكسرية بدقة 7 خانات ( 7 أرقام )
فالاجابة الصحيحة هى 12345.76 حضرتك قم بعد الارقام ستجدهم سبعة أرقام

بينما المتغير integer متغير عددى صحيح لا يخزن إلا الاعداد الصحيحة فقط
فسيقوم بتخزين الرقم 12345

[أحـمد قرنى]

المشاركة الأصلية كتبت بواسطة ناروتو الشبح

والسؤال الاهم هو

( ب ) أقرأ التعليمات الاتيه ثم أجب عن الاسئله التاليه

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 = .........
2- قيمة المتغير Second = .........
3- قيمة المتغير Total = .........
4- قيمة التعبير Third <= 50 هى ........
ممممششششكوووررر لك كثيرا

وارجوا ان تعمل موضوع فيه الاسأله والشرح
انا على نفسى مش فاهم الا منك

حضرتك فى هذا النوع من الامثلة يجب معرفة ناتج الشرط الذى يلى كلمة if وهو Third <=50 فإذا كانت قيمة الشرط صحيحة ( true ) يتم تنفيذ الاوامر التى تلى كلمة then .
بينما إذا كانت قيمة الشرط 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
بالتعويض عن قيمة first = 30 وقيمة second = 50 وقيمة third = 60

4- قيمة التعبير Third <= 50 هىfalse كما ذكرنا سابقاً

[ابو محمد 2]

المشاركة الأصلية كتبت بواسطة أحـمد قرنى

المتغير single متغير عددى خاص بتخزين الاعداد الكسرية بدقة 7 خانات ( 7 أرقام )
فالاجابة الصحيحة هى 12345.76 حضرتك قم بعد الارقام ستجدهم سبعة أرقام

بينما المتغير integer متغير عددى صحيح لا يخزن إلا الاعداد الصحيحة فقط
فسيقوم بتخزين الرقم 12345

الاختيارات بها خطأ
حيث مع المتغير single سوف يتم التقريب لتصبح 12345.77
ومع المتغير integer سوف التقريب لتصبح 12346
ولكم جزيل الشكر

[أحـمد قرنى]

المشاركة الأصلية كتبت بواسطة ابو محمد 2

الاختيارات بها خطأ
حيث مع المتغير single سوف يتم التقريب لتصبح 12345.77
ومع المتغير integer سوف التقريب لتصبح 12346
ولكم جزيل الشكر

الاختيارات صحيحة كما أتت بالامتحان ( امتحان الدقهلية 2010 )

[ابو محمد 2]

المشاركة الأصلية كتبت بواسطة أحـمد قرنى

الاختيارات صحيحة كما أتت بالامتحان ( امتحان الدقهلية 2010 )

بداية أنا لأشكك في إجابتك أخي أحمد قرني
ولكن عند وضع الرقم في 12345.768 المتغيرين singel و integer سوف يقوم البرنامج بالتقريب وهذا الكود يوضح ذلك
Dim a As Integer, b As Single
a = 12345.768
b = 12345.768
(MsgBox (a
(MsgBox(b
ولكم جزيل الشكر

[mohamoud mohamed]

السلام عليكم
النهايه الصغري في الحاسب من كام

[redrose37]

برجاء سرعة إجابة هذا الشؤال:
السؤال السابع الفصل الثالث كتاب الوزارة صفحة 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

[راغب المصري]

المشاركة الأصلية كتبت بواسطة redrose37

برجاء سرعة إجابة هذا الشؤال:
السؤال السابع الفصل الثالث كتاب الوزارة صفحة 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

اولا هنقول i بتساوي كام
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

[سيف سالم]

المشاركة الأصلية كتبت بواسطة mohamoud mohamed

السلام عليكم
النهايه الصغري في الحاسب من كام

10
عشرة درجات

[hamada 444x]

ممكن سؤال انا عندى برنامج فيجوال بيسك 6 لكن مش عارف
اتعامل مع الكود
مثلا
موجود فى التول بوكس العادى button
لكن مكتوب عندى common button
وكل ما اكتب الاكواد الخاصة بالكتاب
يظهر لى رسالة خطأ من الكومبيلر

[سيف سالم]

المشاركة الأصلية كتبت بواسطة hamada 444x

ممكن سؤال انا عندى برنامج فيجوال بيسك 6 لكن مش عارف
اتعامل مع الكود
مثلا
موجود فى التول بوكس العادى button
لكن مكتوب عندى common button
وكل ما اكتب الاكواد الخاصة بالكتاب
يظهر لى رسالة خطأ من الكومبيلر

vb6 ليس هو المقرر
ولكن vbnet2005

[mohamoud mohamed]

جزاك الله خير

[خلود فوزى]

Dim N, K, C As Integer
C= 5

For N = 1 To 4
K = K + N
Next
If N > C Then
C = C + 1
End If

بعد تنفيِذ الكود يكون
1. قيمة المتغير C هى (5 - 6 - 8)
2. قيمة المتغير K هى (0 - 10 - 9)

[أحـمد قرنى]

Dim N, K, C As Integer
C= 5

For N = 1 To 4
K = K + N
Next
If N > C Then
C = C + 1
End If

بعد تنفيِذ الكود يكون
1. قيمة المتغير C هى (5 - 6 - 8)
2. قيمة المتغير K هى (0 - 10 - 9)

[edutec169]

عند تنفيذ امر التخصيص

هل يتم احتساب قيم التعبير علي يمين العلامة في التوقيت
1) بعد تنفيذ التخصيص
2) قبل تنفيذ التخصيص
3) في نفس توقيت التخصيص
4) في توقيت آخر


مع توضيح السبب