Catatan Anak Kampus

TUGAS 1
STRUKTUR DAN ORGANISASI DATA 2

NAMA : NOVRI YANTO
NPM : 13109139
KELAS : 2KA17
DOSEN : LILY WULANDARI

Tugas ini untuk memenuhi mata kuliah SOD 2.

Ketentuaan program :
1. Mencari panjang sebuah string / Length.
2. Menggabungkan isi dari dua buah string / Concat.
3. Menyisipkan isi dari sebuah string kedalam string lain / Insert.

program novri_yanto ;
uses crt ;
var pil : byte ; x : word ; a,b,c,d,e,f : string ;

procedure hit_panjang ;
begin
a := ’gunadarma’ ;
x := LENGTH (a) ;
writeln (’panjang string :’,’”’,a,’”’,’adalah’,x,’karakter’) ;
end ;

procedure penggabungan ;
begin
b := ’gunadarma’ ;
c := ‘university’ ;
d := CONCAT (b,c) ;
write (‘HASIL d =’,d) ;
end ;

procedure penyisipan ;
begin
e := ‘guna ma’ ;
f := INSERT (‘dar’,e,5) ;
writeln (‘HASIL f adalah’,f) ;
end ;

begin
clrscr ;
writeln (‘=================’) ;
writeln (‘1. hit_panjang’) ;
writeln (‘2. penggabungan’) ;
writeln (‘3. penyisipan’) ;
write (‘pilihan anda :’) ; readln (pil) ;

case pil of
1 : hit_panjang ;
2 : penggabungan ;
3 : penyisipan ;
end ;
readln ;

end.