Jumpa lagi sobat, seperti biasa kali ini saya akan memposting program yang saya buat sendiri sobat. Tapi program yang saya buat ini saya buat menggunakan Free Pascal. Jadi begini sobat program ini berisi dari beberapa program lebih tepatnya 12 program tapi dalam 1 kali jalan saja loh sobat. Nama program ini saya beri nama dengan nama Kumpulan Contoh Program dengan Pascal sobat.
Jadi program ini sobat anda hanya memilih dengan menekan angka 1 - 12 sesuai jenis program apa yang anda inginkan sobat. Tapi ini program sobat anda ganti-ganti loh sobat misalnya saja ada program yang sobat buat banyak dan program tersebut mau digabungkan dalam satu program saja bisa sobat copy saja coding program saya di bawah ini sobat. Sobat juga bisa share ke manapun sobat yang penting sobat tetap mencantumkan sumbernya yah sobat. Program Kumpulan Program dengan pascal ini sobat cara buat juga tidak rumit-rumit banget sih sobat.
Jadi langsung saja, sobat tinggal copy coding atau listing dibawah ini dan anda copy ke Free pascal, Turbo pascal ataupun TPW yah sobat tapi ingat sobat kalau pakai TPW itu uses crt harus diganti dengan Wincrt. Berikut coding atau lisitngnya sobat.
program Semua_Praktikum;
uses crt;
const
derajatawal=0;
selangderajat=10;
derajatakhir=100;
const bel=^G;
label menu;
var
x:array[1..100] of integer;
I,J,jmh,n:integer;
nama,nim,ket,pilihan,teks,tampung_data:string;
grade:char;
panjang,tinggi,lebar,hasil,bil1,bil2,F,C,K,R,
alas_atas,alas_bawah,luas,
pti,bc,algoritma,lgk,mt,op,agama,pkn,nilai,
jumlahpembelian,discount,harga,
derajatawall,selangderajatt,derajatakhirr,rata:real;
begin
menu :
clrscr;
writeln('| Nama : MUHAMMAD RIJAL | ');
writeln('| Kelas : TI B | ');
writeln('| NPM : 2015020039 | ');
writeln('|__________________________| ');
writeln('===============================================================================');
writeln('|||||||||||||||||||||||PROGRAM SEMUA PRAKTIMUM|||||||||||||||||||||||||||||||||');
writeln('===============================================================================');
writeln(' |PILIH MENU BERIKUT|');
writeln('| 1. PROGRAM MENGHITUNG LUAS PERSEGI PANJANG |');
writeln('| 2. PROGRAM MENGHITUNG LUAS TRAPESIUM |');
writeln('| 3. PROGRAM PERKALIAN |');
writeln('| 4. PROGRAM MENGHITUNG NILAI RATA-RATA MAHASISWA |');
writeln('| 5. PROGRAM DATA MAHASISWA |');
writeln('| 6. PROGRAM DISKON |');
writeln('| 7. PROGRAM MEMBALIK KATA DENGAN FOR DOWNTO |');
writeln('| 8. PROGRAM WHILE DO |');
writeln('| 9. PROGRAM KONVERSI SUHU DENGAN FOR TO DO |');
writeln('| 10. PROGRAM KONVERSI SUHU DENGAN WHILE DO |');
writeln('| 11. PROGRAM KONVERSI SUHU DENGAN REPEAT UNTIL |');
writeln('| 12. PROGRAM KONVERSI SUHU MENENTUKAN SENDIRI DERAJATNYA |');
writeln('| 13. PROGRAM MENGHITUNG RATA-RATA BERDASARKAN JUMLAH DATA DENGAN ARRAY |');
writeln('| 14. KELUAR PROGRAM');
writeln;
write('Masukkan Pilihan Anda : ');readln(pilihan);
writeln;
case pilihan of
'1' : begin
write('Masukkan Panjang Persegi Panjang : ');readln(panjang);
write('Masukkan Tinggi Persegi Panjang : ');readln(tinggi);
write('Masukkan Lebar Persegi Panjang : ');readln(lebar);
hasil:=panjang*lebar*tinggi;
writeln('Luas Persegi Panjang Tersebut adalah',hasil:2:0);
end;
'2' : begin
writeln ('program mencari luas trapesium');
write('masukkan nilai alas_atas:') ;readln(alas_atas);
write('masukkan nilai alas_bawah:') ;readln(alas_bawah);
write('masukkan nilai tinggi:') ;readln(tinggi);
luas:= 1/2*(alas_atas+alas_bawah)*tinggi;
writeln('luas trapesium:',luas:4:2);
end;
'3' : begin
write('Masukkan Bilangan 1 : ');readln(bil1);
write('Masukkan BIlangan 2 : ');readln(bil2);
hasil:=bil1*bil2;
writeln('Hasilnya adalah',hasil:2:0);
end;
'4' : begin
writeln(' PROGRAM NILAI RATA-RATA MAHASISWA');
writeln;
write('Masukkan Nama Mahasiswa : ');readln(nama);
write('Masukkan Nim Mahasiswa : ');readln(nim);
writeln;
write(' Masukkan Nilai Pti : ');readln(pti);
write(' Masukkan Nilai Basic English : ');readln(bc);
write(' Masukkan Nilai Logika Algoritma : ');readln(algoritma);
write(' Masukkan Nilai Agama : ');readln(agama);
write(' Masukkan Nilai PKN : ');readln(pkn);
writeln;
rata:=(pti+bc+algoritma+agama+pkn)/5;
writeln('Nama : ',nama);
writeln('Npm : ',nim);
writeln('Nilai Rata-rata : ',rata:2:2);
end;
'5' : begin
writeln;
writeln(' PROGRAM CARA MENENTUKAN KETERANGAN MAHASISWA');
writeln;
write('Masukan Nama : ');readln(nama);
write('Masukan NIM : ');readln(nim);
writeln(' ||Nilai Mata Kuliah|| ');
writeln;
write(' Nilai Logika dan Algoritma : ');readln(lgk);
write(' Nilai Pend.Kewarganegaraan : ');readln(pkn);
write(' Nilai Matematika Teknik : ');readln(mt);
write(' Nilai Pendidikan Agama : ');readln(pti);
write(' Nilai Office Profesional : ');readln(op);
writeln;
nilai:=(lgk+pkn+mt+pti+op)/5;
if (nilai>=85) and (nilai<=100) then
begin
grade:='A' ;
ket:='Lulus';
end
else
if (nilai>=65) and (nilai<=84) then
begin
grade:='B';
ket:='Lulus';
end
else
if (nilai>=30) and (nilai<=59) then
begin
grade:='C' ;
ket:='Lulus';
end
else
begin
grade:='D';
ket:='Tidak Lulus';
end;
writeln('Nilai Rata-rata Mahasiswa adalah : ',nilai:4:2);
writeln('Grade : ',grade);
writeln('keterangan : ',ket);
end;
'6' : begin
write('Nama Anda : ');readln(nama);
write('harga : Rp. ');readln(harga);
write('Jumlah Pembelian : ');readln(jumlahpembelian);
if harga >1000000 then
discount:=jumlahpembelian*(20/100)
else
if harga >500000 then
discount:=jumlahpembelian*(15/100)
else
if harga >=100000 then
discount:=jumlahpembelian*(10/100)
else
if harga <100000 then
discount:=0;
writeln('discount = Rp. ',discount:5:2,',-');
write('bayar = Rp. ',harga-discount:5:2,',-');
end;
'7' : begin
write('Masukkan Teks Yang Akan Dibalik :');readln(teks);
for i:=length(teks) downto 1 do
begin
tampung_data:=tampung_data+teks[i];
end;
writeln('Hasil Pembalikan : ',tampung_data);
end;
'8' : begin
I:=1;
while (i<=5) do
begin
write(i,' ');
i:=i+1;
end;
end;
'9' : begin
writeln;
writeln(' | PROGRAM KONVERSI SUHU | ');
writeln(' CELCIUS | FAHRENHEIT | REAMUR | KELVIN |');
C:=derajatawal;
for I := derajatawal to derajatakhir do
begin
F:=9/5*C+32;
R:=4/5*C;
K:=273+C;
if i mod selangderajat = 0 then
writeln(C:11:2,' | ',F:11:2,' | ',R:11:2,' | ',K:11:2);
C:=C+1;
end;
end;
'10' : begin
writeln;
writeln(' | PROGRAM KONVERSI SUHU | ');
writeln;
writeln(' CELCIUS | FAHRENHEIT | REAMUR | KELVIN |');
C:=derajatawal;
while C<= derajatakhir do
begin
F:=9/5*C+32;
R:=4/5*C;
K:=273+C;
writeln(C:11:2,' | ',F:11:2,' | ',R:11:2,'| ',K:11:2);
C:=C+selangderajat;
end;
end;
'11' : Begin
writeln;
writeln(' | PROGRAM KONVERSI SUHU | ');
writeln;
writeln(' CELCIUS | FAHRENHEIT | REAMUR | KELVIN |');
C:=derajatawal;
repeat
F:=9/5*C+32;
R:=4/5*C;
K:=273+C;
writeln(C:11:2,' | ',F:11:2,' | ',R:11:2,'| ',K:11:2);
C:=C+selangderajat;
until C>derajatakhir;
end;
'12' : begin
writeln(' | PROGRAM KONVERSI SUHU | ');
write('Masukkan Derajat Awal : ');readln(derajatawall);
write('Masukkan Selang Derajat : ');readln(selangderajatt);
write('Masukkan Derajat Akhir : ');readln(derajatakhirr);
writeln;
writeln(' CELCIUS | FAHRENHEIT | REAMUR | KELVIN |');
C:=derajatawall;
repeat
F:=9/5*C+32;
R:=4/5*C;
K:=273+C;
writeln(C:11:2,' | ',F:11:2,' | ',R:11:2,'| ',K:11:2);
C:=C+selangderajatt;
until C>derajatakhirr;
end;
'13' : begin
write('Masukkan banyak data :');readln(n);
jmh:=0;
for i:=1 to n do
begin
write('Masukkan nlai ke',i,':');readln(x[i]);
jmh:=jmh+x[i];
end;
rata:=jmh/n;
writeln('Jumlah :',jmh);
writeln('Rata-Rata :',rata:0:2);
end;
'14' : begin
halt(0);
end;
else
writeln(bel,'Salah Pilih ! ');
end;
writeln;
writeln(' |====================================|');
writeln(' |Tekan Sembarang Tombol Untuk Ke Menu|');
writeln(' |====================================|');
readln;
goto menu;
readln;
end.
Hasilnya seperti dibawah ini sobat :
