Sumber blog : rypro.blogspot.com
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”