gmail.
May 27, 2011 Leave a comment
blog farid
Program Turbo Pascal
May 27, 2010 Leave a comment
yang akan saya post kan sekarang ini adalah tentang tugas besar prokom,,
ini adalah beberapa hasil manipulasi program yang telah dibuat,,,
PROGRAM DISTRIBUSI NILAI
uses wincrt;
var
nama:string;
nim:integer;
nilai:integer;
lagi:char;
begin
writeln(‘ SELAMAT DATANG DIPROGRAM DITRIBUSI NILAI’);
write(‘nama pencoba:’);
readln(nama:);
write(‘nim:’);
readln(nim);
repeat
clrscr;
write(‘masukkan nilai :’);
readln(nilai);
case nilai of
81..100:writeln(‘nilai huruf : A’);
61..80:writeln(‘nilai huruf : B’);
41..60:writeln(‘nilai huruf : C’);
21..40:writeln(‘nilai huruf : D’);
0..20:writeln(‘nilai huruf : E’);
else
writeln(‘salah nilai’);
end;
write(‘lagi…….[Y/Z]‘);lagi:=upcase(readkey);
writeln(lagi);
until lagi <>’Y';
end.
dan inlah PROGARAM DISTRIBUSI NILAI yang menurut saya terbagus
Program menghitung_sendiri_nilai_IPS;
uses wincrt;
LABEL AWAL;
CONST
GARIS=’********************************************************************************’;
X=100;
var
A:array[1..18]of real;
B,F:array[1..5]of integer;
C,D,E,J,G,H:ARRAY[1..15]OF STRING[15];
I:char;
procedure hitung_rata2_tugas;
begin
A[1]:=A[17]/B[3];
gotoxy(10,9+B[3]);writeln (‘* Rata-rata tugas : ‘,A[1]:0:1);
end;
procedure hitung_prosen_rata2;
begin
A[2]:=(A[11]/X)*A[1];
gotoxy(10,17+B[3]);writeln (‘* hasil prosen rata-rata tugas : ‘,A[2]:0:1);
A[3]:=(A[12]/X)*A[8];
gotoxy(10,18+B[3]);writeln (‘* hasil prosen nilai quiz : ‘,A[3]:0:1);
A[4]:=(A[13]/X)*A[9];
gotoxy(10,19+B[3]);writeln (‘* hasil prosen nilai UTS : ‘,A[4]:0:1);
A[5]:=(A[14]/X)*A[10];
gotoxy(10,20+B[3]);writeln (‘* hasil prosen nilai UAS : ‘,A[5]:0:1);
A[6]:=A[2]+A[3]+A[4]+A[5];
gotoxy(10,21+B[3]);writeln(‘* total semua prosen nilai : ‘,A[6]:0:1);
end;
procedure konversi_nilai;
begin
if A[6] >=84.9 then
begin
J[B[2]]:=’A';
gotoxy(10,22+B[3]);writeln(‘nilai huruf : ‘,J[B[2]]);
G[B[2]]:=’4′;
gotoxy(10,23+B[3]);writeln(‘nilai angka : ‘,G[B[2]]);
if F[B[2]]=1 then
begin
H[B[2]]:=’4′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=2 then
begin
H[B[2]]:=’8′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=3 then
begin
H[B[2]]:=’12′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
end
else
if A[6] >=79.9 then
begin
J[B[2]]:=’B+’;
gotoxy(10,22+B[3]);writeln(‘nilai huruf : ‘,J[B[2]]);
G[B[2]]:=’3.5′;
gotoxy(10,23+B[3]);writeln(‘nilai angka : ‘,G[B[2]]);
if F[B[2]]=1 then
begin
H[B[2]]:=’3.5′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=2 then
begin
H[B[2]]:=’7′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=3 then
begin
H[B[2]]:=’10.5′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
end
else
if A[6] >=74.9 then
begin
J[B[2]]:=’B';
gotoxy(10,22+B[3]);writeln(‘nilai huruf : ‘,J[B[2]]);
G[B[2]]:=’3′;
gotoxy(10,23+B[3]);writeln(‘nilai angka : ‘,G[B[2]]);
if F[B[2]]=1 then
begin
H[B[2]]:=’3′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=2 then
begin
H[B[2]]:=’6′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=3 then
begin
H[B[2]]:=’9′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
end
else
if A[6] >=69.9 then
begin
J[B[2]]:=’C+’;
gotoxy(10,22+B[3]);writeln(‘nilai huruf : ‘,J[B[2]]);
G[B[2]]:=’2.5′;
gotoxy(10,23+B[3]);writeln(‘nilai angka : ‘,G[B[2]]);
if F[B[2]]=1 then
begin
H[B[2]]:=’2.5′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=2 then
begin
H[B[2]]:=’5′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=3 then
begin
H[B[2]]:=’7.5′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
end
else
if A[6] >=59.9 then
begin
J[B[2]]:=’C';
gotoxy(10,22+B[3]);writeln(‘nilai huruf : ‘,J[B[2]]);
G[B[2]]:=’2′;
gotoxy(10,23+B[3]);writeln(‘nilai angka : ‘,G[B[2]]);
if F[B[2]]=1 then
begin
H[B[2]]:=’2′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=2 then
begin
H[B[2]]:=’4′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=3 then
begin
H[B[2]]:=’6′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
end
else
if A[6] >=49.9 then
begin
J[B[2]]:=’D+’;
gotoxy(10,22+B[3]);writeln(‘nilai huruf : ‘,J[B[2]]);
G[B[2]]:=’1.5′;
gotoxy(10,23+B[3]);writeln(‘nilai angka : ‘,G[B[2]]);
if F[B[2]]=1 then
begin
H[B[2]]:=’1.5′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=2 then
begin
H[B[2]]:=’3′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=3 then
begin
H[B[2]]:=’4.5′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
end
else
if A[6] >=39.9 then
begin
J[B[2]]:=’D';
gotoxy(10,22+B[3]);writeln(‘nilai huruf : ‘,J[B[2]]);
G[B[2]]:=’1′;
gotoxy(10,23+B[3]);writeln(‘nilai angka : ‘,G[B[2]]);
if F[B[2]]=1 then
begin
H[B[2]]:=’1′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=2 then
begin
H[B[2]]:=’2′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=3 then
begin
H[B[2]]:=’3′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
end
else
if A[6] >=0 then
begin
J[B[2]]:=’E';
gotoxy(10,22+B[3]);writeln(‘nilai huruf : ‘,J[B[2]]);
G[B[2]]:=’0′;
gotoxy(10,23+B[3]);writeln(‘nilai angka : ‘,G[B[2]]);
if F[B[2]]=1 then
begin
H[B[2]]:=’0′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=2 then
begin
H[B[2]]:=’0′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
if F[B[2]]=3 then
begin
H[B[2]]:=’0′;
gotoxy(10,24+B[3]);writeln(‘nilai bobot : ‘,H[B[2]]);
end;
end;
end;
procedure hitung_IPS;
begin
A[7]:=A[18]/B[5];
gotoxy(1,B[4]+3);writeln(‘IPS anda : ‘,A[7]:0:2);
end;
procedure SKS_berikutnya;
begin
if A[7]>2.99 then
begin
gotoxy(1,B[4]+4);writeln(‘SKS yang anda ambil untuk semester berikutnya : 24 SKS’);
end
else
if A[7]>2.50 then
begin
gotoxy(1,B[4]+4);writeln(‘SKS maksimal yang anda ambil untuk semester berikutnya : 21 SKS’);
end
else
if A[7]>2.00 then
begin
gotoxy(1,B[4]+4);writeln(‘SKS maksimal yang anda ambil untuk semester berikutnya : 18 SKS’);
end
else
if A[7]>1.50 then
begin
gotoxy(1,B[4]+4);writeln(‘SKS maksimal yang anda ambil untuk semester berikutnya : 12 SKS’);
end
else
if A[7]>0.00 then
begin
gotoxy(1,B[4]+4);writeln(‘SKS maksimal yang anda ambil untuk semester berikutnya : 6 SKS’);
end;
end;
{program_utama}
begin
WRITELN(‘ HAK CIPTA HANYA MILIK ALLAH SWT’);
WRITELN(”);
writeln(‘ PERSEMBAHAN KAMI UNTUK NEGERI INDONESIA’);
WRITELN(‘ PROGRAM PENENTUAN NILAI IP DENGAN METODE B-L-G’);
WRITELN(‘ ‘);
WRITELN(‘ PROGRAM INI DIPERSEMBAHKAN OLEH : ‘);
WRITELN(”);
WRITELN(”);
WRITELN(‘ 07.04.2.1.1.00026 KHUSNUL MAARIF,cS.T,cM.Ag’);
WRITELN(‘ 07.04.2.1.1.00027 Cprof. LUCKY KURNIA DIHARJA,cS.T,cM.T’);
WRITELN(‘ 07.04.2.1.1.00028 LUKMAN HAKIM,cS.T,cM.Pd’);
WRITELN(‘ 07.04.2.1.1.00030 M.RIDSWAN ZTRYYA MULYA,cS.T,cM.M’);
WRITELN(‘ 07.04.2.1.1.00031 Cprof. MERIYANA SUSILOWATI,cS.T’);
WRITELN(‘ 07.04.2.1.1.00032 MOH. ROFIQI AMRULLAH,cS.T,cM.SI’);
WRITELN(”);
WRITELN(”);
WRITELN(‘ JURUSAN TEKNIK INDUSTRI’);
WRITELN(‘ FAKULTAS TEKNIK’);
WRITELN(‘ UNIVERSITAS TRUNOJOYO MADURA’);
WRITELN(”);
WRITELN(‘ suported By :’);
writeln(‘* Bpk. Nachnul anshori,S.T,M.T * kawan2 T.Informatika ‘);
writeln(‘* kawan2 KOELIT * kawan2 Jarkom * terbitan MAXIKOM ‘);
writeln(‘* kawan2 ITC * kakak2 TI 06 * sobat TI 07 * donatur pastinya’);
READLN;
CLRSCR;
AWAL:
clrscr;
gotoxy(15,1);writeln(‘Pastikan data yang anda masukkan benar dan jujur !!!!’);
gotoxy(3,2);write(‘NRP : ‘);readln(E[1]);
gotoxy(3,3);write(‘Nama mahasiswa : ‘);readln(E[2]);
gotoxy(3,4);write(‘Jurusan : ‘);readln(E[3]);
gotoxy(3,5);write(‘Tahun akademik : ‘);readln(E[4]);
gotoxy(3,6);write(‘Semester : ‘);readln(E[5]);
clrscr;
gotoxy(3,3);write(‘Mau isi berapa mata kuliah : ‘);readln(B[1]);
B[5]:=0;
A[18]:=0;
for B[2]:=1 to B[1] do
begin
clrscr;
gotoxy(20,4);write(‘Nama mata kuliah ke-’,B[2]:2);Write(‘: ‘);readln(D[B[2]]);
gotoxy(20,5);write(‘Kode mata kuliah : ‘);readln(C[B[2]]);
gotoxy(20,6);write(‘Jumlah SKS : ‘);readln(F[B[2]]);
B[5]:=B[5]+F[B[2]];
gotoxy(20,7);write(‘Mau isi berapa tugas : ‘);readln(B[3]);
A[17]:=0;
for B[4]:=1 to B[3] do
begin
gotoxy(10,8+B[4]);write(‘* Masukkan nilai tugas anda ke-’,B[4]:1,’: ‘);readln(A[16]);
A[17]:=A[17]+A[16];
end;
hitung_rata2_tugas;
gotoxy(10,10+B[3]);write(‘* Masukkan nilai quiz anda : ‘);readln(A[8]);
gotoxy(10,11+B[3]);write(‘* Masukkan nilai UTS anda : ‘);readln(A[9]);
gotoxy(10,12+B[3]);write(‘* Masukkan nilai UAS anda : ‘);readln(A[10]);
gotoxy(10,13+B[3]);Write(‘* Masukkan nilai prosentase tugas anda : ‘);readln(A[11]);
gotoxy(10,14+B[3]);Write(‘* Masukkan nilai prosentase quiz anda : ‘);readln(A[12]);
gotoxy(10,15+B[3]);Write(‘* Masukkan nilai prosentase UTS anda : ‘);readln(A[13]);
gotoxy(10,16+B[3]);Write(‘* Masukkan nilai prosentase UAS anda : ‘);readln(A[14]);
hitung_prosen_rata2;
konversi_nilai;
gotoxy(10,25+B[3]);write(‘Tulis ulang bobot anda : ‘);readln(A[15]);
A[18]:=A[18]+A[15];
end;
clrscr;
gotoxy(2,1);writeln(‘DEPARTEMEN PENDIDIKAN NASIONAL’);
gotoxy(2,2);writeln(‘UNIVERSITAS TRUNOJOYO’);
gotoxy(2,3);writeln(‘FAKULTAS TEKNIK’);
gotoxy(1,4);writeln(GARIS);
gotoxy(30,5);writeln(‘KARTU HASIL STUDI’);
gotoxy(2,6);writeln(‘NRP : ‘);gotoxy(12,6);writeln(E[1]);
gotoxy(2,7);writeln(‘Nama : ‘);gotoxy(12,7);writeln(E[2]);
gotoxy(2,8);writeln(‘Jurusan : ‘);gotoxy(12,8);writeln(E[3]);
gotoxy(45,6);writeln(‘Th akademik : ‘);gotoxy(59,6);writeln(E[4]);
gotoxy(45,7);writeln(‘Semester : ‘);gotoxy(59,7);writeln(E[5]);
gotoxy(1,9);writeln(GARIS);
gotoxy(1,10);writeln(‘NO’);
gotoxy(8,10);writeln(‘KODE MK’);
gotoxy(24,10);writeln(‘MATA KULIAH’);
gotoxy(38,10);writeln(‘SKS’);
gotoxy(50,10);writeln(‘NILAI’);
gotoxy(59,10);writeln(‘ANGKA’);
gotoxy(73,10);writeln(‘BOBOT’);
gotoxy(1,11);writeln(GARIS);
B[4]:=12;
for B[2]:=1 to B[1] do
begin
gotoxy(1,B[4]);writeln(B[2]:2);
gotoxy(9,B[4]);writeln(C[B[2]]);
gotoxy(24,B[4]);writeln(D[B[2]]);
gotoxy(39,B[4]);writeln(F[B[2]]);
gotoxy(52,B[4]);writeln(J[B[2]]);
gotoxy(61,B[4]);writeln(G[B[2]]);
gotoxy(75,B[4]);writeln(H[B[2]]);
B[4]:=B[4]+1;
end;
gotoxy(1,B[4]+1);writeln(GARIS);
gotoxy(1,B[4]+2);write(‘SKS yang anda ambil untuk semester ini : ‘,B[5]);
hitung_IPS;
SKS_berikutnya;
gotoxy(1,20);write(‘Mau mengulang lagi (Y/T) : ‘);I:=readkey;
if upcase(I)=’Y’ then goto AWAL;
end.
semoga ilmu ini bermanfaat,,,
uses wincrt;
var
nama:string;
nim:integer;
nilai:integer;
lagi:char;
begin
writeln(‘ SELAMAT DATANG DIPROGRAM DITRIBUSI NILAI’);
WRITELN(‘ PROGRAM INI DIPERSEMBAHKAN OLEH: ‘);
WRITELN(‘——————————————–’);
WRITELN(‘ KELOMPOK IV ‘);
writeln(”);
WRITELN(‘ NAMA ANGGOTA KELOMPOK ‘);
writeln(”);
WRITELN(‘ 1. KHUSNUL MAARIF 07.04.211.00026′);
WRITELN(‘ 2. LUCKY KURNIA DIHARJA 07.04.211.00027′);
WRITELN(‘ 3. LUKMAN HAKIM 07.04.211.00028′);
WRITELN(‘ 4. M.RIDSWAN ZTRYYA MULYA 07.04.211.00030′);
WRITELN(‘ 5. MERIYANA SUSILOWATI 07.04.211.00031′);
WRITELN(‘ 6. MOH. ROFIQI AMRULLAH 07.04.211.00032′);
writeln(‘——————————————–’);
write(‘nama pencoba:’);
readln(nama);
write(‘nim:07.04.211.000′);
readln(nim);
repeat
clrscr;
write(‘masukkan nilai :’);
readln(nilai);
case nilai of
81..100:writeln(‘nilai huruf : A’);
61..80:writeln(‘nilai huruf : B’);
41..60:writeln(‘nilai huruf : C’);
21..40:writeln(‘nilai huruf : D’);
0..20:writeln(‘nilai huruf : E’);
else
writeln(‘salah nilai’);
end;
write(‘lagi…….[Y/Z]‘);lagi:=upcase(readkey);
writeln(lagi);
until lagi <>’Y';
write(‘lagi…….[Y/Z]‘);lagi:=upcase(readkey);
writeln(lagi);
until lagi <>’Y';
end.
Hello world!
December 23, 2009 1 Comment
Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!
plat-m
