Intan Record

Apr 15, 2009 No Comments by Sahabat

Contoh program dengan record di pascal kiriman Made Intan Dwipayani

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
program datamhs;
uses wincrt;
 
type mahasiswa = record
  nim       : string[8];
  nama    : string[30];
  gender  : string[1];
  nilai1    : real;
  nilai2    : real;
End;
var
data : mahasiswa;
total, mean : real;
konversi, ulang : char;
begin
  repeat
  writeln('input data mahasiswa : ');
  writeln('***********************');
  writeln('NIM mahasiswa : ');
  readln(data.nim);
  writeln('Nama mahasiswa : ');
  readln(data.nama);
  writeln('Jenis kelamin mahasiswa : ');
  readln(data.gender);
  writeln('Nilai1 : ');
  readln(data.nilai1);
  writeln('Nilai2 : ');
  readln(data.nilai2);
  total := data.nilai1+data.nilai2;
  mean := total/2;
  if (mean>=80) then konversi := 'A'
  else
    if (mean>=65) then konversi := 'B'
  else
    if (mean>=50) then konversi := 'C'
  else
    if (mean>=35) then konversi := 'D'
  else
    konversi := 'E';
  writeln;
  writeln;
  writeln('==================================================================');
  writeln('NIM     | NAMA                            | L/P | Nilai1  | Nilai2');
  writeln(data.nim:8,'|',data.nama:33,'|',data.gender:5,'|',data.nilai1:8:2,'|',data.nilai2:8:2);
  writeln('Total nilai : ',total:4:2);
  writeln('Rata-rata nilai : ',mean:4:2);
  writeln('Nilai Hurufnya : ',konversi);
  writeln('==================================================================');
  writeln;
  write('Anda ingin mengulang input data ? ');
  readln(ulang);
  until (ulang = 't') or (ulang = 'T');
end.

Made Intan Dwipayani
[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 “Intan Record”

Leave a Reply

You must be logged in to post a comment.