CLS
FOR C=1 TO 5
FOR D= 1 TO C
LOCATE C,1+D
PRINT "*"
NEXT D
NEXT C
Hasilnya adalah :
*
**
***
****
*****
Code Source :
CLS
FOR C=1 TO 5
FOR D= 5 TO C step -1
LOCATE C,1+D
PRINT "*"
NEXT D
NEXT C
Hasilnya adalah :
*****
****
***
**
*
Code Source :
CLS
FOR C=1 to 5
FOR D= 1 TO 6-c
LOCATE C,D
PRINT "*"
NEXT D
NEXT C
Hasilnya adalah :
*****
****
***
**
*
Code Source :
CLS
FOR C=1 to 5
FOR D= 5 TO 6-c step -1
LOCATE C,D
PRINT "*"
delay 0.09
NEXT D
NEXT C
Hasilnya adalah :
*
**
***
****
*****
1 comment:
شركة مكافحة الصراصير بالمدينة المنورة
شركة مكافحة بق الفراش بالمدينة المنورة
شركة كشف تسربات المياه بالمدينة المنورة
شركة تسليك مجاري بالمدينة المنورة
شركة تنظيف مسابح بالمدينة المنورة
شركة تنظيف مساجد بالمدينة المنورة
شركة تنظيف واجهات حجر بالمدينة المنورة
شركة تنظيف واجهات زجاج بالمدينة المنورة
شركة تنظيف بيارات بالمدينة المنورة
شركة تنظيف قصور بالمدينة المنورة
شركة جلي بلاط بالمدينة المنورة
شركة صيانة مسابح بالمدينة المنورة
Post a Comment