Pages

Friday, October 14, 2011

Membuat record dengan Pascal


Program record ini digunakan untuk menginput data dengan menggunakan tipe data array. Yaitu tipe data yang terstruktur yang mempunyai tipe sama. Tipe data array mempunyai jumlah komponen yang banyaknya tetap.


uses crt;
type
      mhs = record
      nama : string[20];
      kelas : string[5];
      mid : integer;
      fin : integer;
      nilai : real;
     end;
var
    mahasiswa : array[1..5] of mhs;
    i, n : integer;

begin
      clrscr;
      write('BAnyaknya Data: ');
       readln(n);

for i := 1 to n do
begin
      clrscr;
      write('Nama Anda: ');
      readln(mahasiswa[i].nama);
      write('Kelas Anda: ');
      readln(mahasiswa[i].kelas);
      write('NIlai UTS Anda: ');
      readln(mahasiswa[i].mid);
      write('Nilai UAS Anda: ');
      readln(mahasiswa[i].fin);
      mahasiswa[i].nilai := (mahasiswa[i].mid + mahasiswa[i].fin) div 2;
      end;
      clrscr;
     
for i:= 1 to n do
begin
      writeln('Halo ',mahasiswa[i].nama,' Kamu berada di Kelas: ',mahasiswa[i].kelas);
      writeln('Nilai Anda Adalah ',mahasiswa[i].nilai :3:2);
      readln;
      end;
end.

Ini dia outputnya :
Jumlah data yang dimasukkan dan salah satu contoh proses penginputan nama, kelas dan nilai.







Maka, data yang tercetak :





 

No comments:

Post a Comment