pemograman basic

PROGRAM MENAMPILKAN BILANGAN PRIMA

Program ini memakai bahasa pemograman basiq, program ini saya buat untuk kelengkapan tugas akhir mata kuliah algoritma dan pemograman I..bahasa program basic adalah bahasa pemograman tingkat tinggi seperti halnya bahasa program pascal, dll.

Berikut gambar hasil program dan kode programnya; 

 

CLS

DIM P AS INTEGER

DIM N AS INTEGER

INPUT "MASUKKAN BILANGAN:", P

N = 2

WHILE (N < P) AND (P MOD N <> 0)

        N = N + 1

WEND

IF N = P THEN

   KET$ = "BILANGAN PRIMA"

ELSE

KET$ = "BUKAN BILANGAN PRIMA"

END IF

PRINT "--------------------------------------"

PRINT "KETERANGAN :", P; "ADALAH "; KET$

…….….selamat mencoba………………..