Dapet tugas Struktur Organisasi 2 di kampus :D
Disuruh bikin :
1. Program dengan ketentuan sebagai berikut
a. panjang dari sebuah string
b. menggabungkan isi dari dua buah string
c. menyisipkan isi sebuah string ke dalam string lain
2. Program untuk menampilkan jurusan & angkatan mahasiswa berdasarkan NPM
Oke, program pertama, langsung aja nih ketik script di bawah ini, hehe
Untuk penjelasan, bisa langsung diliat di bagian komentar program, komentar program di dalem ini nih '{ }'.
USES CRT;
VAR NAMA1, NAMA2 : STRING;
A : INTEGER;
PILIHAN : BYTE;
{DIKASIH VARIABEL DULU, DISINI ADA TIGA MACAM TIPE DATA YG DIGUNAKAN YAITU STRING, BYTE, DAN INTEGER}
BEGIN {KALO MAU MULAI NULIS SCRIPT DI PASCAL, HARUS PAKE 'BEGIN' DULU}
CLRSCR;
WRITELN ('/////////////////PROGRAM PUNYA AKBAR/////////////////');
WRITELN ('///\\\ 1. INSERT STRING ///\\\');
WRITELN ('///\\\ 2. MENGGABUNGKAN STRING ///\\\');
WRITELN ('///\\\ 3. MENGHITUNG PANJANG STRING ///\\\');
WRITELN ('///\\\ 4. EXIT ///\\\');
WRITELN ('/////////////////////////////////////////////////////');
WRITELN ('//////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\');
WRITELN;
{TULISAN DIATAS DIMAKSUDKAN UNTUK MENAMPILKAN MENU PILIHAN}
WRITELN ('MASUKIN PILIHANNYA DONG : ');
READLN (PILIHAN);
CASE PILIHAN OF
{NAHDIMASUKIN DEH PILIHANNYA, MASING-MASING PILIHAN PUNYA PROGRAM YANG BERDIRI SENDIRI}
1:BEGIN
CLRSCR;
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); {INI PROSEDUR STANDAR BUAT MENYISIPKAN STRING 'INSERT'}
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))); {CONCAT BUAT GABUNGIN STRING}
READLN;
END;
3 : BEGIN
CLRSCR;
WRITE ('MASUKAN STRING = ');
READLN (NAMA1);
WRITELN ('PANJANG STRING ADALAH ',LENGTH(NAMA1), ' KARAKTER'); {BUAT MENGHITUNG PANJANG STRING}
READLN;
END;
END;
READLN;
END.
Kalo udah di ketik di pascal, langsung aja di run.
Hasilnya kaya gini nih
2. Ini program yang kedua susah susah gampang deh, tapi gw tetep ga bisa.
Jadi nih langsung gw kasih scriptnya
USES CRT;
VAR NPM,JUR1,JUR2,ANG1,ANG2 : STRING;
A,B,C : INTEGER;
BEGIN
CLRSCR;
WRITE ('MASUKAN NPM ANDA :');
READLN (NPM);
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 <>
STR(B:1,ANG2);
INSERT('0',ANG2,1);
WRITELN('ANDA TERMASUK ANGKATAN 20',ANG2,'.'); END;
WRITELN('ANDA TERMASUK ANGKATAN 20',B,'.');
END;
READLN;
END.
Ini program temen gw yang bikin, yang ini saya kurang mengerti -_______-
