PASCAL - REPEAT . . UNTIL

Nih...  ada lagy tentang REPEAT . . UNTIL pada PASCAL . langsung saja.,.Cekidot !!!!

Programnya :

Outputnya :

Logikanya :

1. Pertama ketik “uses crt;” ( gunanya untuk memanggil unit library pada pascal ), lalu ENTER. 
2. Selanjutnya ketik “var i : integer;”( untuk peberian harga awal bahwa nilai ini adalah integer ). ENTER. 
3. Kemudian ketik “begin” ( gunanya untuk memulai statement program ), setelah itu ENTER. 
4. Pada tahap ini ketikan “clrscr;” ( gunanya adalah untuk menghilangkan tampilan program sebelumnya), kemudian ENTER. 
5. Lalu ketik “i := 0” ( untuk pemberian harga awal ). 
6. Kemudian masukkan program perulangan “REPEAT … UNTIL”. 
7. Repeat ( untuk memulai program perulangan ). 
8. i := i + 1; (untuk pemberian harga awal ). 
9. Writeln (i); ( untuk menginput nilai i). 
10. Until i = 5 ; (untuk membertahu jika i samadengan 5 maka program selesai . 
11. Terakhir ketik “End.” ( untuk mengakhiri program ).

Dari pada pusing - pusing baca Logika saya. Mending langsung coba aja programnya ...!!!

SEMOGA BERMANFAAT....!!!!