Sudah 5 semester aku menjalani perkuliahan, sehingga bilangan itulah yang merupakan jawaban dari pertanyaan:
“Sudah berapa kalikah aku menerima LHS (Laporan Hasil Studi) yang intinya adalah laporan mengenai Indeks Prestasiku”
Untuk semester ke-5, aku sudah mengetahui seluruh nilai dari mata kuliah yang sedang ku ambil waktu itu jauh-jauh hari sebelum aku menerima LHS-ku dari Registrasi Universitas. Kawan-kawan sepermainanku sudah sibuk mengkalkulasikan nilai-nilai yang didapatnya untuk mengetahui segera berapa IP-nya, dengan bantuan sebuah pensil atau pena dan secarik kertas.
Melihat keseriusan kawan-kawanku, akupun termenung duajenak dan berinisiatif untuk membuat semacam program SEDERHANA dengan bahasa pemrograman Turbo Pascal untuk menghitung Indeks Prestasi mahasiswa, akhirnya lahirlah (maksudnya terciptalah/”kan program tidak punya ibu”) sintaks program Penghitungan IP Mahasiswa seperti yang pembaca anda lihat di computer anda, iaitu sebagai berikut.
Tapi sebelum anda melihat sintaksnya, ada sedikit triks agar kita tidak harus menulis ulang sintaks tersebut pada bahasa pemrograman Turbo Pascal, lihat triks itu pada bagian sesudah sintaks program ini, OK? Memenuhi tanggapan dari sahabat Dian (dianz.182@gmail.com) berikut sintaks programnya
uses crt;
label risa_nabila,ryprodotblogspotdotcom,cp085263014501;
var b,d:array[1..77] of string; c,g,h,i:array[1..77] of longint;
a,e,f,m,k:longint; j,l,n:string; z:char;
begin clrscr;
gotoxy(7,10);
writeln('"SELAMAT DATANG DI PROGRAM PENGHITUNGAN INDEKS PRESTASI MAHASISWA"');
z:=readkey; clrscr;
write('Nama : '); readln(j);
write('Pekerjaan : ');
delay(277);gotoxy(30,2);writeln('Mahasiswa');
write('Nama Perguruan Tinggi : '); readln(n);
write('Program Studi : '); readln(l);
write('Tahun Masuk : '); readln(m);
write('NIM : '); readln(k);
clrscr;
writeln('Hye ',j,', bacalah petunjuk penggunaan program ini terlebih dahulu!');
readln; clrscr;
writeln('Pada program ini pemakai program akan diminta memasukkan data');
writeln('tentang nama mata kuliah, jumlah sks dari mata kuliah tersebut');
writeln('dan nilai yang didapat untuk mata kuliah itu, nilai yang bisa');
writeln('dimasukkan adalah dari A sampai dengan E, jika ada nilai mata');
writeln('kuliah yang BL (Belum Lengkap) maka tidak usah saja dimasukkan');
writeln('data tentang mata kuliah tersebut, karena tidak akan mempengaruhi');
writeln('IP anda, OK ',j,'?!');
readln; clrscr;
f:=0;
risa_nabila: inc(f);
for a:=f to f do
begin
writeln('Data ke-',f);
write('Nama Mata Kuliah : '); readln(b[a]);
write('Jumlah SKS : '); readln(c[a]);
write('Nilai : '); readln(d[a]);
if d[a] = 'a' then d[a]:= 'A' else if d[a] = 'A' then d[a]:= 'A' else
if d[a] = 'b' then d[a]:= 'B' else if d[a] = 'B' then d[a]:= 'B' else
if d[a] = 'c' then d[a]:= 'C' else if d[a] = 'C' then d[a]:= 'C' else
if d[a] = 'd' then d[a]:= 'D' else if d[a] = 'D' then d[a]:= 'D' else
if d[a] = 'e' then d[a]:= 'E' else if d[a] = 'E' then d[a]:= 'E' else
goto ryprodotblogspotdotcom;
end; writeln(#10);
writeln('Tekan 1 untuk memasukkan data mata kuliah lain!');
write('Atau tekan 0 untuk melihat perhitungan indeks prestasi! ');
readln(e); clrscr;
if e=1 then goto risa_nabila else if e=0 then clrscr else goto ryprodotblogspotdotcom;
gotoxy(27,1);writeln(n);
gotoxy(27,3);writeln('LAPORAN HASIL STUDI');
gotoxy(27,6);writeln('Nama : ',j);
gotoxy(27,7);writeln('Program Studi : ',l);
gotoxy(27,8);writeln('TM / NIM : ',m,' / ',k);
gotoXY(1,11);writeln('-------------------------------------------------------------------------------');
gotoxY(1,12);writeln('I No. I Mata Kuliah I SKS I NIlai I');
gotoxy(1,13);writeln('-------------------------------------------------------------------------------');
for a:=1 to f do
begin
gotoXY(1,13+a);write('I'); gotoxy(4,13+a);write(a); gotoxy(7,13+a);write('I');
gotoXY(9,13+a);write(b[a]); gotoXY(61,13+a);write('I'); write(c[a]:4);
write('I':4); write(d[a]:5); write('I':5);
end;
gotoXY(1,f+14);writeln('-------------------------------------------------------------------------------');
g[a-1]:=0; i[a-1]:=0;
for a:=1 to f do
begin
if d[a] = 'A' then h[a]:=c[a]*4 else
if d[a] = 'B' then h[a]:=c[a]*3 else
if d[a] = 'C' then h[a]:=c[a]*2 else
if d[a] = 'D' then h[a]:=c[a]*1 else h[a]:=0;
g[a]:=g[a-1]+h[a];
i[a]:=i[a-1]+c[a];
end;
GOTOXY(1,f+15);write('IP: ',g[a]/i[a]:3:2);
gotoxy(53,f+15);write('Jumlah: ',i[a]:5,' SKS');
goto cp085263014501;
ryprodotblogspotdotcom: clrscr;
gotoxy(11,10);
writeln('Maaf, Anda tidak mengikuti prosedur yang telah ditetapkan');
gotoxy(21,12); writeln('Ketikkanlah masukan dengan benar!');
cp085263014501:
readln;clrscr;
gotoxy(31,11);write('rypro.blogspot.com');
readln end.
Ada suatu triks lho untuk membuatnya di Program Turbo Pascal tanpa harus mengetik ulang sintaks program di atas, berikut pnuturannya (seperti orang yang diintrogasi saja):
1. Pertama bukalah program Notepad, dengan cara tekan Windows+R untuk membuka jendela Run, kemudian ketik “Notepad” (tanpa tanda kutip) atau dengan cara lain, depend on you lah
2. Kemudian copy sintaks di atas dan pastekan ke lembaran kosong Notepad tadi, kemudian save dengan nama IP (nama lain juga boleh), dan pilih lokasi penyimpanannya di direktori program pascal anda,di computer anda, biasanya Pascal>Bin>IP. Kemudian klik save
3. Lalu yang ketiga, pergilah ke pasar untuk membeli sayur, apa hubungannya kawan???, maksudnya pergilah ke Windows Explorer, ke direktori atau folder tempat anda menyimpan file notepad yang bernama IP tadi.
4. Kemudian ambil pada menu di atas, Tools>Folder Options…>View>Hilangkan tanda ceklis pada samping kiri tulisan “Hide extenssions for known file types”
5. Kemudian ubah tulisan “txt” menjadi “pas”, karena “pas” adalah extensions untuk file-file Turbo Pascal, sehingga file kita sekarang bernama IP.pas dan ketika keluar pesan dari Windows klik Yes.
6. Kemudian buka program Turbo Pascal anda, dan menuju ke direktori tempat kita menyimpan file IP.pas tadi, kalau tadi kita menyimpannya pada Turbo Pascal di folder Bin, Open>lalu buka file tersebut, dan silakan mencobanya, and now barulah I can say to you all “SELAMAT MENCOBA”
Akhirnya setelah selesai, akupun langsung mencobanya untuk mengetahui IP-ku hanya dalam waktu sebentar saja, yaitu seberapa cepat aku menginputkan data yang diminta, akupun dapat mengetahui berapa ip-ku, sementara temanku untuk melakukan hal yang sama butuh waktu 3 bentar.
Hai, para teman yang telah membaca artikel ini, please berikan komentarmu!!!
“Sudah berapa kalikah aku menerima LHS (Laporan Hasil Studi) yang intinya adalah laporan mengenai Indeks Prestasiku”
Untuk semester ke-5, aku sudah mengetahui seluruh nilai dari mata kuliah yang sedang ku ambil waktu itu jauh-jauh hari sebelum aku menerima LHS-ku dari Registrasi Universitas. Kawan-kawan sepermainanku sudah sibuk mengkalkulasikan nilai-nilai yang didapatnya untuk mengetahui segera berapa IP-nya, dengan bantuan sebuah pensil atau pena dan secarik kertas.
Melihat keseriusan kawan-kawanku, akupun termenung duajenak dan berinisiatif untuk membuat semacam program SEDERHANA dengan bahasa pemrograman Turbo Pascal untuk menghitung Indeks Prestasi mahasiswa, akhirnya lahirlah (maksudnya terciptalah/”kan program tidak punya ibu”) sintaks program Penghitungan IP Mahasiswa seperti yang pembaca anda lihat di computer anda, iaitu sebagai berikut.
Tapi sebelum anda melihat sintaksnya, ada sedikit triks agar kita tidak harus menulis ulang sintaks tersebut pada bahasa pemrograman Turbo Pascal, lihat triks itu pada bagian sesudah sintaks program ini, OK? Memenuhi tanggapan dari sahabat Dian (dianz.182@gmail.com) berikut sintaks programnya
uses crt;
label risa_nabila,ryprodotblogspotdotcom,cp085263014501;
var b,d:array[1..77] of string; c,g,h,i:array[1..77] of longint;
a,e,f,m,k:longint; j,l,n:string; z:char;
begin clrscr;
gotoxy(7,10);
writeln('"SELAMAT DATANG DI PROGRAM PENGHITUNGAN INDEKS PRESTASI MAHASISWA"');
z:=readkey; clrscr;
write('Nama : '); readln(j);
write('Pekerjaan : ');
delay(277);gotoxy(30,2);writeln('Mahasiswa');
write('Nama Perguruan Tinggi : '); readln(n);
write('Program Studi : '); readln(l);
write('Tahun Masuk : '); readln(m);
write('NIM : '); readln(k);
clrscr;
writeln('Hye ',j,', bacalah petunjuk penggunaan program ini terlebih dahulu!');
readln; clrscr;
writeln('Pada program ini pemakai program akan diminta memasukkan data');
writeln('tentang nama mata kuliah, jumlah sks dari mata kuliah tersebut');
writeln('dan nilai yang didapat untuk mata kuliah itu, nilai yang bisa');
writeln('dimasukkan adalah dari A sampai dengan E, jika ada nilai mata');
writeln('kuliah yang BL (Belum Lengkap) maka tidak usah saja dimasukkan');
writeln('data tentang mata kuliah tersebut, karena tidak akan mempengaruhi');
writeln('IP anda, OK ',j,'?!');
readln; clrscr;
f:=0;
risa_nabila: inc(f);
for a:=f to f do
begin
writeln('Data ke-',f);
write('Nama Mata Kuliah : '); readln(b[a]);
write('Jumlah SKS : '); readln(c[a]);
write('Nilai : '); readln(d[a]);
if d[a] = 'a' then d[a]:= 'A' else if d[a] = 'A' then d[a]:= 'A' else
if d[a] = 'b' then d[a]:= 'B' else if d[a] = 'B' then d[a]:= 'B' else
if d[a] = 'c' then d[a]:= 'C' else if d[a] = 'C' then d[a]:= 'C' else
if d[a] = 'd' then d[a]:= 'D' else if d[a] = 'D' then d[a]:= 'D' else
if d[a] = 'e' then d[a]:= 'E' else if d[a] = 'E' then d[a]:= 'E' else
goto ryprodotblogspotdotcom;
end; writeln(#10);
writeln('Tekan 1 untuk memasukkan data mata kuliah lain!');
write('Atau tekan 0 untuk melihat perhitungan indeks prestasi! ');
readln(e); clrscr;
if e=1 then goto risa_nabila else if e=0 then clrscr else goto ryprodotblogspotdotcom;
gotoxy(27,1);writeln(n);
gotoxy(27,3);writeln('LAPORAN HASIL STUDI');
gotoxy(27,6);writeln('Nama : ',j);
gotoxy(27,7);writeln('Program Studi : ',l);
gotoxy(27,8);writeln('TM / NIM : ',m,' / ',k);
gotoXY(1,11);writeln('-------------------------------------------------------------------------------');
gotoxY(1,12);writeln('I No. I Mata Kuliah I SKS I NIlai I');
gotoxy(1,13);writeln('-------------------------------------------------------------------------------');
for a:=1 to f do
begin
gotoXY(1,13+a);write('I'); gotoxy(4,13+a);write(a); gotoxy(7,13+a);write('I');
gotoXY(9,13+a);write(b[a]); gotoXY(61,13+a);write('I'); write(c[a]:4);
write('I':4); write(d[a]:5); write('I':5);
end;
gotoXY(1,f+14);writeln('-------------------------------------------------------------------------------');
g[a-1]:=0; i[a-1]:=0;
for a:=1 to f do
begin
if d[a] = 'A' then h[a]:=c[a]*4 else
if d[a] = 'B' then h[a]:=c[a]*3 else
if d[a] = 'C' then h[a]:=c[a]*2 else
if d[a] = 'D' then h[a]:=c[a]*1 else h[a]:=0;
g[a]:=g[a-1]+h[a];
i[a]:=i[a-1]+c[a];
end;
GOTOXY(1,f+15);write('IP: ',g[a]/i[a]:3:2);
gotoxy(53,f+15);write('Jumlah: ',i[a]:5,' SKS');
goto cp085263014501;
ryprodotblogspotdotcom: clrscr;
gotoxy(11,10);
writeln('Maaf, Anda tidak mengikuti prosedur yang telah ditetapkan');
gotoxy(21,12); writeln('Ketikkanlah masukan dengan benar!');
cp085263014501:
readln;clrscr;
gotoxy(31,11);write('rypro.blogspot.com');
readln end.
Ada suatu triks lho untuk membuatnya di Program Turbo Pascal tanpa harus mengetik ulang sintaks program di atas, berikut pnuturannya (seperti orang yang diintrogasi saja):
1. Pertama bukalah program Notepad, dengan cara tekan Windows+R untuk membuka jendela Run, kemudian ketik “Notepad” (tanpa tanda kutip) atau dengan cara lain, depend on you lah
2. Kemudian copy sintaks di atas dan pastekan ke lembaran kosong Notepad tadi, kemudian save dengan nama IP (nama lain juga boleh), dan pilih lokasi penyimpanannya di direktori program pascal anda,di computer anda, biasanya Pascal>Bin>IP. Kemudian klik save
3. Lalu yang ketiga, pergilah ke pasar untuk membeli sayur, apa hubungannya kawan???, maksudnya pergilah ke Windows Explorer, ke direktori atau folder tempat anda menyimpan file notepad yang bernama IP tadi.
4. Kemudian ambil pada menu di atas, Tools>Folder Options…>View>Hilangkan tanda ceklis pada samping kiri tulisan “Hide extenssions for known file types”
5. Kemudian ubah tulisan “txt” menjadi “pas”, karena “pas” adalah extensions untuk file-file Turbo Pascal, sehingga file kita sekarang bernama IP.pas dan ketika keluar pesan dari Windows klik Yes.
6. Kemudian buka program Turbo Pascal anda, dan menuju ke direktori tempat kita menyimpan file IP.pas tadi, kalau tadi kita menyimpannya pada Turbo Pascal di folder Bin, Open>lalu buka file tersebut, dan silakan mencobanya, and now barulah I can say to you all “SELAMAT MENCOBA”
Akhirnya setelah selesai, akupun langsung mencobanya untuk mengetahui IP-ku hanya dalam waktu sebentar saja, yaitu seberapa cepat aku menginputkan data yang diminta, akupun dapat mengetahui berapa ip-ku, sementara temanku untuk melakukan hal yang sama butuh waktu 3 bentar.
Hai, para teman yang telah membaca artikel ini, please berikan komentarmu!!!
