Menghitung gaji pokok
type
tgl=record
hari:1..31;
bulan:1..12;
tahun:word;
end;
Alm=record
jalan:string [35];
kota:string [25];
end;
GajiPeg=record
GajiPokok,tunjangan,lembur:real;
end;
pegawai=record
nama:string [40];
tglMasuk:Tgl;
Alamat:Alm;
Gaji:GajiPeg;
end;
var
DataPegawai:pegawai;
Totalgaji:real;
begin
DataPegawai.nama:='Badu';
DataPegawai.tglMasuk.Hari:=15;
DataPegawai.tglMasuk.Bulan:=3;
DataPegawai.tglMasuk.Tahun:=1980;
DataPegawai.Alamat.jalan:='Gang Buntu 22';
DataPegawai.Alamat.kota:='Purworejo';
DataPegawai.Gaji.GajiPokok:=75000;
DataPegawai.Gaji.tunjangan:=25000;
DataPegawai.Gaji.lembur:=10000;
with DataPegawai do
begin
writeln ('nama pegawai',nama);
with tglMasuk do
writeln ('tanggal masuk= ',hari:2,'-',bulan:2,'-',tahun:4);
with Alamat do
begin
writeln ('alamat= ',jalan);
writeln (' :',kota);
end;
with gaji do
begin
totalgaji:=gajipokok+tunjangan+lembur;
writeln;
writeln('gaji pokok:Rp',GajiPokok:6:0);
writeln('tunjangan:Rp',Tunjangan:6:0);
writeln('lembur:Rp',lembur:6:0);
writeln('**total:Rp',TotalGaji:6:0);
readln;
end;
end;
end.
Program barang
program pertamaku;
type
databrg=record
namabrg:string[15];
unitbrg:array[1..13] of byte;
end;
var
jumlahbrg,i,j:byte;
totalunit,total1,total2,total3,totaltotal:word;
barang:array [1..50] of databrg;
begin
write('Jumlah barang');readln(jumlahbrg);
for i:=1 to jumlahbrg do
begin
writeln;
writeln('Barang ke',i:2);
with barang[i] do
begin
write('Nama barang=');readln(namabrg);
for j:=1 to 3 do
begin
write('Unit ukuran',j:2,'?');readln(unitbrg[j]);
end;
end;
end;
writeln;
writeln;
writeln('-----------------------------------------------------');
writeln(' unit');
writeln('-----------------------------------------------------');
writeln('Nama barang ukuran 1 ukuran 2 ukuran 3 total');
writeln('( kecil) (sedang) (besar) unit');
writeln('-----------------------------------------------------');
total1:=0;total2:=0;total3:=0;totaltotal:=0;
for i:=1 to jumlahbrg do
begin
with barang[i] do
begin
totalunit:=unitbrg[1]+unitbrg[2]+unitbrg[3];
total1:=total1+unitbrg[1];
total2:=total2+unitbrg[2];
total3:=total3+unitbrg[3];
totaltotal:=totaltotal+totalunit;
write(namabrg:15);
writeln(unitbrg[1]:7,unitbrg[2]:10,unitbrg[3]:10,totalunit:10);
end;
writeln;
writeln('***total ',total1:13,total2:13,total3:13);
readln;
end;
end.
Perulangan mencetak data ke N dengan For to do
program sgt;
uses crt;
var
k:integer;
n:integer;
begin
writeln('masukkan berapa pengulangandari n=');readln(n);
writeln('Cetak urut 1...,',n);
for k:=1 to n do
writeln(k);
readln;
end.
Perulangan While do untuk menghitung penjumlahan
program contoh;
uses crt;
var
x,jumlah,k:real;
begin
jumlah:=0;
k:=1;
while k<3 do
begin
write('Masukkan nilai x:');readln(x);
jumlah:=jumlah+x;
k:=k+1;
end;
write('Jumlahnya adalah:',jumlah:2:2);
readln;
end.
Function Pangkat Dengan Menggunakan Exponen
function pangkat(x,y:integer):real;
begin
pangkat:=exp(ln(x)*y);
end;
var
a,b:integer;
begin
write('Tulis sebuah bilangan :');readln(a);
write('Mau di pangkatkan berapa :');readln(b);
writeln(a,'pangkat',b:3,'adalah',pangkat(a,b):3:0);
readln;
end.
Function Menghitung Nilai Maksimum 2 inputan
function nilai_maksimum(a,b:real):real;
begin
if a> b then
nilai_maksimum :=a
else
nilai_maksimum :=b;
end;
var
x,y:real;
begin
write('Nilai pertama :');readln(x);
write('Nilai kedua :');readln(y);
writeln('Nilai terbesar adalah',nilai_maksimum(x,y):6:2);readln;
end.
Menghitung Jari-jari Lingkaran
program sigit;
uses crt;
const phi=3.14;
var
r:integer;
hasil:real;
begin
writeln('masukkan jari-jarinya');readln(r);
hasil:=phi*r*r;
writeln('hasilnya adalah',hasil);
readln;
end.
Function Menghitung Pangkat
function pangkat3(n:integer):integer;
begin
pangkat3:=n*n*n;
write('Nilai dari pangkat ',n,' = ');
end;
var
n:integer;
begin
write('Masukkan nilai dari n= ');readln(n);
write(pangkat3(n));readln;
end.
Function Menghitung Kuadrat
function tanya_hitung:integer;
var
a:integer;
begin
writeln('masukkan nilai dari a :');readln(a);
tanya_hitung:=a*a;
write('hasilnya kuadrat ',a ,':');
end;
var
b:integer;
begin
writeln(tanya_hitung);readln;
end.
Program Exponen Sederhana
program contoh;
uses crt;
begin
writeln('Exp dari 4,6 = ',Exp(4.6):0:2);
readln;
end.
