Rabu, 05 Oktober 2011

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