Tugas Mata Kuliah Struktur Organisasi Data

Tugas Struktur Organisasi Data ini saya kerjakan malam ini pukul 21.50 WIB
Insyallah dan berharap smoga mendapatkan nilai yg sempurna oleh Dosen mata kuliah SOD..Amin..Isi soalnya adalah sebagai berikut:
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:

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(' PANJANG 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.

jawaban 2:

uses crt;

var NPM,a,b,c,d: string;

x,y,z : integer;

begin

clrscr;

write ('Masukan NPM Anda ');

readln (NPM);

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

if a= '1' then b:='S1-Sistem Informasi'

else

if a= '2' then b:='S1-Teknik Industri'

else

if a= '3' then b:='S1-Manajemen Informatika'

else

b:=' ';

if b<>' ' then

writeln('Jurusan Anda ',' ',a,' ','Dengan Kode ',b)

else

writeln('Maaf,Ada Kesalahan Dalam NPM Anda !!!');

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

val(c,x,y);

if x>81 then

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

else begin

if x<10 then

begin

str(x:1,d);

insert('0',d,1);

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

end;

readln;

end;

end.