Dalil Sisa dengan Q Basic

yang lagi belajar numerik semuanya pasti dah pada tau apa itu Dalil Sisa, nah ney ada Coding Programnya dalam bahasa Quick Basic, silahkan coba juga dengan menggunakan bahasa turbo pascal, mudah-mudahan bermanfaat . . .

CLS
'DALIL SISA
ULANG:
CLS
PRINT "DERAJAT TERTINGGI :";:INPUT N
PRINT "NILAI X : ";:INPUT Z
FOR I = 0 TO N
PRINT "MASUKKAN A";: INPUT A(I)
NEXT
B(N) = A(N)
FOR I = N-1 TO 0 STEP -1
B(I) = A(I)+B(I+1)*Z
NEXT
S = B(0)
PRINT "SISA =";S
INPUT D
IF D = 1 GOTO ULANG
END

Semoga bermanfaat!