Yang contoh program-nya. kalau ada masukan dari teman-teman, langsung ditanggapi saja ya. Source codenya seperti di bawah ini:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| program list; {untuk menampilkan list data karyawan}
uses wincrt;
type karyawan=record
nama: string;
kelamin: string;
alamat : string;
end;
var kry: karyawan;
begin
clrscr;
write('Masukkan Nama: '); readln(kry.nama);
write('Masukkan Jenis Kelamin: '); readln(kry.kelamin);
write('Masukkan Alamat: '); readln(kry.alamat);
{untuk memasukkan data karyawan}
writeln(kry.nama);
writeln(kry.kelamin);
writeln(kry.alamat);
{untuk menampilkan data karyawan}
end. |
Tidak ada komentar:
Posting Komentar