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);
...
