tugas struktur dan 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

jawabanya :

1. masukan coding berikut ke pascal

uses crt;
var pilih,c1,c2 : integer;
a,b,d : string;
jawab : char;
begin
repeat
clrscr;
writeln('Pilih menu');
writeln('1. Mencari panjang dari sebuah string.');
writeln('2. Menggabungkan isi dari kedua string.');
writeln('3. Menyisipkan isi dari sebuah string ke dalam string lain.');
writeln('4 . exit ');
write ('Pilihan anda :'); readln(pilih);

case pilih of
1 : Begin
writeln('Tulis string yang anda ingin hitung panjangnya : ');
readln(a);
c1:=length(a);
writeln;
writeln('Panjang dari ',a,' adalah : ',c1);
end;

2 : Begin
writeln('Tulis string pertama yang anda ingin gabungkan : ');
readln(a);
writeln('Tulis string kedua yang anda ingin gabungkan : ');
readln(b);
d:=concat(a,b);
writeln('Gabungan string ',a,' dan string ',b,' adalah : ',d);
end;

3 : Begin
writeln('Tulis string pertama yang anda inginkan : ');
readln(a);
writeln('Tulis string yang ingin disisipkan : ');
readln(b);
writeln('Huruf ke berapa yang ingin disisipkan : ');
readln(c1);
insert(b,a,c1);
writeln('Gabungan stringnya adalah ',a,'' );
end;
4 : exit
end;
writeln('mau melanjutkan program ? (y/t) ');
readln(jawab);
until(jawab = 't');
end.



hasilnya :

bila kita memilih 1 :



bila kita memilih 2 :



bila kita memilih 3 :



saat menjawab (y/t) ,bila kita memilih y maka program akan terulang dan memulai pemilihan baru.,bila t maka program akan terhenti
bila kita memiih nomer 4 maka akan stop

____________________________________________________________________________________________________________________________

2 . masukan coding sebagai berikut :

uses crt;

var npm,jur1,jur2,ang1,ang2 : string;
a,b,c : integer;

begin
clrscr;
write ('Tuliskan NPM anda :');
readln (NPM);
(*Gunadarma didirikan 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);

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

if jur2 <> '-' then
Writeln('Jurusan anda adalah ',jur2,' dengan kode jurusan ',jur1,'.')
else
Writeln('Maaf, kode jurusan anda tidak ada dalam database kami.');

ang1:= Copy(npm,4,2);
val(ang1,b,c);
if b > 81 then
Writeln('Anda termasuk angkatan 19',b,'.')
else begin
if b < 10 then begin
str(b:1,ang2);
insert('0',ang2,1);
Writeln('Anda termasuk angkatan 20',ang2,'.'); end;
writeln('Anda termasuk angkatan 20',b,'.');
end;
readln;
end.




maka hasilnya adalah :