NPM : 13109841
Kelas : 2ka17
SOAL
1.Buatlah program dengan kriteria program sebagai berikut :
*Mencari panjang dari sebuah string
*Menggabungkan isi dari 2 buah string
*menyisipkan isi dari sebuah string kedalam string lain
JAWABAN :
program operasi_string;
uses wincrt;
var
string1, string2 : string;
begin
clrscr;
writeln ('soal pertama');
writeln ('menghitung panjang suatu string'); writeln;
write ('masukkan suatu string : '); readln (string1);
writeln ('panjang stringnya adalah : ',length(string1),' karakter');
writeln ('#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#'); writeln;
writeln ('soal kedua');
writeln ('menggabungkan dua buah string'); writeln;
write ('masukkan string pertama : '); readln (string1);
write ('masukkan string kedua : '); readln (string2);
writeln ('hasil penggabungannya : ',concat (string1,string2));
writeln ('#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#_#'); writeln;
writeln ('soal ketiga');
writeln ('menyisipkan isi dari string petama ke dalam string kedua'); writeln;
write ('masukkan string pertama : '); readln (string1);
write ('masukkan string kedua : '); readln (string2);
insert (string1,string2,3);
write ('string1 disisipkan ke dalam string2 pada karakter ke-3 : ', string2);
end.
Soal ke 2
Buatlah program untuk menampilkan jurusan dan angkatan seorang mahasiswa di universitas gunadarma berdasarkan NPM
JAWABAN :
program program_npm;
uses wincrt;
var
npm,copy1,copy2,jurusan,angkatan : string;
begin
clrscr;
write ('masukkan NPM Mahasiswa : ');
readln(npm); writeln;
copy1:=copy(npm,1,1);
copy2:=copy(npm,3,1);
angkatan:=copy(npm,4,2);
if (copy1='1') and (copy2='1') then
jurusan:='Sistem Informasi'
else
if (copy1='2') and (copy2='2') then
jurusan:='Akuntansi'
else
if (copy1='1') and (copy2='6') then
jurusan:='Sastra Inggris'
else
if (copy1='1') and (copy2='2') then
jurusan:='Manajemen'
else
if (copy1='4') and (copy2='1') then
jurusan:='Teknik Komputer'
else
if (copy1='5') and (copy2='4') then
jurusan:='Teknik Informasi'
else
jurusan:='Maaf, jurusan anda belum Kami ketahui';
writeln('Jurusan anda adalah : ',jurusan);
writeln('Anda adalah angkatan : ',angkatan);
end.
