TUGAS 1 MATA KULIAH STRUKTUR & ORGANISASI DATA 2

NAMA  : Muhammad Reza Pahlevi
NPM     : 14109409
KELAS : 2KA17

Dibawah ini merupakan coding program bahasa pemrograman Pascal untuk memenuhi tugas mata kuliah Struktur & Organisasi Data 2

Ketentuaan program :
- Mencari panjang sebuah string (LENGTH)
- Menggabungkan isi dari dua buah string (CONCAT)
- Menyisipkan isi dari sebuah string kedalam string lain (INSERT)

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

procedure hit_panjang ;
begin
b := ’muhammad reza pahlevi’ ;
a := LENGTH (b) ;
writeln (’panjang string :’,’”’,b,’”’,’adalah’,a,’karakter’) ;
end ;

procedure penggabungan ;
begin
c := ’muhammad reza pahlevi_’ ;
d := ‘2KA17’ ;
e := CONCAT (c,d) ;
write (‘HASIL e =’,e) ;
end ;

procedure penyisipan ;
begin
f := ‘muhammad pahlevi’ ;
g := INSERT (‘prittha’,f,6) ;
writeln (‘HASIL g adalah’,g) ;
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.