Pada praktikum kali ini kita akan membuat
program looping dengan menggunakan for..to..do.
Pada program pascal. Berikut akan saya beri penjelasannya:
1. Pertama-tama buka
dulu program pascalnya.
2. Lalu ketikkan
seperti ini:
3. Untuk penggunaan
dari uses crt itu sepaket dengan clrscr yang gunanya untuk menghapus outputan
dari program sebelumnya yang telah di running, uses crt itu merupakan unit
untuk memanggil clrscr nya, jika kita tidak menggunakan uses crt dan clrscr
maka akan jadi terlihat banyak dan kurang enak dilihat.
4. Lalu
‘write(‘masukan angka :’); readln(b)’ itu akan menncetak dari kalimat ‘masukan
angka’ tsb, dan untuk ‘readln(b)’ itu jadi kita bisa memasukan inputan pada
kalimat ‘masukan angka’ tsb.
5. Lalu
jadi, untuk a = 1
sampai b maka lakukan begin, b nya itu kan angka yang akan kita masukaan nanti,
misalnya 4, maksud begin disini agar looping nya berjalan kebawah jika tidak
ada begin maka looping nya akan kesamping, untuk c = 1 sampai a, jadi dimulai
dari angka 1 sampai a, kemudian cetak c dia akan menghasilkan 1 to a, kemudian
readln untuk dapat menjalankan programnya, dimana ada begin disitu pasti ada
end. Jika kita tidak memakai begin maka hasilnya seperti ini menyamping: 
6. End. Untuk
mengakhiri programnya. Berikut hasil programnya:
Tidak ada komentar:
Posting Komentar