Erika Record

Apr 15, 2009 No Comments by Sahabat

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]

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau
No Responses to “Erika Record”

Leave a Reply

You must be logged in to post a comment.