materi perulangan turbo pascal
di sini saya akan memposting tentang perulangan bahasa pemrograman turbo pascal. 1.buka turbo pascal lalu pilih file seperti ss di atas. 2.lalu buka new 3.lalu tulis seperti ini : uses crt; var a:byte; begin clrscr; a:=20; while a > 8 do begin writeln(a); a:=a-2; end; readln; end. seperti ss berikut jika sudah klik file lalu save. n/b: angka 20 dan 8 bisa di ganti angka lain simbol > dan - bisa di ganti dengan tanda < dan +