بوابة الثانوية العامة المصرية - انت تسأل وجميع الاساتذة تجيب

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- أرشيف المنتدى (https://www.thanwya.com/vb/forumdisplay.php?f=513)

- - انت تسأل وجميع الاساتذة تجيب (https://www.thanwya.com/vb/showthread.php?t=305990)

اقتباس:

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

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

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

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

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

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

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

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

اقتباس:

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

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

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

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 كما ذكرنا سابقاً

اقتباس:

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

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

اقتباس:

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

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

اقتباس:

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

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

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

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

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

اولا هنقول 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 (المشاركة 3313499)

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

10
عشرة درجات

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

اقتباس:

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

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

جزاك الله خير

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)

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

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

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