Tugas Struktur Organisasi Data 2

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

no.1

uses crt;

var

unt: char;

w,z: integer;

a,b,c,d,x,y : string;

begin

clrscr;

repeat

writeln('----menu---');

writeln('1. PANJANG STRING');

writeln('2. GABUNG STRING');

writeln('3. SISIP STRING');

writeln('MASUKAN PILIHAN: ');

readln(w);

case w of

1:begin

clrscr;

writeln(' PANAJNG STRING ');

WRITE('KATA: ');

readln(a);

w:=length (a);

writeln (w);

readln;

end;

2:begin

clrscr;

writeln ('GABUNG STRING');

write ('kata1: ');

readln (b);

write ('kata2: ');

readln (c);

x:=concat (b,c);

writeln (x);

readln;

end;

3:begin

clrscr;

writeln('sisip string');

write('kata1: ');

readln(y);

write('kata yang disisipkan: ');

readln(d);

write('akan disisipkan di: ');

readln(z);

insert(d,y,z);

writeln('hasilnya adalah: ',y);

readln;

end;

end;

writeln('masih mau kemenu ? (y/n'));readln(unt);

until(unt='n');

end.

no.2

uses crt;

var NPM,x,y,z,j: string;

x,y,z : integer;

begin

clrscr;

write ('Masukan NPM Anda ');

readln (NPM);

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

if x= '1' then y:='S1-Sistem Informasi'

else

if x= '2' then y:='S1-Sistem Komputer'

else

if x= '3' then y:='S1-Sistem Informatika'

else

if x= '4' then y:='S1-Psikologi'

else

y:=' ';

if y<>' ' then

writeln('Jurusan Anda ',' ',x,' ','Dengan Kode ',y)

else

writeln('MAAF,ANDA SALAH MEMASUKAN NPM !!');

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

val(z,a,b);

if a>81 then

writeln('anda akan masuk angkatan 90',a,'.')

else begin

if a<10 then

begin

str(a:1,j);

insert('0',j,1);

writeln('anda termasuk angkatan 20',j,'.');

end;

readln;

end;

end.