Program Data Mahasiswa


Berikut ini contoh program data mahasiswa di pascal kiriman Dianita Wahyu Kurniasih

Program data_mhs;

uses wincrt;

type mahasiswa = record
  nim       : string[8];
  nama      : string[25];
  umur      : integer;
end;

var
data:mahasiswa;

begin
  clrScr;
  writeln ('Masukkan data diri Anda : ' );
  write   ('Nim    : ' );readln(data.Nim);
  write   ('Nama   : ' );readln(data.Nama);
  write   ('Umur   : ' );readln(data.Umur);

  writeln;  {Memasukkan baris kosong}

  {Menampilkan data yang telah dimasukan}
  writeln ('Beikut ini informasi data diri yang telah anda masukkan : ');
  writeln ('Nim    : ' , data.Nim);
  writeln ('Nama   : ' , data.Nama);
  writeln ('Umur   : ' , data.Umur);
  readln ;
end.

Dianita Wahyu Kurniasih
[email protected]


10 responses to “Program Data Mahasiswa”

  1. tolong dung kirimin syntak yang logikanya seperti ini “Jika ditekan Y maka programnya akan di ulang , dan jika T maka programnya berlanjut “.

    • waduh…. masih muda belia saya…. jangan panggil pak… :p

      download aja mas, atau cari aja ke rental.. hehehe

      turbo pascal for windows

      copy listing program diatas
      run

      selesai mas.

  2. bro, kalau input datanya menggunakan array tapi ditampilkan dalam sebuah Form di delphi7 dimana dalam inputnya kita menggunakan Edit.text, dimana pemasukan datanya menggunakan Buttum1.caption := input.
    Kemudian menampilkannya hanya memanggil inputan indek keberapa seperti writeln(z[a]);
    sebenarnya ini diperlukan jika membuat data dari beberapa Field di sebuah table dimana dalam beberapa Fieldnya iitu nanti dijadikan satu utk mengetahui nilai angka yang Max / Min / Rata2.Tolong bagi2 ilmunya dong, thx ([email protected])

Leave a Reply