Sebelum baca tolong diperhatikan, *Jika anda belum mempunyai Program
Pascal silahkan anda mendownload file saya dengan cara cukup Klik Disini*
*Dan jika anda sudah mendownload filenya silahkan di Instal dan di jalankan Program Pascalnya*
Bagi yang sudah mempunyai Pascal tidak usah mendownload file di atas ^_^ cukup membaca bacaan di bawah ini :
Pada kesempatan kali ini saya akan menjelaskan fungsi looping (menurut pengetahuan saya) ^_^
*Dan jika anda sudah mendownload filenya silahkan di Instal dan di jalankan Program Pascalnya*
Bagi yang sudah mempunyai Pascal tidak usah mendownload file di atas ^_^ cukup membaca bacaan di bawah ini :
Pada kesempatan kali ini saya akan menjelaskan fungsi looping (menurut pengetahuan saya) ^_^
Kali ini kita akan membahas Looping dengan statement While Do
Statement while..do digunakan untuk memerintah
komputer melakukan pengulangan selama kondisi/statement yang ditentukan
programmer terpenuhi. Atau komputer akan berhenti melakukan pengulangan
jika kondisi/statement yang diperlukan tidak terpenuhi. Masih belum
pahamkah..? Baiklah untuk lebih menambah pengetahuan tentang fungsi dan
penerapan perintah while.do pada Pascal, mari kita cermati contoh
listing program berikut;
Baca juga Artikel tentang :
Startup lambang LP
Skin MAU putih
Skin DA ungu
Cheat Analyzer AO
Software Your Uninstaler
RF Black Skin
Skin White DA
Startup lambang COD
Skin rf terbaru
Skin DA beberapa warna
Skin Bow beberapa macam
Skin armor interest
Skin macem sege
program
ulang_dgn_while;
uses crt;
var n:integer; i:integer;
begin
clrscr;
write('Nilai N=');
readln(n);
i:=1;
writeln('Print i dengan While:');
while i<=n do
begin
writeln (i);
i:=i+1;
end;
readln;
end.
Pada contoh program tersebut, kondisi/statement yang diinginkan
adalah jika i kurang atau sama dengan nilai n(nilai i adalah "1"). Maka
komputer tetap melakukan pengulangan cetak nilai i sebanyak n . Jadi
jika kita memasukan nilai n adalah angka 5 maka program akan
mengeluarkan output seperti gambar berikut;
uses crt;
var n:integer; i:integer;
begin
clrscr;
write('Nilai N=');
readln(n);
i:=1;
writeln('Print i dengan While:');
while i<=n do
begin
writeln (i);
i:=i+1;
end;
readln;
end.
Baca juga Artikel tentang :
Startup lambang LP
Skin MAU putih
Skin DA ungu
Cheat Analyzer AO
Software Your Uninstaler
RF Black Skin
Skin White DA
Startup lambang COD
Skin rf terbaru
Skin DA beberapa warna
Skin Bow beberapa macam
Skin armor interest
Skin macem sege
0 komentar:
Posting Komentar