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:
Post a Comment