Assalamu’alaykum sobat semuanya.
Saya kembali lagi, kali ini kita
akan membahas tentang cara membuat program KRS menggunakan program turbo
pascal. Pasti sobat sudah tau kan apa itu turbo pascal. Nah, buat yang belum
tau turbo pascal itu adalah Bahasa
Pemograman Tingkat Tinggi
(High Level Language) yang terkenal dengan
pemograman terstruktur dan
bernaung di bawah
sistem operasi
MS-DOS. Adapun Aplikasi Turbo Pascal adalah untuk
penanganan Matematika, Database dan Lain lain.
Yuk langsung saya akan kasih tau
bagaimana cara membuat programnya.
1. Buka program turbo
pascal sobat. Jika sudah terbuka
tampilannya akan seperti ini:
2. Silahkan ketikkan
koding berikut di aplikasi turbo pascal yang sudah sobat buka tadi.
uses
crt;
var
i,j:byte;
nama,programstudi,kode,matakuliah,dosen:array[1..10]
of string;
no,npm,sks:array[1..10] of integer;
begin
clrscr;
write('Input Jumlah Data:');
readln(j);
for i:=1 to j do
begin
write('Kode ke-',i,':');
readln(kode[i]);
write('Mata Kuliah ke-',i,':');
readln(matakuliah[i]);
write('SKS ke-',i,':');
readln(sks[i]);
write('Dosen ke-',i,':');
readln(dosen[i]);
end;
clrscr;
writeln(' KARTU RENCANA
STUDI ');
writeln('NPM : 14110567 T.A : 2014/2015');
writeln('Nama : Dessy Nurazizah Semester : II-Genap Kelas: SI-P1402');
writeln('Konsentrasi : Sistem Informasi Dosen P.A: Hery Sunandar, ST, M.Kom');
writeln('Program Studi: S1-Teknik
Informatika');
writeln(' ');
writeln('No
Kode Mata Kuliah SKS Dosen');
writeln('=======================================================================');
for i:=1 to 3 do
begin
gotoxy(5,i+8);writeln(kode[i]);
gotoxy(15,i+8);writeln(matakuliah[i]);
gotoxy(37,i+8);writeln(sks[i]);
gotoxy(45,i+8);writeln(dosen[i]);
gotoxy(1,i+8);writeln(i);
readln;
end;
end. 3. Setelah kodingnya sudah selesai sobat tulis. Tekan tombol Ctrl+F9 pada keyboard sobat.
Tampilannya akan
seperti ini:
4. Lalu tampilannya akan seperti berikut :
Sekian dulu postingan dari saya. Semoga bermanfaat
buat sobat semua.
Wassalamu’alaykum warahmatullahi wabarakatuh.





Saya telah mencoba nya kak,namun kompilasi tidak berhasil
BalasHapusGagal