TUGAS STRUKTUR DAN ORGANISASI DATA 2

PERTANYAAN:

1. Buatlah program berdasarkan ketentuan sebagai berikut :

- panjang sebuah string.

- mengabungkan dua buah string.

- menyisipkan string yang satu kedalam string yang lain.

jawaban :

sebelumnya kita masukan coding ke dalam pascal.

program menu;
uses crt;
var pil:char;
...var s1,s2:string [30];
var a:integer;
begin
clrscr;
writeln('===MENU===');
writeln('1. Panjang Kata');
writeln('2. Menggabunkan Kata');
writeln('3. Menyisipkan Kata');
writeln('4. Exit');
writeln('Masukkan Pilihan Anda');
readln(pil);
case pil of
'1':begin;
writeln('-Panjang Kata-');
write('Nama: ');readln(s1);
write('Panjang string Anda adalah ',length(s1),' karakter');
readln;
end;
'2':begin;
writeln('-Menggabungkan String-');
write('Nama 1: ');readln(s1);
write('Nama 2: ');readln(s2);
write('Gabungan string Anda adalah ',concat(s1,s2));
readln;
end;
'3':begin;
writeln('-Menyisipkan Sebuah String Ke Dalam String Lain-');
write('Nama: ');readln(s2);
write('Nama yang akan dimasukkan: ');readln(s1);
write('Disisipkan di kata ke: ');readln(a);
insert(s1,s2,a);
writeln('Sisipan string Anda adalah ',s2);
readln;
end;
end;
writeln;
readln;
end.
end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2. Buatlah program untuk menampilkan jurusan dan angkatan seorang mahasiswa universitas gunadarma berdasarkan NPM

jawab:

Pertama masukkan coding ke pascal.

uses crt;

var NPM,jurusan1,jurusan2,angkatan1,angkatan2 : string;

h,i,j : integer;

begin

clrscr;

write ('Tuliskan NPM kamu :');

readln (NPM);

jurusan1:= CopyNPM,1,1);

if jurusan1 = '1' then jurusan2:= 'Strata 1 - Sistem Informasi'

else

if jurusan1 = '2' then jurusan2:= 'Diploma 3 - Teknik Komputer'

else

if jurusan1 = '3' then jurusan2:= 'Strata 1 - Teknik Informatika'

else

jurusan2:= '-';

if jurusan2 <> '-' then

Writeln('Jurusan kamu adalah ',jurusan2,' dengan kode jurusan ',jurusan1,'.')

else

Writeln('Maaf, kode jurusan anda tidak ada');

angkatan1:= Copy(NPM,4,2);

val(angkatan1,i,j);

if i > 85 then

Writeln('Kamu termasuk angkatan 19',i,'.')

else begin

if i < 10 then

begin

str(i:1,ang2);

insert('0',angkatan2,1);

Writeln('Kamu termasuk angkatan 20',angkatan2,'.'); end;

end;

readln;

end;

end.