|
| الصفحة التعليمية
1- اكتب برنامجاً يدخل عددين ويطبع العدد الأصغر منهما:
10- INPUT A,B
11 IF A < B THEN PRINT A ELSE RPINT B
12 END
2- اكتب برنامجاً يدخل اسم الطالب ودرجة الحاسب الآلي ويطبع الاسم ونتيجة الطالب «ناجح» ام «مكمل» مع العلم بأن الطالب يكون ناجحاً اذا كان ذا درجة اكبر من او تساوي 50 درجة.
10 - INPUT N$ , C
«مكمل»، ELSE PRINT N$«ناجح»،20 20 - IF C* = 50 THEN PRINT N$
30 - END
3- اكتب برنامجاً يستخرج القيمة الكبرى لعشرين عددا مقروءا باستخدام الأمر . READ DATA
10 READ A
20 MAX = A
30 FOR I = 2 TO 20
40 READ A
50 IF A * MAX THEN MAX = A
60 NEXT I
MAX: « العدد الأكبر = » 70 PRINT
80 DATA 20,46,36,45,8,45,12,8,14,41,51,47,58,2,23,24,45,51,24,26,28,45
90 END
4- اكتب برنامجاً يدخل عدد ما بين 11،13 ويطبع الالوان بالترتيب «احمر، اصفر، ازرق» باستخدام الأمر ON GOTO .
10- IN PUT N
20- ON N - 10 GOTO 40,60,80
30- GOTO 10
أحمر40 -PRINT
50 GOTO 90
اصفر 60 - PRINT
70 GOTO 90
ازرق 80 - PRINT
90 END
5- اكتب برنامجاً لطباعة جدول العدد ولوغارتم العدد من 1 الى 10
لوغارتم العدد« العدد » 5 PRINT
10 FOR I = 1 TO 10
20 PRINT I, LOG )I(
30 NEXT I
40 END
6- اكتب برنامجاً لطباعة جدول لجيب وجيب تمام وظل الزاويا من 0 الى 90 لكل عشر زوايا
«ظل الزاوية»، «جيب تمام الزاوية»، «جيب الزاوية»، «الزاوية» 10 PRINT
20 FOR X = 0 TO 90 STEP 10
30 B = X* 3,14/180
40 PRINT X, SIN )B(, COS )B(, TAN )B(
50 NEXT X
60 END
7- اكتب برنامجاً لطباعة عشرين عدداً عشوائياً مختلفاً
10 RANDUMIZE
20 FOR A = 1 TO 20
30 PRINT RND
40 NEXT A
50 END
8- اكتب برنامجاً يدخل اسمك ويطبع الاسم معكوساً.
10 INPUT N$
20 NUM = LEN )N$(
30 FOR I = NUM TO 1 STEP - 1
40 PRINT MID$ )N$,I,1(;
50 NEXT I
60 END
9- اكتب برنامجاً يعرف دالة اسمها FNG = مربع العدد + الجذر التربيعي للعدد حيث يطلب من المستخدم ادخال العدد ويطبع قيمة الدالة بعد حسابها.
10 DEF FIG )X( = X^2 + SQR )X(
20 INPUT X
30 PRINT FNG )X(
40 END
10- اكتب برنامجاً يقرأ اسماء واعمار عشرة اشخاص في مصفوفتين ثم اجعل البرنامج يقوم بالآتي:
- طباعة البيانات.
- طباعة اسماء الاشخاص الذين اعمارهم أصغر من 20 سنة.
10 DIM N$ )9(, A)9(
19 FOR I = 0 TO 9
21 ENXT I
22 FOR I = 0 TO 9
23 PRINT N$ )I(, A )I(
24 NEXT I
25 FOR I = 0 TO 9
26 IF A )I( < 20 THEN PRINT N$ )I(
27 NEXT I
10- اكتب برنامجاً يدخل اسماء عشر مدن وعدد سكان هذه المدن وباستخدام البرامج الفرعية حيث يقوم بالآتي:
* برنامج فرعي لطباعة البيانات.
* برنامج فرعي لطباعة اسماء المدن التي عدد سكانها اكثر من مليون شخص
* برنامج فرعي لطباعة اسم المدينة وعدد سكان المدينة الأكبر عدد سكان.
* برنامج فرعي لطباعة مجموع السكان في المدن.
10 DIM N C$ )9(, NUM )9(
20 FOR I = 0 TO 9
30 INPUT NC$ )I(, NUM )I(
40 NEXT I
50 GOSUB 100
60 GOSUB 200
70 GOSUB 300
80 GOSUB 400
90 END
100 FOR I = 0 TO9
110 PRINT NC$ )I(, NUM )I(
120 NEXT I
130 RETURN
200 FOR I = 0 TO 9
210 IF NUM )I( * 10000000 THEN PRINT NC$ )I(
220 NEXT I
230 RETURN
300 MAX = NUM )0(: L=0
310 FOR I = 1 TO 9
320 IF NUM )I( * MAX THEN MAX = NUM )I(: L=I
330 NEXT I
M: «وعدد سكانها هو»، NC$ )L(: «اسم المدينة هو» 340 PRINT
350 RETURN
400 SUM =0
410 FOR I = O TO 0
420 SUM = SUM + NUM )I(
430 NEXT I
SUM: «مجموع عدد السكان في المدن =» 440 PRINT
450 RETURN
11- اكتب مخرجات البرامج الآتية:
A(
10 A=1
20 B = 1
30 C = A +B
40 PRINT A,B,C
50 A=B
60 B=C
70 IF C < 5 THEN GOTO 30
80 END
B(
10 A=0
20 A=A+2
30 IF A *6 THEN END ELSE PRINT A
40 GOTO 20
C(
10 READ N$
20 PRINT LEN )N$(
30 PRINT LEFT$ )N$,2(, RIGHT$ )N$,2(
40 PRINT MID$ )N$,3,4(
50 DATA زCOMPUTERس
60 END
13- اكتب برنامج يقرأ كلمة «THIS IS YOUR COMPUTER » ثم باستخدام الدوال الحرفية ينفذ ما يلي:
* استخلاص «THIS» من الكلمة وطباعتها.
* استخلاص «COMPUTER» من الكلمة وطباعتها.
* استخلاص «IS YOUR» من الكلمة وطباعتها.
10 READ X$
20 DATA زTHIS IS YOUR COMPUTERس
30 PRINT LEFT$ )X$,8(
40 PRINT RIGHT$ )X$,8(
50 PRINT MID$ )X$,5,7(
60 END
14- اكتب الشكل العام لكتابة الأوامر الآتية:
DIM, GOSUB, RETURN، تعريف دالة معرفة، IF THEN, ON GOTO.
جملة من جمل البيسيك THEN )شرط، مقارنة(IF رقم سطر
رقم سطر ن،.. ، رقم سطر 2 ، رقم سطر 1،GOTO تعبير عددي ON رقم سطر
طريقة حساب الدالة المعرفة = «المعاملات» حرف اسم الدالة DEF FN رقم سطر
.......، «الدليل» اسم المتغير، «الدليل»، اسم المتغير DIM رقم سطر
رقم سطر بداية البرنامج الفرعي GOSUB رقم سطر
RETURN رقم سطر
15- اكتب وظيفة الدوال الآتية:
SQR )X(, ABS )X(, LOG )X(, SIN )X(, TAN )X(, RND LEN )A$(, ASC )A$(, CHR$ )M( MID$ )A$, N,M(, RIGHT$ )A$,N(
|
|
|
|
|
