Program Tulisan Selamat Datang pada Pascal

Program Manipulasi_string;
Uses Crt;
Var h,i,j,k,l,m,n,o,p,q,r,t,u,v,w,x,y,z: String;
const s='SELAMAT DATANG DI STMIK DUTA BANGSA';
Begin

ClrScr;
h:=Copy (s,1,2); i:=copy (s,3,2); j:=Copy (s,5,2);
k:=copy (s,7,2); l:=copy (s,9,2); m:=copy (s,11,2);
n:=copy (s,13,2); o:=copy (s,15,2);p:=copy (s,17,2);
q:=copy (s,19,2); r:=copy (s,21,2);t:=copy (s,23,2);
u:=copy (s,25,2); v:=copy (s,27,2);w:=copy (s,29,2);
x:=copy (s,31,2); y:=copy (s,33,2);z:=copy (s,35,2);
While not keypressed do
Begin
clrscr;
textcolor(1);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(2);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(3);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(4);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(5);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(6);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(7);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(8);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(9);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(10);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(11);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(12);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);


clrscr;
textcolor(13);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);

clrscr;
textcolor(14);
gotoxy(20,25);
Write(h);delay(200); Write(i);delay(200);Write(j);delay(200);
Write(k);delay(200); Write(l);delay(200);Write(m);delay(200);
Write(n);delay(200); Write(o);delay(200);Write(p);delay(200);
Write(q);delay(200); Write(r);delay(200);Write(t);delay(200);
Write(u);delay(200); Write(v);delay(200);Write(w);delay(200);
Write(x);delay(200); Write(y);delay(200);Write(z);delay(200);
end;
readln;
end.

Posted in: