Program Menghitung Gaji Karyawan

Program Menghitung_Gaji_Karyawan;
Uses Wincrt;
Var
Nama_Karyawan:string;
Gaji_Pokok:real;
Jumlah_Anak:longint;
Tunjangan_Istri,Tunjangan_anak,Gaji_Keseluruhan,Pajak,Gaji_Akhir:real;
Begin
Write ('Masukkan Nama Karyawan: ');readln (Nama_Karyawan);
Write ('Masukkan Gaji Pokok=Rp ');readln (Gaji_Pokok);
Write ('Masukkan Jumlah anak= ');readln (Jumlah_Anak);
Tunjangan_Istri:=0.15*Gaji_Pokok;
Tunjangan_Anak:=Jumlah_Anak*0.20*Gaji_Pokok;
Gaji_Keseluruhan:=Gaji_Pokok+Tunjangan_Istri+Tunjangan_Anak;
Pajak:=0.15*Gaji_Keseluruhan;
Gaji_Akhir:=Gaji_Keseluruhan-Pajak;
Writeln ('Tunjangan Istri =Rp ',(Tunjangan_Istri):15:2);
Writeln ('Tunjangan anak =Rp ',(Tunjangan_Anak):15:2);
Writeln ('Gaji Keseluruhan =Rp ',(Gaji_Keseluruhan):15:2);
Writeln ('Pajak =Rp ',(Pajak):15:2);
Writeln ('Gaji Akhir =Rp ',(Gaji_Akhir):15:2);
End.

Program Konversi Suhu

program Konversi_Suhu;
uses
WinCrt;
var a,b : integer;
c:real;
Begin
Write('masukkan suhu dalam celsius '); readln(a);
b:=a+273;
Writeln('suhu dalam kelvin adalah ',b);
c:=(9/5*a)+32;
writeln('suhu dalam fahrenhait adalah ',c:5:3);
end.

Program Menghitung Biaya Telp

Program Menghitung_Biaya_Telepon;
Uses Wincrt;
Var

hh1,mm1,ss1,hh2,mm2,ss2,Total_Detik,Biaya_Telepon:longint;
Begin
Writeln ('Waktu mulai telepon:');
Write ('Jam =');read (hh1);
Write ('Menit=');read (mm1);
Write ('Detik=');read (ss1);
Writeln ('Waktu selesai telepon:');
Write ('Jam =');read (hh2);
Write ('Menit=');read (mm2);
Write ('Detik=');read (ss2);
Total_Detik:=(hh2-hh1)*3600+(mm2-mm1)*60+(ss2-ss1);
Biaya_Telepon:=(Total_Detik div 5)*200;
Writeln ('Lama Waktu Telepon dalam Detik adalah ',(Total_Detik), (' detik.'));
Writeln ('Biaya Telepon adalah Rp ',Biaya_Telepon);
End.

Program Koordinat Titik Tengah

Program Menghitung_Koordinat_Titik_Tengah_Dua_Titik;
Uses Wincrt;
Var
x1,y1,x2,y2,x,y:real;
Begin
Write ('Masukkan nilai x1: ');readln (x1);
Write ('Masukkan nilai y1: ');readln (y1);
Write ('Masukkan nilai x2: ');readln (x2);
Write ('Masukkan nilai y2: ');readln (y2);
x:=(1/2)*(x1+x2);
y:=(1/2)*(y1+y2);
Writeln ('Koordinat titik tengah=(x,y)= ',('('),(x):5:2,(','),(y):5:2,(')'));
End.

Program Ukuran Meter

program meter;
uses wincrt;
var a,b,c:real;
begin
write('masukkan dalam milimeter= ');readln(a);
b:=a/10;
c:=a/1000;
write(b:5:2,' centimeter');
write(c:5:2,' meter');
end.

Program Hari dalam Case_of

program hari;
uses wincrt;
var x:integer;
begin
writeln('1. minggu');
writeln('2. senin');
writeln('3. selasa');
writeln('4. rabu');
writeln('5. kamis');
writeln('6. jumat');
writeln('7. sabtu');
readln(x);
clrscr;
case x of
1: begin
clrscr;
write ('1. minggu');
end;
2: begin
clrscr;
write ('2. senin');
end;
3: begin
write ('3. selasa');
end;
4: begin
write ('4. rabu');
end;
5: begin
write ('5. kamis');
end;
6: begin
write ('6. jumat');
end;
7: begin
write ('7. sabtu');
end;
end;
end.

Program Pengulangan Nama

program nama;
uses wincrt;
var i,x:integer;
begin
i:=1;
write('masukkan bilangan=');readln(x);
repeat
write(i,' ');
writeln('ernipeb');
i:=i+1;
until i>x;
end.