Blogroll

Rabu, 09 Mei 2012

Menghitung jam lembur pascal

Posted by Unknown On 20.05 No comments
var
 i , jam ,k, h: integer;
begin
i:= 48 ;
jam:=strtoint(edit1.Text);
begin
if jam < i then
label3.Caption:= inttostr (jam*2000)
else
if jam <= i then
label3.caption:= inttostr(i*2000)
else
k:= jam-i;
h:= k*3000 ;
if jam > i then
label3.caption:= inttostr( 96000 + h);
end;
end;
end.

0 komentar:

Posting Komentar

Site search

    Blogger news

    Blogroll

    About