دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  alla في 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

_________________

alla
مبرمج مجتهد

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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