Program String Karakter

program ahmadsa;
var
karakter1,karakter2,kata5,kata6,kata7,kata8,kata9,kata10,kata11,kata12:string;
a,b:integer;
begin
karakter1:='teknik';
karakter2:='informatika';
a:=length (karakter1);
b:=length (karakter2);
kata5:=copy (karakter1,3,4);
kata6:=copy (karakter2,3,6);
kata7:=copy (karakter2,1,3);
kata8:=copy (karakter2,9,3);
kata9:=copy (karakter1,1,2);
kata10:=copy (karakter2,3,3);
kata11:=copy (karakter1,5,2);
kata12:=kata9+kata10+kata11;
writeln (a,b);
writeln ('kata5=',kata5);
writeln ('kata6=',kata6);
writeln ('kata7=',kata7);
writeln ('kata8=',kata8);
writeln ('kata12=',kata12);
end.

program ahmadsa18;
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