Program Record Data Mahasiswa Menggunakan Pascal ( type data sudah ditentukan )

Salam sobat blogger, Hari ini 100persenworking akan membagi ilmu tentang pemrograman pascal.kita akan membuat Program Record / Perulangan Data Mahasiswa Menggunakan Turbo Pascal.

Pada postingan sebelumnya 100persenworking sudah membagi info tentang cara membuat Program Record / Perulangan Data KTP, kemudian kali ini kita membuat program pascal dengan metode yang sama yaitu record. perbedaan dengan posting sebelumnya adalah data yang dimasukan sudah ditentukan dari awal sehingga bila data yang diinputkan tidak sesuai variable yang sudah ditentukan maka proses input akan gagal.

Record adalah program yang akan menyimpan dan menampilkan kembali apa yang kita input atau kita masukkan.

Buka program Pascal- file - new

Ketikan script berikut, ( hanya yang berwarna biru ) kemudian save lalu run.

Program data_mhs_100persenworking;

uses crt;

type mahasiswa = record

nim : string[8];

namamhs : string[25];

prodi : string[30];

semester : integer;

makul : string [30];

dosen : string [30];

sks : integer;

pembimbing : string[30];

end;

var

data :mahasiswa;

begin

clrscr;

writeln ('Masukan data mahasiswa:');

write ('NIM:');readln(data.nim);

write ('NAMA MAHASISWA:');readln(data.namamhs);

write ('PROGAM STUDI:');readln(data.prodi);

write ('SEMESTER:');readln(data.semester);

write ('MATA KULIAH:');readln(data.makul);

write ('DOSEN PENGAMPU:');readln(data.dosen);

write ('SKS:');readln(data.sks);

write ('PEMBIMBING AKADEMIK:');readln(data.pembimbing);

writeln;

writeln ('DATA MAHASISWA KELAS C');

writeln ('AR UNIVERCITY');

writeln ('=======================================');

writeln ('NIM : ', data.nim);

writeln ('NAMA MAHASISWA :', data.namamhs);

writeln ('PROGAM STUDI :', data.prodi);

writeln ('SEMESTER :', data.semester);

writeln ('MATA KULIAH :', data.makul);

writeln ('DOSEN PENGAMPU :', data.dosen);

writeln ('SKS :', data.sks);

writeln ('PEMBIMBING AKADEMIK:', data.pembimbing);

writeln ('---------------------------------------');

writeln ;

writeln (' Petugas Akademik');

writeln (' Santi');

readln ;

end.

keterangan

Program Welcome adalah nama program ( anda bisa mengganti "Welcome"sesuai keinginan anda)
var adalah variable yang digunakan untuk menentukan type data saat melakukan input data.
Writeln untuk mencetak hasil setelah program dijalankan.
write untuk menentukan input data.
Readln untuk membaca baris kosong dan memisahkan antara write dan writeln.
Nim, nama, prodi, makul, dosen didefinisikan sebagai string.
sks didefinisikan sebagai integer.
End untuk mengakhiri program.
kemudian Run dengan menekan ctrl + f9