Kelas : 2 KA 17
NPM : 12109150
1. BUATLAH PROGRAM DENGAN KETENTUAN SEBAGAI BERIKUT :
- MENCARI PANJANG DARI SEBUAH STRING
- MENGGABUNGKAN ISI DARI 2 BUAH STRING
- MENYISIPKAN ISI DARI SEBUAH STRING KEDALAM STRING LAIN
- PROGRAM BERBENTUK PILIHAN MENU
DALAM MEMBUAT PROGRAM INI SAYA MENGGUNAKAN PASCAL PROGRAM
BERIKUT INI ADALAH SINTAKS NYA :
program cobastring;
uses crt;
var
(*pendeklarasian tipe data variable*)
pil,hasil:integer;
s,s1,s2,hasilconcat,x1,x2:string;
(*string merupakan tipe data yang mengalokasikan ruang untuk 256 karakter*)
a,x:integer;
jawab: char;
begin
clrscr;
repeat
(*repeat untuk pengulangan yang akan terus di lakukan apabila kondisi yg di definisikan masih bernilai false*)
writeln('----------------MENU-----------------');
writeln('1. Mencari panjang dari sebuah string');
writeln('2. Menggabungkan isi dari 2 buah string');
writeln('3. Menyisipkan isi dari sebuah string kedalam string lain');
writeln;
writeln;
write('masukkan nomer menu yang anda pilih : ');readln(pil);
case pil of
(*catatan untuk statement case yaitu kita harus menempatkan statement tersebut di dalam blok begin*)
1: begin
writeln;
write('masukkan sebuah string: ');readln(s);
a:=length(s); (*length yaitu cara untuk mendapatkan panjang string*)
writeln('Panjang string : ',a);
readln;
end;
2: begin
writeln;
write('masukkan string 1 : ');readln(s1);
writeln;
write('masukkan string 2 : ');readln(s2);
hasilconcat:=concat(s1,s2);
(*concat yaitu fungsi utk melakukan penggabungan terhadap string-string yg menjadi parameternya*)
writeln;
writeln('string baru : ',hasilconcat);
readln;
end;
3:begin
writeln;
write('masukkan string 1 : ');readln(x1);
writeln;
write('masukkan string 2 : ');readln(x2);
writeln;
write('pada posisi ke berapa string 1 akan di sisipkan ke string 2 : ');readln(x);
insert(x1,x2,x);(*insert utk menyisippkan string 1 ke string lainya*)
writeln;
writeln('string baru : ',x2);
readln;
end;
end;
clrscr;
writeln('apakah anda ingin kembali ke menu ? (y/t)');readln(jawab);
until (jawab= 't');
end.
Menu 1.
Menu 2
BERIKUT INI CODDING NYA :
program npmdanjurusan;
uses crt;
var
npm,jurusan1,jurusan2,angkatan1,angkatan2: string;
y,z : integer;
begin
clrscr;
write ('Masukkan 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 dan akuntansi dan seterusnya sesuai database*)
jurusan1:=copy(npm,1,1);
if jurusan1= '1' then jurusan2:='Strata 1 - SISTEM INFORMASI '
else
if jurusan1= '2' then jurusan2:='Diploma3 - MENEJEMEN INFORMATIKA '
else
if jurusan1= '3' then jurusan2:='STRATA 1 - TEKHNIK INFORMATIKA '
else
if jurusan1= '4' then jurusan2:='STRATA 1 - SASTRA INGGRIS '
else
if jurusan1= '5' then jurusan2:='STRATA 1 - MENEJEMEN AKUNTANSI '
else
if jurusan1= '6' then jurusan2:='STRATA 1 - TEKHNIK INDUSTRI '
(*database bisa di update dan di masukkan lebih banyak lagi dg menggunakan fungsi IF*)
else
jurusan2:=' MAAF ANDA TIDAK TERDAFTAR SEBAGAI MAHASISWA UNIVERSITAS GUNADARMA ';
writeln;
writeln('Jurusan anda adalah : ',jurusan2);
writeln;
angkatan1:=copy (npm,4,2);
(*untuk mengambil string angka ke 4 sebanyak 2 karakter*)
val(angkatan1,y,z);
if y>81 then
writeln('Anda adalah mahasisa Universitas Gundarma angkatan 19',y)
else
if y<10 then
begin
str(y:1,angkatan2);
insert('0',angkatan2,1);
writeln('Anda adalah mahasiswa Universitas Gunadarma angkatan 20',angkatan2);
end;
readln;
end.
OUTPUT
