Saturday, April 4, 2009

CODING LAPORAN AKHIR PASCAL (RECORD)

buat temen-temen gue yang ngerasa coding yang gue kasih kemarin ga jalan, ini dia coding aslinya:

uses crt;
type
recPegawai=record
nama,kode,alamat,gaji:string;
end;
var
pegawai:recPegawai;
begin
with pegawai do
begin
clrscr;
kode:=’10108833’;
nama:=’fissheal’;
alamat:=’depok’;
gaji:=’10000000’;
writeln (‘Kode Pegawai : ’,pegawai.kode);
writeln;
writeln (‘Nama Pegawai : ’,pegawai.nama);
writeln;
writeln (‘Alamat Pegawai : ’,pegawai.alamat);
writeln;
writeln (’Gaji Pegawai : ’,pegawai.gaji);
end;
readln;
end.

sebenarnya secara teknis, gue cuman lupa mencantumkan 'end;' di bawah daftar fieldnya (nama,gaji,kode,alamat:string;). Jadi kalo lo pada nge-run program ini, bakal keluar identifier expected. jadi, gue cuma lupa naroh 'end;' ajja. hhe. mav yahh semua.

No comments: