Program String Copy dengan Bahasa Pascal

var a,b,c,d,e:string;
begin
a:='UNIVERSITAS';
b:='MUHAMMADIYAH';
c:=copy(a,1,3);
d:=copy(b,8,11);
e:=c+d;
writeln('c=',c);
writeln('d=',d);
writeln('e=',e);
end.




program ahmadsa;
var
susunan1,susunan2,susunan3,wordA,wordB,wordC,wordD,wordE,wordF,wordG : string;
a,b,c : integer;
begin
susunan1:='FAKULTAS';
susunan2:='TEKNIK';
susunan3:='INFORMATIKA';
a:=length (susunan1);
b:=length (susunan2);
c:=length (susunan3);
wordA:=copy (susunan1,1,3);
wordB:=copy (susunan1,4,4);
wordC:=copy (susunan2,3,4);
wordD:=copy (susunan3,3,6);
wordE:=copy (susunan3,3,5);
wordF:=copy (susunan1,3,3);
wordG:=wordE+wordF;
writeln(a,b,c);
writeln('wordA = ',wordA);
writeln('wordB = ',wordB);
writeln('wordC = ',wordC);
writeln('wordD = ',wordD);
writeln('wordG = ',wordG);
end.

Posted in: BAHASA PASCAL