Pemograman Pascal : Perulangan For Do
Perulangan For Do
Perulangan For dipakai untuk menghasilkan pengulangan sejumlah kali yang telah dispesifikasikan.Jumlah pengulangan diketahui atau sanggup ditentukan sebelum eksekusi.Untuk mencacah berapa kali pengulangan dilakukan,perlu sebuah peubah(variable) pencacah.Peubah ini nilainya selalu bertambah satu setiap pengulangan dilakukan. Jika cacah pengulangan sudah mencapai jumlah yang telah dispesifikasika,maka jadwal pengulangan berhenti.
Bentuk umum pernyataan FOR ada dua macam: menaik (ascending) atau menurun(descending).
FOR menaik:
For pencacah := nilai_awal to nilai_akhir do
Aksi;
End;
FOR menurun
For pencacah : nilai_awal Downto nilai_akhir do
Aksi;
End;
Contoh Program
Program For Do 1
Program diatas merupakan jadwal perulangan For.Program diatas bemaksud menampilkan Karakter ASCII,dimana untuk tampilan output programnya sendiri semoga sesuai apa yang diperlukan yaitu menyamping dikala jumlah menurunnya sudah terpenuhi.
Baris 1-2 : yaitu judul jadwal dan penggunaan unit crt
Baris 2-4 : mendeklarasikan peubah yaitu x,c,s,k:integer; , keempat peubah Tersebut bertipe integer.
Baris 5,6,7 : merupakan awal jadwal utama dan statement (assigment) yaitu nilai 1 disalin ke x ,dan c x:=1; , c:=1;
Baris 8 : merupakan kondisi perulangan for dimana nilai awal perulangan yaitu 1 dan nilai akhirnya
Baris 9-16 : pada baris ini merupakan isi dari perulangan for j:= 1 to 1 do Dimana pada baris 11, perintah gotoxy untuk mengatur letak kursor sedangkan dimana x merupakan kolom dan c baris disini nmenggunakan perintah if then sanggup dilihat pada baris 13 dimaksudkan untuk semoga dikala c=41 maka tampilan kursor akan pindah lagi ke awal atau pada kondisi yang diperintahkan. Disini jadwal akan kembali ke baris dan kolom awal begitu seterusnya hingga jumlah terpenuhi atau selesai.
Output Program For Do 1
Program For Do 2
Program diatas merupakan jadwal perulangan For juga sama menyerupai teladan jadwal sebelumnya hanya saja berbeda penulisan. Program diatas bemaksud menampilkan Karakter ASCII,dimana untuk tampilan output programnya sendiri semoga sesuai apa yang diperlukan yaitu menyamping dikala jumlah menurunnya sudah terpenuhi.Baris 1 : yaitu penggunaan unit wincrt
Baris 2,3 : mendeklarasikan peubah yaitu x,y,s,b:integer; , keempat peubah tersebut bertipe integer.
Baris 4,5,6,7 : merupakan awal jadwal utama dan penyalinan (assigment) yaitu nilai 1 disalin ke y , x , b y:=1; x:=1; b:=1;
Baris 8 : merupakan kondisi perulangan for dimana nilai awal perulangan yaitu satu dan nilai jadinya 255
Baris 10,11 : pada baris ini merupakan intruksi untuk menampilkan perulangan tersebut dimana penggunaan gotoxy berfungsi untuk meletakan kursor atau kawasan dimana menampilkan output tersebut pada tampilan output .x = kolom , y= baris.
Baris 11 – 16 : intruksi pada baris baris ini berkhasiat untuk mengatur tampilan outpu jadwal itu sendiri y:=y+1; sebagai pencacah y ,setiap perulangan terjadi maka nilai y akan ditambah satu semoga ketika if y=25 then maka kursor akan berpindah kesamping pada tampilan output jika kondisi bernilai benar,pada baris selanjutnya juga sama untuk memindahkan kursor kalau sesuai kondisi yang diminta if s<100 then, x:=x+6 kursor akan berpindah ke kolom nilai x + 6 kalau bernilai kondisi True kalau else maka x:=x+7 kolom akan berpindah ke nilai x + 7
Output Program For Do 2
