Home > Pascal > Program Input Nilai Mahasiswa

Program Input Nilai Mahasiswa

April 10th, 2009 Author Leave a comment Go to comments

Seorang dosen memberi tugas mahasiswanya untuk membuat listing program pascal dalam rangka praktik materi array.
Inti tugasnya adalah membuat program database sederhana konversi nilai mahasiswa, dimana pada pertama kali BAK menginput :

  1. Jumlah data mahasiswa
  2. Nim mahasiswa
  3. Nama mahasiswa
  4. Nilai pertama
  5. Nilai kedua

Hasil yang didapat adalah data mahasiswa, rata2 nilai dan konversi ke nilai hurufnya.
Ya sekurang dan selebihnya listingnya kaya gini, klo ada yang kurang mohon maaf.

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
54
55
56
57
58
59
60
61
62
63
64
65
66

Program Input_nilai_mhs;
Uses WinCrt;
Const
garis='-------------------------------------------------------------------------------';
Var
nil1,nil2 : Array [1..10] Of 0..100; {Array dgn Type subjangkauan}
nim : Array [1..10] Of String [8];
nama : Array [1..10] Of String [50];
n,i,bar : Integer;
jum : Real;
tl : Char;
Begin
  ClrScr;
  { pemasukan data dalam array }
  Writeln ('Maximize dulu windows anda,');
  Writeln ('untuk mendapat hasil yang maksimal!!!');
  Write ('Berapa Data Mahasiswa yang aka diinput :');
  Readln (n);
  For i:= 1 To n Do
  Begin
    ClrScr;
    GotoXY(30,4+1); Write('Data Ke-:',i:2);
    GotoXY(10,5+i); Write('NIM :'); Readln(nim[i]);
    GotoXY(10,6+i); Write('Nama :'); Readln(nama[i]);
    GotoXY(10,7+i); Write('Nilai 1 :'); Readln(nil1[i]);
    GotoXY(10,8+i); Write('Nilai 2 :'); Readln(nil2[i]);
  End;
  { proses data dalam array }
  ClrScr;
  GotoXY(5,4); Write(Garis);
  GotoXY(5,5); Write ('No');
  GotoXY(9,5); Write ('NIM');
  GotoXY(18,5); Write ('Nama');
  GotoXY(38,5); Write ('Nilai 1');
  GotoXY(45,5); Write ('Nilai 2');
  GotoXY(52,5); Write ('Rata');
  GotoXY(59,5); Write ('Abjad');
  GotoXY(5,6); Write (Garis);
  { proses Cetak isi array dan seleksi kondisi }
  bar := 7;
  For i:= 1 To n Do
  Begin
    jum:=(nil1[i]+nil2[i])/2;
    If jum>= 90 Then tl:='A'
    Else
      If jum>80 Then tl:='B'
    Else
      If jum>60 then tl:='C'
    Else
      If jum >50 Then tl:='D'
    Else
      tl:='E';
    { cetak hasil yang disimpan di array dan hasil }
    { penyeleksian kondisi }
    GotoXY(5,bar); Writeln(i:2);
    GotoXY(9,bar); Writeln (NIM[i]);
    GotoXY(18,bar); Writeln (NAMA[i]);
    GotoXY(38,bar); Writeln (NIL1[i]:4);
    GotoXY(45,bar); Writeln (NIL2[i]:4);
    GotoXY(52,bar); Writeln (jum:5:1);
    GotoXY(59,bar); Writeln (tl);
    bar:=bar+1;
  End;
  GotoXY(5,bar+1);Writeln(garis);
  Readln;
End.

Devy Cahya Mulyono
vaizu666@yahoo.com

Bookmark and Share
Related Posts
  1. Program Penilaian Mahasiswa
  2. Aljan Array dan Record
  3. Program Data Mahasiswa
  4. Pengertian If..Else dan Contoh Programnya
  5. Intan Array
  6. ARRAY / LARIK
  7. Intan Record
  8. Program Nilai
  9. Program yang Menggunakan Record
  10. Program Mencari Rata-rata, Nilai Tertinggi dan Terendah
Categories: Pascal Tags:
  1. ramdani
    July 10th, 2010 at 11:37 | #1
    Reply | Quote

    gan, maaf ni mau tanya kok pas di runing program input nilai mahasiswa ga bisa ya?
    ada eror di bagian
    If jum>= 90 Then tl:=’A’
    Else
    If jum>80 Then tl:=’B’
    Else
    If jum>60 then tl:=’C’
    Else
    If jum >50 Then tl:=’D’
    turbo menjelaskan ada eror di bagian jum> kenapa ya?
    tolong di jawab ya gan makasih banget sebelumnya..

  1. No trackbacks yet.