Download Source Code Aplikasi

Program Teks Berjalan Pada Pascal

Wednesday, October 9th, 2019 - Pemrograman Pascal, Program Teks Berjalan Pada Pascal
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?

Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.
Download Source Code Aplikasi
Program Teks Berjalan Pada Pascal | Ahmad Code | 4.5