Program animasi sederhana (teks berjalan) dengan pascal
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..
semoga bermanfaat, terimakasihh,, ^_^ jangan lupa comment ya…
Juni 15, 2011 pukul 1:40 am
kok error di 19:7 ya?? padahal udah sama persis
Juni 15, 2011 pukul 2:34 am
pesan errornya apa mas?
April 5, 2013 pukul 7:09 am
tanda titik koma
Januari 24, 2020 pukul 6:25 am
punya saya udah jadi mas tapi lama banget kayak ulat munycul hurfnya