Contoh kode
Program berikut merupakan contoh dari dialek BASIC yang mirip
ALGOL
yang didukung oleh Turbo Basic. Tidak seperti BASIC tradisional yang
menggunakan nomor bari dan memiliki keterbatasan dalam hal struktur
kontrol, serta tidak mendukung subrutin dengan dialek seperti ALGOL:
INPUT "Siapa nama anda:", A$
PRINT "Halo "; A$
DO
S$ = ""
INPUT "Berapa banyak bintang yang akan ditampilkan"; S
FOR I = 1 TO S
S$ = S$ + "*"
NEXT I
PRINT S$
DO
INPUT "Anda ingin menampilan lebih banyak tanda bintang"; Q$
LOOP WHILE LEN(Q$) = 0
Q$ = LEFT$ (Q$, 1)
LOOP WHILE (Q$ = "Y") OR (Q$ = "y")
PRINT "Sampai jumpa "; A$
Seperti halnya produk Borland lainnya pada masa tersebut, kode di
atas bisa secara langsung dieksekusi melalui lingkungan pengembangan
terintegrasi yang terpaket bersama Turbo Basic.
Tidak ada komentar:
Posting Komentar