العربية  

books أمثلة قواعدية

If you do not find what you're looking for, you can use more accurate words.

View more

أمثلة قواعدية (Info)


برنامج أهلا بالعالم - النسخة القصيرة

PRINT"Hello, World"

برنامج أهلا بالعالم - النسخة الموسعة

CLS PRINT"Hello, World" END

99 قارورة

LETBOTTLES=99:LETBOTTLES$="99":LETBOTTLE$=" bottles" FORA=1TO99 PRINTBOTTLES$;BOTTLE$;" on the wall, ";BOTTLES$;BOTTLE$;" ." LETBOTTLES=BOTTLES-1 IFBOTTLES>0THENLETBOTTLES$=LTRIM$(STR$(BOTTLES)):LETPRONOUN$="one" IFBOTTLES=0THENLETBOTTLES$="no more":LETPRONOUN$="it" IFBOTTLES<>1THENLETBOTTLE$=" bottles" IFBOTTLES=1THENLETBOTTLE$=" bottle" PRINT"Take ";PRONOUN$;" down and pass it around, ";BOTTLES$;BOTTLE$;" on the wall." PRINT:NEXTA PRINT"No more bottles on the wall, no more bottles ." PRINT"Go to the store and buy some more, 99 bottles on the wall."

Source: wikipedia.org