Rabu, 02 Mei 2012

Contoh Program Record

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.
Diposting oleh di

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)