Program Teks Berjalan Pada Pascal
Pernah memprogram dengan PASCAL tidak? Banyak yang menyampaikan pemrograman ini sulit, namun jika dipilih pemrograman C itu lebih sulit. hehehe, nah hal ini kembali lagi kepada anda semua.
Oh ya tutorial programming hari ini akan memperlihatkan salah satu pola aktivitas pascal untuk membuat suatu teks berjalan dari kiri ke kanan.
Ketiklan program teks berjalan pada pascal berikut ini :
uses crt ;
var
kata : string ;
i : byte ;
posisi: byte;
begin
kata := ‘Belajar di Mesran.Net’ ;
i := 1 ;
clrscr ;
posisi := 1;
while not keypressed do
begin
gotoxy(i-1, 12) ; write(‘ ‘) ;
gotoxy(i, 12) ; write(kata) ;
if posisi=1 then
inc(i)
else
dec(i) ;
if i=50 then posisi:=0
else if i=1 then posisi:=1 ;
delay(200) ;
end;
end.
pada bab gotoxy(i-1, 12) ; write(‘ ‘) ; memang di berikan spasi kosong pada perintah tersebut bertujuan untuk menghapus tampilan sebelumnya.
nah, bagaimana kesudahannya apakah program teks berjalan pada pascal sesuai dengan yang anda harapkan?