TUGAS 2 MATA KULIAH STRUKTUR & ORGANISASI DATA 2

NAMA  : MUHAMMAD REZA PAHLEVI
NPM     : 14109409
KELAS : 2KA17

coding program dibawah ini merupakan program untuk mencari angkatan & jurusan berdasarkan NPM. tugas ini untuk memenuhi tugas 2 mata kuliah Struktur & Organisasi Data 2 kelas : 2KA17 dengan dosen pembimbing : Lily Wulandari

program muhammad_reza_pahlevi  ;
uses crt ;

var npm,jur_a,jur_b,ang_1,ang_2 : string ;
a,b,c : integer ;

begin
clrscr;
write ('Masukan NPM Anda :') ; readln (npm) ;
(*Gunadarma berdiri pada tahun 1981

Kode jurusan :
1 = Strata 1 ; Sistem Informasi
2 = Diploma 3 ; Manajemen Informatika
3 = Strata 1 ; Manajemen Komputer & Akuntansi*)
jur1:= Copy(npm,1,1);
(*Penelusuran jurusan *)

if jur_a = '1' then jur_b:= 'Strata 1 - Sistem Informasi' else
if jur_a = '2' then jur_b:= 'Diploma 3 - Manajemen Informatika' else
if jur_a = '3' then jur_b:= 'Strata 1 - Manajemen Komputer & Akuntansi' else jur_b:= '-';

if jur2 <> '-' then
Writeln ('Jurusan anda adalah ',jur_b,' dengan kode jurusan ',jur_a,'.')
else
Writeln('Maaf, kode jurusan anda tidak terdapat didalam database kami,mohon ulangi.');
(*Penelusuran angkatan*)

ang_1:= Copy(npm,4,2);
val(ang_1,b,c);
if b > 81 then
Writeln('Anda adalah angkatan 19',b,'.')
else

begin
if b < 10 then begin
str(b:1,ang_2);
insert('0',ang_2,1);
Writeln('Anda adalah angkatan 20',ang_2,'.');
end;
writeln('Anda adalah angkatan 20',b,'.');
end;
readln;
end.

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.