Pada pascal statementnya seperti QBasic Cuma bedanya pascal lebih sederhana tanpa memberikan setiap statement. Tapi ini kali ini Cuma menjelaskan pengulangan mengunakan while dengan menggunakan karakter. Seperti menggunakan perintah jika ingin mengulang pilih “(Y/T)”, jika milih “Y” langsung looping mengulang program dari pertama sedangkan pilih “T” langsung keluar program.
Contohnya seperti ini
writeln;writeln;
write('anda ingin ulang?(Y/T)');
lagi:=upcase(readkey);clrscr;
yang dimana “readkey” ini berfungsi perintah mengulang atau membaca kembali program, yang dibantu dengan while, seperti:
begin
lagi:='Y';
while lagi='Y' do
yang dimana ‘Y’ ini merupakan karakter yang untuk membuat mengulang dan while mengulang setiap kalih pilih karakter ‘Y’.
0 komentar: