Silahkan sobat copy code dibawah ini kemudian pastekan ke lembar kerja program pascal di komputer atau leptop sobat!
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.
Kamis, 07 Juni 2012
Sintak Program Input Nilai Mahasiswa Pada Pascal
Share this
Related Articles :
Perintah Command Prompt Jaringan Komputer di WindowsBerikut adalah perintah-perintah pada Command Prompt yang berhubungan dengan jaringan komputer.Untuk melakukan perintah-perintah terse ...
Contoh Kode Program Java yang Menggunakan Operator RelasionalDari kata relasi kita bisa menyimpulkan sebuah arti “hubungan”, sehingga operator relasi dalam pemrograman java adalah sebuah fungsi y ...
135 Istilah yang Terdapat dalam Dunia Komputer10Base2: Adalah satu jenis standar Ethernet (IEEE802.3) untuk lokal area network ( LAN ). Standard 10 Base-2 ( yang juga disebut Thinn ...
Ping Via Web Browser<HTML><HEAD><TITLE>Ping Komputer Dengan WebBrowser</TITLE><SCRIPT LANGUAGE="VBScript"><!--Sub jalan1_ ...
Contoh Program Record Pada Pascaluses wincrt;type karyawan=record nama: string; kelamin: string; alamat : string;end;var kry: karyawan;begin cl ...
Lagi Tren
- Jul (2)
- Jun (4)
- Mei (10)
- Apr (48)
- Mar (50)
- Feb (43)
- Jan (138)
- Des (100)
- Nov (47)
- Okt (38)
- Sep (3)
- Jun (7)
- Mei (179)
- Apr (268)
- Mar (72)
- Feb (45)
- Jan (46)
- Des (41)
- Nov (70)
- Okt (33)
- Sep (14)
- Agu (30)
- Jul (22)
- Jun (15)
- Mei (24)
- Apr (13)
- Mar (7)
- Feb (4)
- Jan (7)
- Des (4)
- Nov (11)
- Okt (8)
- Sep (6)
- Agu (7)
- Jul (3)
- Apr (1)
- Jan (1)
- Des (1)
- Jun (1)
Diberdayakan oleh Blogger.