Sabtu, 09 Juli 2011

Program Mencari Data Mahasiswa dengan Pascal

oke kwand reasker akhirnya ketemu saya lagi haha
sekarang saya akan membuat program sesuai dengan judul di atas, oke lets see :

scriptnya atau source code banyak nieh jadi saya akan rinci serta akan sedikit di jelaskan ok check this code :
oke sekarang kita akan buat terlebih dahulu judul dari program tersebut serta memanggil salah satu library :
Program dt_mhs;
uses wincrt;
setelah itu kita buat type bentukan baru :
type mhs=record
nim:string;
nama:string;
nilai:integer;
end;
oke langsung kita buat penginisialisasian variable dan di sini saya menggunakan array :

var A:array [1..5] of mhs;
indeks,i,n:integer;
nim:string;
oke kita langsung ke begin yakni mulai programnya :
begin
setelah itu kita buat inputan untuk memasukan data mahasiswa :
write('Masukan jumlah mahasiswa: ');
readln(n);
for i:=1 to n do
begin
write('NIM: '); readln(A[i].nim);
write('Nama: '); readln(A[i].nama);
write('Nilai: '); readln(A[i].nilai);
writeln;
end;
setelah itu kita tampilkan data mahasiswa yang sudah di masukan oleh user :
writeln('| NIM | Nama | Nilai |');
for i:=1 to n do
begin
writeln(A[i].nim:10,A[i].nama:13,A[i].nilai:12);
end;
writeln;
setelah di masukan dan di tampilkan di sini saya juga menyediakan untuk mencari mahasiswa yang tadi di masukan apakah ada atau tidak dan ini lah codenya :
writeln('Cari Data');
writeln('NIM yang dicari: ');
readln(nim);
indeks:=0;
for i:=1 to n do
begin
if (A[i].nim=nim) then
indeks:=i;
end;
if (indeks=0) then
writeln('Data tidak ditemukan')
else
begin
writeln;
writeln('NIM: ',A[indeks].nim);
writeln('Nama: ',A[indeks].nama);
writeln('Nilai: ',A[indeks].nilai);
end;
end.
oke oke itu lah code program dari judul di atas, semoga reasker post kali ini bermanfaat bagi kwand reasker sekalin, tunggu reasker post selanjutnya yaa ;D

Tidak ada komentar:

Posting Komentar