Coding atau Kode Program Peminjaman Buku Menggunakan Pascal
Bagi yang kuliah di Teknik Informatika pasti bahasa pemrograman yang wajib di kenalkan yaitu Bahasa Pemrograman Turbo Pascal, nih ane sedikit share tentang Kode atau Koding Program Sederhana Peminjaman Buku. untuk membuat programnya buka dan jalankan dulu Pascalnya lalu copy coding di bawa paste ke pascal. Jangan hanya copas aja yah ane harap di pahami maksud dan tujuannya :-D
program
peminjaman_buku_diperpustakaan;
uses
wincrt;
label
login,inputan;
var
kode :integer;
status,nama,NIDN,NUPN,NIM,judul_buku,prodi,tombol : string;
begin
login:
clrscr;
gotoxy(23,8);writeln('FORM LOGINN USER');
gotoxy(23,9);writeln('================');
gotoxy(23,11);write('Username :
');readln(nama);
gotoxy(23,12);write('password :
');readln(NIM);
if (Nama='Akhmad Syafril Eti') and
(NIM='15 650 045') then
begin
clrscr;
gotoxy(23,10);writeln('Selamat Datang Di
Perpustakaan Unidayan');
gotoxy(23,11);write('Tekan Enter Untuk
Lanjut.....!!');
readln;
clrscr;
end
else
begin
clrscr;
gotoxy(23,8);writeln('Username dan
Password salah...!');
gotoxy(23,9);writeln('Tekan Enter Untuk
Kembali.....!');
readln; goto login;
end;
begin inputan :
gotoxy(15,1);writeln('|==============================================|');
gotoxy(15,2);writeln('| Sistem Informasi
Perpustakaan |');
gotoxy(15,3);writeln('| Slogan = Dengan
Mebaca Raih Kesuksesan |');
gotoxy(15,4);writeln('| Jl. Sultan Dayanu
Ikhsanudin Baubau No. 100 |');
gotoxy(15,5);writeln('|==============================================|');
gotoxy(5,7);write('Input Kode Peminjaman
(Dosen Tetap / Dosen LB / Mahasiswa) : ');readln(kode);
end;
if kode =1 then
begin
gotoxy(5,8);write('Status :
');readln(status);
if status='Tetap' then
begin
gotoxy(5,9);write('Input Nama :
');readln(nama);
gotoxy(5,10);write('Input NIDN :
');readln(NIDN);
gotoxy(5,11);write('Judul Buku :
');readln(judul_buku);
gotoxy(5,12);writeln('Nama Peminjaman
:',Nama,' Dosen', Status,' Judul Buku :',judul_buku);
gotoxy(5,13);write('Masa Peminjaman = 7
hari');writeln;
readln;
end
else if status='LB' then
begin
gotoxy(5,9);write('Input Nama :
');readln(status);
gotoxy(5,10);write('Input NUPN :
');readln(NUPN);
gotoxy(5,11);write('Judul Buku :
');readln(judul_buku);
gotoxy(5,12);writeln('Nama Peminjaman
:',Nama,' Dosen', Status,' Judul Buku :',judul_buku);
gotoxy(5,13);write('Masa Peminjaman = 4
hari');writeln;
readln;
end
else
begin
clrscr; goto inputan;
end;
end
else if kode=2 then
begin
gotoxy(5,8);write('Status :
');readln(status);
if status ='Mahasiswa' then
begin
gotoxy(5,9);write('Nama Mahasiswa :
');readln(nama);
gotoxy(5,10);write('NIM : ');readln(NIM);
gotoxy(5,11);write('Judul Buku :
');readln(judul_buku);
gotoxy(5,12);write('PRODI :
');readln(prodi);
gotoxy(5,13);write('Nama peminjam
:',Nama,' ',status,' ','PRODI', prodi ,' Judul Buku : ', judul_buku);
gotoxy(5,14);write('Masa Peminjaman = 2
hari');writeln;
readln;
end
else if status<>'Mahasiswa' then
begin
clrscr; goto inputan;
end;
end;
begin
gotoxy(5,17);write('Lanjut Tekan Y /
Keluar Tekan N : ');readln(tombol);
end;
if (tombol='Y') or (tombol='y')then
begin clrscr; goto inputan;
end
else if (tombol='N') or (tombol='n') then
begin
gotoxy(5,19);writeln('TERIMAKASIH ATAS
KUNJUNGANNYA');
gotoxy(5,20);writeln('GOOD LUCK');
readln;goto login;
end;
end.
Download File Doc Beserta Cara atau Prosedur Jalannya Program
Link Download
Post a Comment
Post a Comment