Dizi İşlemleri Örnek 2

CLS

PRINT "Verilen dizinin azalan olup olmadigini bulan program"

INPUT "Dizinin Boyutu"; m

DIM x(m)

FOR j = 1 TO m

PRINT "x("; j; ")";

INPUT a

x(j) = a

NEXT j

azalan = 1

FOR j = 1 TO m - 1

IF x(j) <= x(j + 1) THEN azalan = 0

NEXT j

IF azalan = 0 THEN

PRINT "Dizi Azalan Degil"

ELSE

PRINT "Dizi Azalan"

END IF