program penggajian;
uses wincrt;
var
nm:string;
pos:char;
jl,galem,gator,gapok,g:longint;
pjk,gaber,p:real;
begin
writeln('Gaji karyawan PT.Sompax');
writeln('=======================================');
write ('input nama karyawan :');readln(nm);
write ('input posisi kerja (o,s,m):');readln (pos);
write ('input jumlah jam kerja :');readln (jl);
if pos= 'o' then
begin
gapok:= 1450000;
g:=10000;
p:=0.02;
end;
if pos= 's' then
begin
gapok:=2000000;
p:=0.04;
g:=200000;
end;
if pos= 'm' then
begin
gapok:=3000000;
g:=30000;
p:=0.06;
end;
galem:=jl * g;
gator:=galem+gapok;
pjk:=gator*p;
gaber:=gator-pjk;
writeln;
writeln('Gajih Pokok :Rp.',gapok);
writeln('Jumlah Gajih Lembur :Rp.',galem);
writeln;
writeln('Jumlah Gajih Kotor :Rp.',gator);
writeln;
writeln('Jumlah Pajak :Rp.',pjk:0:2);
writeln;
writeln ('Jumlah Gajih Bersih :Rp.',gaber:0:2);
writeln('========================================');
end.
Senin, 25 Maret 2013
TUgas
program tugas;
uses wincrt;
var
i:integer;
pil:char;
procedure garis;
begin
writeln('===========================');
end;
procedure segitiga;
var
a:real;
b:integer;
c:real;
begin
write('Alas :');readln(a);
write('Tinggi :');readln(b);
c:=(a*b)/2;
writeln('Rumus : Alas x Tinggi / 2 ');
writeln;
writeln ('luas_segitiga:',c:0:2);
writeln('===========================');
end;
procedure persegi_panjang;
var
a:integer;
b:integer;
c:integer;
begin
write('Panjang:');readln(a);
write ('Lebar:');readln(b);
c:=a*b;
writeln('Rumus : Panjang x Lebar');
writeln;
writeln('Luas_persegi_panjang:',c);
writeln('==========================');
end;
begin
for i:=1 to 3 do
begin
writeln('Pilih Rumus yang diinginkan');
garis;
writeln('1.luas segitiga');
writeln('2.luas_persegi_panjang');
garis;
write ('input pilihan(1,2,)='); readln(pil);
garis;
writeln;
case pil of
'1':segitiga;
'2':persegi_panjang;
end;
end;
end.
uses wincrt;
var
i:integer;
pil:char;
procedure garis;
begin
writeln('===========================');
end;
procedure segitiga;
var
a:real;
b:integer;
c:real;
begin
write('Alas :');readln(a);
write('Tinggi :');readln(b);
c:=(a*b)/2;
writeln('Rumus : Alas x Tinggi / 2 ');
writeln;
writeln ('luas_segitiga:',c:0:2);
writeln('===========================');
end;
procedure persegi_panjang;
var
a:integer;
b:integer;
c:integer;
begin
write('Panjang:');readln(a);
write ('Lebar:');readln(b);
c:=a*b;
writeln('Rumus : Panjang x Lebar');
writeln;
writeln('Luas_persegi_panjang:',c);
writeln('==========================');
end;
begin
for i:=1 to 3 do
begin
writeln('Pilih Rumus yang diinginkan');
garis;
writeln('1.luas segitiga');
writeln('2.luas_persegi_panjang');
garis;
write ('input pilihan(1,2,)='); readln(pil);
garis;
writeln;
case pil of
'1':segitiga;
'2':persegi_panjang;
end;
end;
end.
Senin, 18 Maret 2013
PROSEDUR+CASE OF
program dengan_procedure;
uses wincrt;
var a,b,c:integer;
pil:char;
procedure tambah;
begin
c:=a+b;
writeln ('hasil penjumlahan =',c);
end;
procedure kurang;
begin
c:=a-b;
writeln ('hsil penguarangan =',c);
end;
begin
write ('input nilai pertama =');readln (a);
write ('input nilai kedua =');readln (b);
write ('input menu pilihan(+,-,)=');readln (pil);
writeln;
case pil of
'+':tambah;
'-':kurang;
end;
readln;
donewincrt;
end.
uses wincrt;
var a,b,c:integer;
pil:char;
procedure tambah;
begin
c:=a+b;
writeln ('hasil penjumlahan =',c);
end;
procedure kurang;
begin
c:=a-b;
writeln ('hsil penguarangan =',c);
end;
begin
write ('input nilai pertama =');readln (a);
write ('input nilai kedua =');readln (b);
write ('input menu pilihan(+,-,)=');readln (pil);
writeln;
case pil of
'+':tambah;
'-':kurang;
end;
readln;
donewincrt;
end.
Langganan:
Postingan (Atom)