Senin, 25 Maret 2013

latihan

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.

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.

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.