Dizi İşlemleri Örnek 1

CLS

PRINT "Verilen dizinin artan olup olmadigini bulan program"

start:

INPUT "Dizinin Boyutu"; m

IF m = 0 THEN GOTO start

IF m = 1 THEN GOTO start

DIM x(m)

FOR i = 1 TO m

PRINT "x("; i; ")";

INPUT a

x(i) = a

NEXT i

artan = 1

FOR i = 1 TO m - 1

IF x(i) > x(i + 1) THEN artan = 0

NEXT i

IF artan = 0 THEN

PRINT "Dizi Artan Degil"

ELSE

PRINT "Dizi Artan"

END IF