Program animasi sederhana (teks berjalan) dengan pascal

Posted on Updated on


Pada artikel kali ini saya akan membahas tentang program untuk menampilkan teks bergerak dengan pascal,,

Listing program:

uses crt;

var

i,j,p,q,x,y,z: integer;

procedure delay33;

begin

for x:=1 to 100 do

begin

for y:=1 to 30 do

begin

write(”);

end;

end;

end;

begin

for j:= 1 to 10 do

begin

for i := 1 to 40 do

begin

clrscr;

gotoxy(15,2);write(‘————————-‘);

gotoxy(15,4);write(‘————————-‘);

gotoxy(i,3);

writeln(‘SELAMAT DATANG’);

gotoxy(1,3);

writeln(‘             |’);

gotoxy(40,3);

writeln(‘|             ‘);

delay33;

end;

end;

readln();

end.

Output program:

nah,, itu dia outputnya,, sebenarnya itu teks selamat datang nya berjalan,, mungkin kalo ga jalan anda kurang senyum kali ya..hehee becanda..

kalo saya ga salah,, di pascal ada fungsi khusus untuk men delay program sementara, tapi di program ini saya menggunakan looping yang banyak untuk memperlambat proses program supaya terlihat berjalan,, dan untuk melatih logika kita juga..



Web development jakarta

semoga bermanfaat, terimakasihh,, ^_^ jangan lupa comment ya…

3 thoughts on “Program animasi sederhana (teks berjalan) dengan pascal

    Anonim said:
    Juni 15, 2011 pukul 1:40 am

    kok error di 19:7 ya?? padahal udah sama persis

      codycoding responded:
      Juni 15, 2011 pukul 2:34 am

      pesan errornya apa mas?

        Anonim said:
        April 5, 2013 pukul 7:09 am

        tanda titik koma

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s