Struktur dan organisasi data 2

Prisca Amelia

2KA17

SOAL :
1. buat program ketentuan sebagai berikut :
a. Panjang string
b. Mengabungkan dua string
c. Menyisipkan string kedalam string lain
2. Buat program untuk menampilkan jurusan dan angkatan seorang mahasiswa universitas gunadarma berdasarkan NPM

Jawaban 1 :

program string;

uses crt;

var

pilihan: char;

a,b: integer;

c,d,e,f,o,p : string;

begin

clrscr;

repeat

writeln('____MENU____');

writeln('1. Menghitung Panjang String');

writeln('2. Menggabungkan String');

writeln('3. Manyisipkan String');

writeln('Masukkan Pilihan: ');

readln(a);

case a of

1:begin

clrscr;

writeln(' Menghitung Panjang String ');

WRITE('masukkan kata: ');

readln(c);

a:=length (c);

writeln (a);

readln;

end;

2:begin

clrscr;

writeln ('Menggabungkan String');

write ('kata1: ');

readln (d);

write ('kata2: ');

readln (e);

o:=concat (d,e);

writeln (o);

readln;

end;

3:begin

clrscr;

writeln('Menyisipkan String');

write('kata1: ');readln(p);

write('kata yang akan disisipkan: ');readln(f);

write('akan disisipkan di: ');

readln(b);

insert(f,p,b);

writeln('hasilnya : ',p);

readln;

end;

end;

writeln('kembali ke Menu ? (y/t)');

readln(pilihan);

until(pilihan='t');

end.

jawaban 2 :

uses crt;

var NPM,juru1,juru2,angkt1,angkt2: string;

x,y,z : integer;

begin

clrscr;

write ('Masukkan NPM Anda :');

readln (NPM);

juru1:=copy(NPM,1,1);

if juru1= '1' then juru2:='S1-Sistem Informasi'

else

if juru1= '2' then juru2:='D3-Manajemen Informatika'

else

if juru1= '3' then juru2:='S1-Manajemen Komputer dan Akuntansi'

else

juru2:='-';

if juru2<>'-' then

writeln('jurusan anda adalah ' ,juru2, ' dengan kode jurusan',juru1,'.')

else

writeln('maaf, kode jurusan anda tidak ada dalam database kami.');

angkt1:=copy (NPM,4,2);

val(angkt1,y,z);

if y>81 then

writeln('anda akan masuk angkatan 19',y,'.')

else begin

if y<10>

begin

str(y:1,angkt2);

insert('0',angkt2,1);

writeln('anda angkatan 20',angkt2,'.');

end;

readln;

end;

end.