MEMBUAT PENGINPUTAN NILAI DENGAN SISTEM PERULANGAN

Pertama gunakan CLS untuk menghilangkan tampilan, setelah itu ketik

DIM A, B AS INTEGER enter kemudian ketik lagi

FOR A = 1 TO 5 enter lagi, kemudian ketik lagi

FOR B = 1 TO A enter, kemudian ketik print B; setelah itu ketik NEXT B enter

Lalu ketik lagi PRINT kemudian ketik NEXT A.

Dim a,b, as integer itu adalah blok pernyataanya dan for a = 1 to 5 untuk membuat data 1 sampai lima

Dan  for b = 1 to a satunya itu angka dari satu sampai 5, A nya itu 5.

Kemudian print b; untuk mencetak hasil dari data di B, dan next a untuk melanjutkan data di A. dan inilah hasil input dan outputnya:

MEMBUAT SEGITIGA BINTANG QBASIC

Pertama gunakan CLS terlebih dahulu agar menghilangkan tampilan yang sudah dibuat tadi

Kemudian ketik DATA Y,X,C,L untuk data yang akan dimasukan, kemudian ketik

Y = 12 : X = 2 itu untuk memberikan beberapa banyak nilai yang akan dimasukan di data Y dan X, kemudian ketik FOR C = 1 to 10 itu untuk memberi masukan dari satu sampai sepuluh untuk data C, kemudian ketik FOR L = 1 to C, itu untuk memberikan nilai di data L,

Kemudian ketik LOCATE X,Y, itu gunanya untuk menempatkan tampilan pada posisi baris dan kolom di data X dan Y, lalu kemudian ketik PRINT (*); itu gunanya untuk memberikan tampilan bintang saat dicetak dan dilihat di output nanti, lalu ketik Y= Y + 2, itu untuk menambahkan nilai di data Y sudah dimasukan tadi, kemudian ketik NEXT L, itu bertujuan memberikan masukan kedalam lanjutan di data L yang terisi 1 TO C tadi, kemudian ketik

Y = 12, itu adalah data Y berisi 12, kemudian ketik X = X + 1, itu adalah data X ditambah satu, kemudian ketik Y = Y – C, itu untuk memberikan pengurangan pada nilai Y yang tadi berisi 12. Dan terakhir ketik END itu untuk memberikan perintah bahwa program sudah selesai di buat. Dan inilah contoh gambar input dan outputnya :   

 

CONTOH SEDERHANA MEMBUAT PROGRAM DENGAN STATEMENT DO WHILE LOOP

Pertama tama ketik CLS terlebih dahulu untuk menghilangkan statement – statement yang sudah dibuat tadi, kemudian ketik  DO WHILE I% <= 10, itu bertujuan memberikan perintah statement yang digunakan,  disini bertujuan memberikan perintah program I% <=10 itu adalah I% lebih dari sepeluh,

Setelah itu ketik PRINT I%; itu untuk memberikan perintah mencetak perintah I% yang tadi dibuat, kemudian ketik I% = I% +1 itu adalah I% ditambah satu, kemudian ketik

LOOP, itu adalah perintah dari akhirannya do while loop yang sedang dibuat, kemudian  ketik END, dimana itu adalah perintah selesai untuk membuat suatu program.

Dan inilah gambar input dan outputnya :