uses
wincrt;
type
pointer = ^pekerja;
pekerja = record
nama : string[10];
posisi : string[10];
gaji : longint;
end;
var
p : pointer;
i : integer;
begin
new(p); {mengalokasikan memori}
p^.nama := 'Farara';
p^.posisi := 'Manager';
p^.gaji := 3000;
writeln('masukan nama :' );readln(p^.nama);
writeln('masukan posisi : '); readln(p^.posisi);
writeln('masukan gaji : '); readln(p^.gaji);
writeln(p^.nama ,' ',p^.posisi,' ',p^.gaji);
dispose(p); {dealokasi memori}
end.
type
pointer = ^pekerja;
pekerja = record
nama : string[10];
posisi : string[10];
gaji : longint;
end;
var
p : pointer;
i : integer;
begin
new(p); {mengalokasikan memori}
p^.nama := 'Farara';
p^.posisi := 'Manager';
p^.gaji := 3000;
writeln('masukan nama :' );readln(p^.nama);
writeln('masukan posisi : '); readln(p^.posisi);
writeln('masukan gaji : '); readln(p^.gaji);
writeln(p^.nama ,' ',p^.posisi,' ',p^.gaji);
dispose(p); {dealokasi memori}
end.
3 komentar:
Tawwa...
kkkkkkk
Kurang Readln; di listingx
bozt.. hehehe
@Nofry : Dengar saja jgn percaya..
Posting Komentar