Program biodata mahasiswa

Berikut merupakan Program untuk biodata mahasiswa menggunakan bahasa Pascal dengan menggunakan statement WHILE.

• SOURCE CODE

Program biodata_mahasiswa;
uses crt;
var
   x : string;
   y : string;
   z : string;
   f : integer;
   j : integer;
begin
clrscr;
     Writeln('BIODATA MAHASISWA');
     Writeln('************************');
     Writeln;
     Write('Masukkan Nama anda      :');readln(x);
     Write('Masukkan NIM anda         :');readln(y);
     Write('Masukkan Jurusan anda    :');readln(z);
     Writeln;
     Writeln;
     Write('Masukkan angka pengulangan : ');readln(f);
     Writeln;
     Writeln('   NAMA     NIM      JURUSAN    ');
     Writeln('*********************************');
        j := 0;
        while (j<f) do
        begin
          writeln(x,'     ',y,'     ',z);
          j := j + 1;
        end;
readkey;
end.

• PENJELASAN SOURCE CODE

Program biodata_mahasiswa;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   x : string;     {Inisiasi variabel}
   y : string;     {Inisiasi variabel}
   z : string;     {Inisiasi variabel}
   f : integer;     {Inisiasi variabel}
   j : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     Writeln('BIODATA MAHASISWA');     {Cetak BIODATA MAHASISWA}
     Writeln('************************');     {Cetak ************************}
     Writeln;     {Cetak baris}
     Write('Masukkan Nama anda     : ');     {Cetak Masukkan Nama anda  :}
     readln(x);     {Baca variabel x}
     Write('Masukkan NIM anda        : ');     {Cetak Masukkan NIM anda     :}
     readln(y);     {Baca variabel y}
     Write('Masukkan Jurusan anda   : ');     {Cetak Masukkan Jurusan anda   :}
     readln(z);     {Baca variabel z}
     Writeln;     {Cetak baris}
     Writeln;     {Cetak baris}
     Write('Masukkan angka perulangan : ');     {Cetak Masukkan angka perulangan :}
     readln(f);     {Baca variabel f}
     Writeln;     {Cetak baris}
     Writeln('   NAMA    NIM    JURUSAN   ');     {Cetak NAMA    NIM    JURUSAN}
     Writeln('******************************');     {Cetak *************************}
         j := 0;     {Nilai awal j}
         while (j<f) do     {Pengecekan statement while apakah j<f, jika ya kerjakan statement dibawah}
           begin     {Awal instruksi program}
             writeln(x,'    ',y,'     ',z);     {Cetak variabel x, variabel y, variabel z}
              j := j+1;      {Counter penjumlahan j}
          end;     {Akhir instruksi kondisi}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source Code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program                  : Biodata mahasiswa
• Source Program .pdf       : .:_Download_:.
• Flowchart .png                : .:_Download_:.
• Program .pas                   : .:_Download_:.
• Password                         : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file diatas klik Disini, untuk mempelajarinya.