Rabu, 23 Desember 2015

ِبِسْمِ اللَّهِ الرَّحْمَنِ الرَّحِيم

Turbo Pascal

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:


Silahkan sobat isi jumlah data, Kode, Mata Kuliah, SKS, Dosen sesuai yang sobat inginkan.

4.  Lalu tampilannya akan seperti berikut :


Sekian dulu postingan dari saya. Semoga bermanfaat buat sobat semua.

Wassalamu’alaykum warahmatullahi wabarakatuh.

1 komentar:

  1. Saya telah mencoba nya kak,namun kompilasi tidak berhasil
    Gagal

    BalasHapus