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 Repeat Until
Statement Repeat..until fungsinya perintah-perintah yang ada di dalam
badan pengulangan diulangi sampai kondisi berhenti terpenuhi. Selain itu
kondisi akan diuji
pada akhir perulangan sehingga blok di dalam perulangan akan dijalankan minimal satu
kali walaupun kondisi yang ada masih FALSE.
Untuk lebih memahami bagaimana Fungsi Looping Pada Free Pascal IDE dengan statement Repeat..until, coba perhatikan dan teliti contoh listing program berikut;
pada akhir perulangan sehingga blok di dalam perulangan akan dijalankan minimal satu
kali walaupun kondisi yang ada masih FALSE.
Untuk lebih memahami bagaimana Fungsi Looping Pada Free Pascal IDE dengan statement Repeat..until, coba perhatikan dan teliti contoh listing program berikut;
uses crt;
var i: integer;
a:string[30];
begin
clrscr;
writeln('_______________________');
write('tulis kata='); readln(a);
begin
i:=0;
repeat
inc(i);
writeln(a);
until i=7;
end;
readln;
end.
Pada contoh diatas kata yang dimasukan akan ditulis sampai 7(tujuh) kali. Alurnya adalah sebagai berikut;var i: integer;
a:string[30];
begin
clrscr;
writeln('_______________________');
write('tulis kata='); readln(a);
begin
i:=0;
repeat
inc(i);
writeln(a);
until i=7;
end;
readln;
end.
- variable yang digunakan var i: integer; a:string[30];
- membuat garis writeln('_______________________');
- masukkan kata yang akan diulang write('tulis kata='); readln(a);
- Statement (Looping) begin i:=0; repeat inc(i); writeln(a); until i=7; end;
Statement di atas memberikan perintah pada program untuk melakukan Looping kata yang dimasukan sampai 7(tujuh) kali. Jika sudah selesai memcetak kata sampai 7(tujuh) kali, maka Looping akan berhenti.
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