__________________________________________________________________________________
program Tugas_Individu_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;
namaa,nama,nimm,nim,ket,pilihan,teks,tampung_data:string;
grade:char;
panjang,tinggi,lebar,hasil,bil1,bil2,F,C,K,R,
alas_atas,alas_bawah,tinggii,luas,
pti,bc,algoritma,lgk,mt,op,agama,pkn,nilai,rataa,
jumlahpembelian,discount,harga,
derajatawall,selangderajatt,derajatakhirr,rata:real;
begin
menu :
clrscr;
writeln(' __________________________ ');
writeln('| Nama : MUHAMMAD RIJAL | ');
writeln('| Kelas : TI B | ');
writeln('| NPM : 2015020039 | ');
writeln('|__________________________| ');
writeln('=================================================================');
writeln('|||||||||||||||||||||||PROGRAM SEMUA PRAKTIMUM|||||||||||||||||||||||||||||||||');
writeln('=================================================================');
writeln;
writeln(' |PILIH MENU BERIKUT|');
writeln(' |__________________|');
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(tinggii);
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 MAHASISWA');
writeln;
write('Masukkan Nama Mahasiswa : ');readln(namaa);
write('Masukkan Nim Mahasiswa : ');readln(nimm);
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;
rataa:=(pti+bc+algoritma+agama+pkn)/5;
writeln('Nama : ',namaa);
writeln('Npm : ',nimm);
writeln('Nilai Rata-rata : ',rataa: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.
___________________________________________________________________________________
Adapun program jadinya dalam bentuk aplikasi ataupun masih bisa edit yaitu dengan mendownload tulisan download di bawah ini :
size 41 KB
Terima kasih Semoga bermanfaat.
