برنامج قاموس انجليزي عربي كفكرة

اذهب الى الأسفل

برنامج قاموس انجليزي عربي كفكرة

مُساهمة  ali1 في 13/9/2017, 12:35 am

برنامج قاموس  انجليزي عربي كفكرة
كان من الاعمال التي قمت بها في الماضي


الكود:

 10 CLS
 20 REM *************
 30 _ARAB: PRINT " قاموس"
 40 PRINT " 1 انجليزي عربي"
 50 PRINT "2 عربي انجليزي"
 60 _ENGL: INPUT "1.أ و .2";L
 70 CLS
 80 IF L = 2 THEN 90 ELSE 100
 90 _ARAB: INPUT A$ : GOTO 130
 100 INPUT A$
 110 CLS
 120 PRINT
 130 FOR K=1 TO 3
 140 READ B$,C$
 150 IF L=2 THEN 200 ELSE 160
 160 IF A$=B$ THEN PRINT B$ : _ARAB: PRINT C$
 170 NEXT K
 180 DATA book,كتاب ,new,جديد ,door,باب
 190 END
 200 IF A$ = C$ THEN _ENGL: PRINT B$: _ARAB: PRINT C$
 210 NEXT K
 220 END

MSX2 BASIC

_________________

ali1
مبرمج مجتهد

عدد المساهمات : 861
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى