Erika Record
Apr 15, 2009 No Comments
Contoh penggunaan record di pascal kirimanErika Silvia Sihombing
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | uses wincrt; Type mahasiswa = record Nama: string[15]; Nim:string[10]; IPK: real; end; Var Mhs: Mahasiswa; type tipesiswa=record Nama: string[15]; end; begin write('nama : ');readln(mhs.nama); write('nim : ');readln(mhs.nim); write('IPK : ');readln(mhs.IPK); writeln; writeln('Nama anda:',mhs.nama); writeln('nim anda:',mhs.nim); writeln('IPK anda:',mhs.IPK:4:2); end. |
Erika Silvia Sihombing
[email protected]