تمارين بلغة بيسك من الشيت

15 let f=1,y=x
20 for i=1 to n
30 f=f*i
40 y=y+x^i/f
50  next i 
60 print y 
70 end
  اذا تتبعنا تنفيذ البرنامج سنجد ان 
تحسب مضروب  
وان البسط x^i
الحل
شيت 3 رقم 2 البرنامج وخريطة التدفق
فكرة البرنامج جمع متسلسه بحيث يكون الاس والمقام يساوى قيمة العداد من 3 الى
 n 
علامة السالب والموجب
تحتاج الى  ضرب المعادله فى -1 مرفوعه الى الاس 
j
وتزيد قيمته بمقدار 1 فاذا كان قيمته سالبه ينتج رقم سالب واذا كنت موجبه يكون الناتج موجب

15 let y=x,j=1
20 for i=3 to n step2
30 y=y+(x^i/i)*(-1^j)
35 j=j+1
40 next i
50  print y
60 end

شيت 3 رقم 3

15 let y=x^2,j=1
20 for i=4 to n step2
30 y=y+(x^i/(i-1))*(-1^j)
35 j=j+1
40 next i
50  print y
60 end
نفس الفكرة السابقه وضعنا القيمة الاوالى من المتسلسله فى 
 y
ثم نبدا العد من 4 الى 
n
والمقام يمثل العداد -1


3- المتسلسله لحساب قيمة y
y=1+2+4+8+16


10 input n
20 y=o
30 i=1
40 for k=1 to n step k+k
50 y=y+k
70 next k
يلاحظ ان مقدار الزياده k+k تعمل على توليد قيم المتسلسه 
التمرين رقم 5 فى شيت 3 يحل بنفس حل المتسلسله السابقه حيث ان اول خانه من لوح الشطرنج = 1
الثانيه =2
الثالثه=4
الرابعه=8
كما ورد فى التمرين من مضاعفة عدد حبات القمح فى كل خانه عن الخانه السابقه لها. 
4- اذا اشترى العميل منتجات احدى الشركات بقيمة 1000 جنيه او اكثر ،فانها تقدم له خصما قيمته 10% اما اذا كانت قيمة المشتريات اقل من ذلك لايحصل على اى خصم.

الحل
input x
if x>=1000 then
sale=1000*10/100
print "sale=",sale
else
print "no sale"
end if
end

شيت 4 تمرين 3




ص14 -تمرين 4
نحتاج عداد لعد 20 متسابق وداله لتوليد ارقام عشوائيه من 1 الى 5000

for i=1 to 20
print int(RND(1)*5000)+1
next i
ص 14  تمرين 5 نفس فكرة التمرين الاول فى هذه الصفحة ولكن البسط يكون 1بدلا من x^i

ص22- تمرين b
المخرجات كالتالى
15
13
11
9
7
5
3
1
بما ان i حاليا تساوى 1فان جملة print الاخيرة 
1+1^2+1^3=3
اى تطبع 3 فقط وذلك لان العداد انتهى عند قيمة i=1

تخيل نفسك احد اعضاء لجنه الكنترول في كليه التربيه النوعيه وطلب منك تصميم برنامج بلغه البيزك لادخال درجات عدد الطلاب (n)لعددالمواد(m)تم حساب وطباعة مجموع الطالب(t)والنسبه المؤويه(p)بان تكون الطباعه بالشكل الزي تراه مناسب
input m,n
for i=1to n
t=0
for j=1to m
input mark
t=t+mark
next j
p= t*100/m*100
print p,t
next i
 

ليست هناك تعليقات:

إرسال تعليق