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 :
langkah membuat jawaban soal nomor 1
masukan source code ini ke bahasa program pascal
USES CRT;
VAR NAMA1, NAMA2 : STRING[30];
A : INTEGER;
PILIHAN : REAL;
BEGIN
WRITELN ('==========PROGRAM PUNYA ECHA===========');
WRITELN ('== 1. INSERT STRING ==');
WRITELN ('== 2. MENGGABUNGKAN STRING ==');
WRITELN ('== 3. MENGHITUNG PANJANG STRING ==');
WRITELN ('== 4. EXIT ==');
WRITELN ('========================================');
WRITELN;
WRITELN ('MASUKIN PILIHANNYA DONG : ');
READLN (PILIHAN);
{PERINTAH WRITELN DIGUNAKAN UNTUK MENAMPILKAN}
CASE PILIHAN OF {CASE OF DIGUNAKAN UNTUK MENAMPILKAN PILIHAN MENU}
1 : BEGIN
CLRSCR; {CLRSCR DIGUNAKAN UNTUK MENGHAPUS LAYAR}
WRITE ('STRING PERTAMA = ');
READLN (NAMA1);
WRITE ('MASUKAN STRING YANG INGIN DI SISIPKAN = ');
READLN (NAMA2);
WRITE ('DISISIPKAN DI STRING KE - ');
READLN (A);
INSERT (NAMA2,NAMA1,A);
WRITELN ('HASILNYA = ' ,NAMA1);
READLN;
END;
2 : BEGIN
CLRSCR;
WRITELN ('MASUKAN KARAKTER PERTAMA = ');
READLN (NAMA1);
WRITELN ('MASUKAN KARAKTER KEDUA = ');
READLN (NAMA2);
WRITELN ('HASILNYA = ',(CONCAT(NAMA1,' ',NAMA2)));
READLN;
END;
3 : PILIHAN
CLRSCR;
WRITE ('MASUKAN STRING = ');
READLN (NAMA1);
WRITELN ('PANJANG STRING ADALAH ',LENGTH(NAMA1), ' KARAKTER');
READLN;
END;
END;
READLN;
END.
Bila program di jalankan akan tampil seperti ini :
Bila saya memilih pilihan menu yang ke - 1 :
Bila saya memilih menu yang ke - 2 :
Bila saya memilih menu yang ke - 3:
___________________________________________________________________________________________________________
___________________________________________________________________________________________________________
___________________________________________________________________________________________________________
___________________________________________________________________________________________________________
___________________________________________________________________________________________________________
___________________________________________________________________________________________________________
masukan source code ini ke bahasa program pascal
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.
bila program di jalankan akan menghasilkan output seperti ini :
