Cara Membuat Asending dan Desending Turbo Basic
Selamat Sore Sobat Semua..!
Postingan kali ini adalah Pembahasan Sistem Basic Data..
Membuat Asending Dan Desending....
CLS
PRINT � PROGRAM ASCENDING DAN DISCENDING �
PRINT
PRINT
FOR i = 1 to 10
INPUT � MASUKAN ANGKA : �,a(i)
NEXT i
CLS
PRINT �DATA�
FOR i = 1 TO 10
LOCATE 3+i,2: PRINT a(i)
NEXT i
FOR y= 1 TO 10-1
FOR j= 1 TO 10-1
IF a (j) >a(j+1) THEN
PROSES = a (j)
a(j)= a(j+1)
a(j+1)=PROSES
END IF
NEXT j
NEXT y
LOCATE 1,14:PRINT �ASCENDING�
FOR i=1 TO 10
LOCATE 3+I,17:PRINT a(i)
NEXT i
FOR x=1 TO 10-1
FOR j=1 TO 10-1
IF a(j) < a(j+1) THEN
PROSES = a(j)
a(j)=a(j+1)
a(j+1)=PROSES
END IF
NEXT J
NEXT X
LOCATE 1,28:PRINT�DISCENDING�
FOR i=1 to 10
LOCATE 3+I,30:PRINT a(i)
NEXT i
END
Pembelajaran yang sangat cukup mudah di kerjakan...
Selamat Mencoba....
Selamat Mencoba....