Program perulangan while..do dan repeat until pada pascal

1.      Pada gambar dibawah ini saya mendeklarasikan nilai dari variable yang akan digunakan nanti,  dan juga label untuk kembali ke menu ini dan juga mengakhiri program

Sub program yang akan berjalan setengahnya tergantung dari nilai variable pilih yang akan diinput oleh user.

disini juga ada pendeklarasikan nilai variable angka  dan akhir menjadi nol, agar setelah menjalankan sub program tadi nilai awal variable-variabel tersebut kembali lagi.

2.      Digambar selanjutnya akan ada 4 sub program.

Yang pertama menggunakan perulangan while .. do yang akan menghasilkan nilai ganjil dan akan mencetaknya menjadi deret angka dari nilai variable angka selama nilai variable angka tidak lebihbesar atau sama dengan nilai variable akhir.

Nilai ganjil disini didapat dari nilai variable angka  yang dideklarasikan nilainya menjadi 1 dalam sub program ini, kemudian tinggal ditambah 2 untuk nilai deret berikutnya. Dan seterusnya sampai kondisi pada While .. do tadi bernilai salah.

Yang kedua adalah perulangan repeat ..to , perulangan ini akan menjalankan suatu perulangan statement sampai kondisi persayaratannya terpenuhi, pada kasus ini akan terus berjalan selama nilai variable angka lebih besar atau sama dengan nilai variable akhir yang nantinya diinput user

Yang ketiga masih tetap perulangan repeat to, hanya saja didalamnya ada percabangan untuk menentukan bilangan yang bernilai ganjil atau genap

3.       Dan hasilnya adalah :