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$
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:
Seperti halnya produk Borland lainnya pada masa tersebut, kode di atas bisa secara langsung dieksekusi melalui lingkungan pengembangan terintegrasi yang terpaket bersama Turbo Basic.
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar