soal dan jawaban rumus turbo pascal 7

1. contoh soal pengisian biodata dengan menggunakan turbo pascal 7 berserta penjelasannya

Program biodata_mahasiswa;
uses crt;
var
   x : string; 
   y : string; 
   z : string;
   f : integer; 
   j : integer;
begin
clrscr;
     writeln('BIODATA MAHASISWA');
     writeln('************************');
     write('Masukkan Nama anda     : ');readln(x);
     write('Masukkan NIM anda        : ');readln(y);

     write('Masukkan Jurusan anda   : ');readln(z);
     write('Masukkan angka perulangan : ');readln(f);
     writeln('   NAMA          NIM        JURUSAN     ');
     writeln('**************************************');
     j := 0;
     repeat
     j := j+1;
    writeln(x ,'    ',y,'      ',z);
    until  j = f;
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('   NAMA       NIM      JURUSAN    ');     {Cetak NAMA      NIM    JURUSAN}
     writeln('**********************************');     {Cetak ****************************************}
     j := 0;     {Nilai awal j}
     repeat     {Ulang kerjakan}
     j := j+1;     {Counter penjumlahan j}
     writeln(x ,'   ',y,'       ',z);     {Cetak variabel x, variabel y, variabel z}
     until j = f;     {Pembatasan repeat}
readkey;     {Instruksi untuk menunggu}
end.      {Akhir instruksi program}