Many artists lived in Greenwich Village in New
York City. Sue and Johnsy, two artists also lived there in
a studio apartment. Their rooms were at the top of an
old building in Greenwich Village.
In November, it was very cold and with it a cold
unseen stranger, whom the doctors called Pneumonia,
stalked the city, touching one here and there with his
icy fingers. The icy fingers of Pneumonia also touched
Johnsy. She was very ill, lying in her bed and not moving
at all. A doctor visited her every day but Johnsy was not
getting better . One morning, the doctor spoke to Sue
outside Johnsy's room.
T h e L a s t
Leaf
Picture 8.1 (Source: wattpad.com)
“I can' t help her,” the doctor said. “She is very sad and has no desire to
live. Someone must make her happy again. What is she interested in?”
“She is an artist,” Sue replied. “She wants to paint a picture of bay of Naples.”
“Painting!” said the doctor . “That won't help her!”
Sue was distressed by this news and didn't know what to do to help
Johnsy. She went into the workroom and cried and then she swaggered into
Johnsy's room with her drawing board, whistling ragtime. Johnsy lay silently in her
bed with her face towards the window. Sue stopped whistling, thinking Johnsy was
asleep.
Sue arranged her board and began drawing to illustrate a magazine story.
As Sue was sketching a figure of a hero, an Idaho cowboy, she heard a low sound,
several times repeated. She went quickly to the bedside.
Johnsy's eyes were open wide. She was looking out the window and
counting - counting backwards.
"Twelve," she said, and little later "eleven"; and then "ten," and "nine"; and then
"eight" and "seven", almost together .
Sue looked out of the window wondering what was there to count? There
was only a bare, dreary yard to be seen, and the blank side of the brick house
was only a bare, dreary yard to be seen, and the blank side of the brick house
twenty feet away. An old, old ivy vine, gnarled and decayed at the roots, climbed
half way up the brick wall. The cold breath of autumn had stricken its leaves from
the vine until its skeleton branches clung, almost bare, to the crumbling bricks.
"What is it, dear?" asked Sue.
"Six," said Johnsy, in almost a whisper . "They're falling faster now. Three days ago
there were almost a hundred. My head ached when I was counting them but now
it's easy. There goes another one. There are only five left now."
"Five what, dear? Tell me."
"Leaves on the ivy vine. When the last one falls I must go, too. I've known that for
three days. Didn't the doctor tell you?"
"Oh, I never heard of such nonsense," complained Sue, with magnificent scorn.
"What have old ivy leaves to do with your getting well? Try to sleep," said Sue. "I
must call Behrman up to be my model for the old hermit miner . I'll not be gone a
minute. Don't try to move 'til I come back."
Old Behrman was a painter who lived on the ground floor of the same
building. He was sixty years old and had always dreamed of painting a
masterpiece, but unfortunately till now he was not able to fulfill his dream. Sue
found Behrman in his dimly lighted apartment sitting in his chair . She told him of
Johnsy's condition. Old Behrman, with his red eyes plainly streaming, shouted his
contempt and derision for such idiotic imaginings.
Johnsy was sleeping when they went upstairs. Sue pulled the shade down
to the windowsill, and motioned Behrman into the other room. In there they
peered out the window fearfully at the ivy vine. Then they looked at each other for
a moment without speaking. A persistent, cold rain was falling, mingled with snow.
When Sue awoke from an hour's sleep the next morning she found Johnsy with
dull, wide-open eyes staring at the drawn green shade.
"Pull it up; I want to see," she ordered, in a whisper . Wearily Sue obeyed.
"It is the last one," said Johnsy. It will fall today, and I shall die at the same time."
"Dear, dear!" said Sue, leaning her worn face down to the pillow, "think of me, if
you won't think of yourself. What would I do?" But Johnsy did not answer .
The leaf stayed on the vine all day. That night, there was more wind and rain.
When it was light enough Johnsy commanded that the shade be raised. The ivy
leaf was still there.
"I've been a foolish girl, Sue," said Johnsy. “I wanted to die but the last leaf
stayed on the vine to teach me a lesson. Please bring me some soup now.” “You
know Sue, some day I hope to paint the Bay of Naples."
The doctor visited the girls in the afternoon. “Take good care of your
friend,” he said. “She is going to get well. Now I have to go downstairs. I have to visit
Mr . Behrman. He has pneumonia too. I must send him to the hospital.”
The next day the doctor said to Sue: "She's out of danger . You won.
Nutrition and care now - that's all." And that afternoon Sue came to the bed where
Johnsy lay, contentedly knitting a woolen shoulder scarf. "I have something to tell
you, dear," she said. "Mr . Behrman died of pneumonia today in the hospital. He
was ill only two days. The janitor found him the morning of the first day in his room
downstairs helpless with pain. His shoes and clothing were wet through and icy
cold. They couldn't imagine where he had been on such a dreadful night. And then
they found a lantern, still lighted, and a ladder that had been dragged from its
place, and some scattered brushes, and a palette with green and yellow colors
mixed on it, and - look out the window, dear, at the last ivy leaf on the wall. Didn't
you wonder why it never fluttered or moved when the wind blew? Ah, darling, it's
Behrman's masterpiece - he painted it there the night that the last leaf fell .”
(Adapted from The Last Leaf by O. Henry, 1907)
Kamis, 19 Maret 2015
Driver HP 2
| HP | LaserJet 4345mfp | Windows | Download | ||
| HP | LaserJet 4345xm mfp | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet 4345xs mfp | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet 4730 | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet 4730x MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet 4730xm MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet 4730xs MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet 8550 | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet 9000 | Windows | Download | ||
| HP | LaserJet 9000LMFP | Windows | Download | ||
| HP | LaserJet 9000mfp | Windows | Download | ||
| HP | LaserJet 9040mfp | Windows | Download | ||
| HP | LaserJet 9050mfp | Windows | Download | ||
| HP | LaserJet 9055mfp | Windows | Download | ||
| HP | LaserJet 9065mfp | Windows | Download | ||
| HP | LaserJet 9500mfp | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet CM1015 | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet CM1017 | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet M1005 MFP | Windows | Download | ||
| HP | LaserJet M3027 MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet M3027x MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet M3035 MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet M3035xs MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet M4345 MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet M4345x MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet M4345xm MFP | Win2003 / Windows 2000 / Windows XP | Download |
Driver HP 1
| Vendor | Model | Comments | OS | Download | +CD |
|---|---|---|---|---|---|
| HP | LaserJet M4345xs MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet M5025 MFP | Win2003 / Windows 2000 / Windows XP | Download |
| HP | LaserJet M5035 MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet M5035x MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet M5035xs MFP | Win2003 / Windows 2000 / Windows XP | Download | ||
| HP | LaserJet Pro 1536dnf | Windows 7 / Windows 7 64 bit | Download |
Minggu, 15 Maret 2015
Contoh List Program C++ 2
berikut ini ialah listing program untuk pembuatan kasir sederhana
memakai bahasa c++ dan tujuan dari penulisan ini sebagai tugas kelompok
untuk pelajaran ap 3.
Tanpa menunggu lama lagi berikut Listing program kasir :
#include "conio.h"
#include "iostream.h"
#include "stdio.h"
#include "string.h"
int main()
{
struct
{
char kobar, nabar[20];
int harga, jumli, total, bayar, kembali;
}brng;
char awal, ulang;
awal:
clrscr();
puts("----------------------------------------------");
puts("* PROGRAM KASIR *");
puts("----------------------------------------------");
puts("[1] Input Makanan");
puts("[2] Input Barang");
puts("[3] Input Minuman");
puts("[4] exit");
cout<<"Pilih Kode Menu [1/2/3/4] : ";cin>>awal;
if (awal=='1')
goto satu;
else
if (awal=='2')
goto dua;
else if (awal=='3')
goto tiga;
else
goto empat;
satu:
clrscr();
puts("----------------------------------------------");
puts("* DAFTAR MAKANAN *");
puts("----------------------------------------------");
puts("[A] Nasi Goreng");
puts("[B] Nasi Campur Spesial");
puts("[C] Ramen");
puts("[D] Soto");
cout<<"Kode Barang [A/B/C/D] : ";cin>>brng.kobar;
if (brng.kobar=='A'||brng.kobar=='a')
{strcpy (brng.nabar, "Nasi Goreng");
brng.harga=8000;}
else
if (brng.kobar=='B'||brng.kobar=='b')
{strcpy (brng.nabar, "Nasi Campur Spesial");
brng.harga=10000;}
else
if (brng.kobar=='C'||brng.kobar=='c')
{strcpy (brng.nabar, "Ramen");
brng.harga=15000;}
else
{strcpy (brng.nabar, "Soto");
brng.harga=5000;}
puts("----------------------------------------------");
cout<<"Nama Barang : "<<brng.nabar<<endl;
cout<<"Harga Barang : Rp. "<<brng.harga<<endl;
cout<<"Jumlah Beli : ";cin>>brng.jumli;
brng.total=brng.harga*brng.jumli;
cout<<"Total Bayar : Rp. "<<brng.total<<endl;
cout<<"Uang Bayar : Rp. ";cin>>brng.bayar;
brng.kembali=brng.bayar-brng.total;
cout<<"Uang Kembali : Rp. "<<brng.kembali<<endl;
puts("----------------------------------------------");
cout<<"Mau input lagi [Y/T] : ";cin>>ulang;
if (ulang=='Y'||ulang=='y')
goto satu;
else
goto awal;
dua:
clrscr();
puts("----------------------------------------------");
puts("* DAFTAR BARANG *");
puts("----------------------------------------------");
puts("[A] Bata");
puts("[B] Nevada");
puts("[C] Homyped");
puts("[D] Macbeth");
cout<<"Kode Barang [A/B/C/D] : ";cin>>brng.kobar;
if (brng.kobar=='A'||brng.kobar=='a')
{strcpy (brng.nabar, "Bata");
brng.harga=90000;}
else
if (brng.kobar=='B'||brng.kobar=='b')
{strcpy (brng.nabar, "Nevada");
brng.harga=100000;}
else
if (brng.kobar=='C'||brng.kobar=='c')
{strcpy (brng.nabar, "Homyped");
brng.harga=150000;}
else
{strcpy (brng.nabar, "Macbeth");
brng.harga=800000;}
puts("----------------------------------------------");
cout<<"Nama Barang : "<<brng.nabar<<endl;
cout<<"Harga Barang : Rp. "<<brng.harga<<endl;
cout<<"Jumlah Beli : ";cin>>brng.jumli;
brng.total=brng.harga*brng.jumli;
cout<<"Total Bayar : Rp. "<<brng.total<<endl;
cout<<"Uang Bayar : Rp. ";cin>>brng.bayar;
brng.kembali=brng.bayar-brng.total;
cout<<"Uang Kembali : Rp. "<<brng.kembali<<endl;
puts("----------------------------------------------");
cout<<"Transaksi lagi [Y/T] : ";cin>>ulang;
if (ulang=='Y'||ulang=='y')
goto dua;
else
goto awal;
tiga:
clrscr();
puts("----------------------------------------------");
puts("* DAFTAR MINUMAN *");
puts("----------------------------------------------");
puts("[A] Fanta");
puts("[B] Es Jeruk");
puts("[C] Teh");
puts("[D] Pulpy Orange");
cout<<"Kode Barang [A/B/C/D] : ";cin>>brng.kobar;
if (brng.kobar=='A'||brng.kobar=='a')
{strcpy (brng.nabar, "Fanta");
brng.harga=4000;}
else
if (brng.kobar=='B'||brng.kobar=='b')
{strcpy (brng.nabar, "Es Jeruk");
brng.harga=6000;}
else
if (brng.kobar=='C'||brng.kobar=='c')
{strcpy (brng.nabar, "Teh");
brng.harga=3000;}
else
{strcpy (brng.nabar, "Pulpy Orange");
brng.harga=8000;}
puts("----------------------------------------------");
cout<<"Nama Barang : "<<brng.nabar<<endl;
cout<<"Harga Barang : Rp. "<<brng.harga<<endl;
cout<<"Jumlah Beli : ";cin>>brng.jumli;
brng.total=brng.harga*brng.jumli;
cout<<"Total Bayar : Rp. "<<brng.total<<endl;
cout<<"Uang Bayar : Rp. ";cin>>brng.bayar;
brng.kembali=brng.bayar-brng.total;
cout<<"Uang Kembali : Rp. "<<brng.kembali<<endl;
puts("----------------------------------------------");
cout<<"Mau input lagi [Y/T] : ";cin>>ulang;
if (ulang=='Y'||ulang=='y')
goto tiga;
else
goto awal;
empat:
cout<<endl;
cout<<"***** TERIMA KASIH *****";
getch();
return 0;
}
Tanpa menunggu lama lagi berikut Listing program kasir :
#include "conio.h"
#include "iostream.h"
#include "stdio.h"
#include "string.h"
int main()
{
struct
{
char kobar, nabar[20];
int harga, jumli, total, bayar, kembali;
}brng;
char awal, ulang;
awal:
clrscr();
puts("----------------------------------------------");
puts("* PROGRAM KASIR *");
puts("----------------------------------------------");
puts("[1] Input Makanan");
puts("[2] Input Barang");
puts("[3] Input Minuman");
puts("[4] exit");
cout<<"Pilih Kode Menu [1/2/3/4] : ";cin>>awal;
if (awal=='1')
goto satu;
else
if (awal=='2')
goto dua;
else if (awal=='3')
goto tiga;
else
goto empat;
satu:
clrscr();
puts("----------------------------------------------");
puts("* DAFTAR MAKANAN *");
puts("----------------------------------------------");
puts("[A] Nasi Goreng");
puts("[B] Nasi Campur Spesial");
puts("[C] Ramen");
puts("[D] Soto");
cout<<"Kode Barang [A/B/C/D] : ";cin>>brng.kobar;
if (brng.kobar=='A'||brng.kobar=='a')
{strcpy (brng.nabar, "Nasi Goreng");
brng.harga=8000;}
else
if (brng.kobar=='B'||brng.kobar=='b')
{strcpy (brng.nabar, "Nasi Campur Spesial");
brng.harga=10000;}
else
if (brng.kobar=='C'||brng.kobar=='c')
{strcpy (brng.nabar, "Ramen");
brng.harga=15000;}
else
{strcpy (brng.nabar, "Soto");
brng.harga=5000;}
puts("----------------------------------------------");
cout<<"Nama Barang : "<<brng.nabar<<endl;
cout<<"Harga Barang : Rp. "<<brng.harga<<endl;
cout<<"Jumlah Beli : ";cin>>brng.jumli;
brng.total=brng.harga*brng.jumli;
cout<<"Total Bayar : Rp. "<<brng.total<<endl;
cout<<"Uang Bayar : Rp. ";cin>>brng.bayar;
brng.kembali=brng.bayar-brng.total;
cout<<"Uang Kembali : Rp. "<<brng.kembali<<endl;
puts("----------------------------------------------");
cout<<"Mau input lagi [Y/T] : ";cin>>ulang;
if (ulang=='Y'||ulang=='y')
goto satu;
else
goto awal;
dua:
clrscr();
puts("----------------------------------------------");
puts("* DAFTAR BARANG *");
puts("----------------------------------------------");
puts("[A] Bata");
puts("[B] Nevada");
puts("[C] Homyped");
puts("[D] Macbeth");
cout<<"Kode Barang [A/B/C/D] : ";cin>>brng.kobar;
if (brng.kobar=='A'||brng.kobar=='a')
{strcpy (brng.nabar, "Bata");
brng.harga=90000;}
else
if (brng.kobar=='B'||brng.kobar=='b')
{strcpy (brng.nabar, "Nevada");
brng.harga=100000;}
else
if (brng.kobar=='C'||brng.kobar=='c')
{strcpy (brng.nabar, "Homyped");
brng.harga=150000;}
else
{strcpy (brng.nabar, "Macbeth");
brng.harga=800000;}
puts("----------------------------------------------");
cout<<"Nama Barang : "<<brng.nabar<<endl;
cout<<"Harga Barang : Rp. "<<brng.harga<<endl;
cout<<"Jumlah Beli : ";cin>>brng.jumli;
brng.total=brng.harga*brng.jumli;
cout<<"Total Bayar : Rp. "<<brng.total<<endl;
cout<<"Uang Bayar : Rp. ";cin>>brng.bayar;
brng.kembali=brng.bayar-brng.total;
cout<<"Uang Kembali : Rp. "<<brng.kembali<<endl;
puts("----------------------------------------------");
cout<<"Transaksi lagi [Y/T] : ";cin>>ulang;
if (ulang=='Y'||ulang=='y')
goto dua;
else
goto awal;
tiga:
clrscr();
puts("----------------------------------------------");
puts("* DAFTAR MINUMAN *");
puts("----------------------------------------------");
puts("[A] Fanta");
puts("[B] Es Jeruk");
puts("[C] Teh");
puts("[D] Pulpy Orange");
cout<<"Kode Barang [A/B/C/D] : ";cin>>brng.kobar;
if (brng.kobar=='A'||brng.kobar=='a')
{strcpy (brng.nabar, "Fanta");
brng.harga=4000;}
else
if (brng.kobar=='B'||brng.kobar=='b')
{strcpy (brng.nabar, "Es Jeruk");
brng.harga=6000;}
else
if (brng.kobar=='C'||brng.kobar=='c')
{strcpy (brng.nabar, "Teh");
brng.harga=3000;}
else
{strcpy (brng.nabar, "Pulpy Orange");
brng.harga=8000;}
puts("----------------------------------------------");
cout<<"Nama Barang : "<<brng.nabar<<endl;
cout<<"Harga Barang : Rp. "<<brng.harga<<endl;
cout<<"Jumlah Beli : ";cin>>brng.jumli;
brng.total=brng.harga*brng.jumli;
cout<<"Total Bayar : Rp. "<<brng.total<<endl;
cout<<"Uang Bayar : Rp. ";cin>>brng.bayar;
brng.kembali=brng.bayar-brng.total;
cout<<"Uang Kembali : Rp. "<<brng.kembali<<endl;
puts("----------------------------------------------");
cout<<"Mau input lagi [Y/T] : ";cin>>ulang;
if (ulang=='Y'||ulang=='y')
goto tiga;
else
goto awal;
empat:
cout<<endl;
cout<<"***** TERIMA KASIH *****";
getch();
return 0;
}
Contoh List Program C++
Berikut List program C++ membuat kalkulator sederhana
List Program
#include "stdafx.h"
#include "iostream"
using std::cout;
using std::cin;
#include "string"
using namespace std;
int _tmain(int argc, _TCHAR* argv[])
{
char input;
int c,a,b;
cout<<"____________________\n";
cout<<"Kalkulator
Sederhana\n";
cout<<"____________________\n\n";
cout<<"1.Perkalian\n\n";
cout<<" Input Nilai Pertama : ";cin>>a;
cout<<" Input Nilai Kedua : ";cin>>b;
c=a*b;
cout<<" Hasil Perkalian : "<<c<<"\n\n";
cout<<"2.Penjumlahan\n\n";
cout<<" Input Nilai Pertama : ";cin>>a;
cout<<" Input Nilai kedua : ";cin>>b;
c=a+b;
cout<<" Hasil Penjumlahan : "<<c<<"\n\n";
cout<<"3.Pembagian\n\n";
cout<<" Input Nilai Pertama : ";cin>>a;
cout<<" Input Nilai Kedua : ";cin>>b;
c=a%b;
cout<<" Hasil Pembagian : "<<c<<"\n\n\n";
cout<<"4.Pengurangan\n\n";
cout<<" Input Nilai Pertama : ";cin>>a;
cout<<" Input Nilai Kedua : ";cin>>b;
c=a-b;
cout<<" Hasil Pengurangan : "<<c<<"\n\n\n";
cin>>input;
return 0;
}
Output
Contoh List Program 3
Program Menghitung Jumlah
Bilangan Perulangan FOR Dengan Nilai Statis
|
|
|
Skrip Program Pascal
|
Output Program
|
|
program jum_bil;
uses wincrt;var i, jum,bil: integer; begin jum:=0; {inisialisasi} for i:=1 to 5 do begin write(‘Masukkan Bilangan = ‘);readln(bil); jum:=jum+bil; end; writeln(‘Jumlah Bilangan = ‘,jum); end. |
Masukkan Bilangan = 12
Masukkan Bilangan = 12Masukkan Bilangan = 12 Masukkan Bilangan = 12 Masukkan Bilangan = 12 Jumlah Bilangan = 60 |
|
Program Menghitung Jumlah
Bilangan Perulangan FOR Dengan Nilai Dinamis
|
|
|
Skrip Program Pascal
|
Output Program
|
|
program jum_bil2;
uses wincrt;var i, n: integer; jum, bil: real; begin write(‘Banyak bilangan : ’);read(n); jum := 0; For i:= 1 to n do begin write(‘Masukkan Bilangan ‘,i, ‘=’);read(bil); jum := jum+bil; end; writeln(‘Jum = ‘,jum:0:2); end. |
Banyak bilangan : 3
Masukkan Bilangan 1 = 12Masukkan Bilangan 2 = 13 Masukkan Bilangan 3 = 14 Jum = 39.00 |
|
Program Menghitung Jumlah dan
Mean Bilangan Perulangan FOR Dengan Nilai Dinamis
|
|
|
Skrip Program Pascal
|
Output Program
|
|
program contoh_3;
uses wincrt;var n, i : integer; rata : real; jum, bil : integer; begin Write(‘Masukkan nilai N = ‘);readln(n); writeln (‘Nilai N adalah= ‘,n);writeln; for i := 1 to n do begin write(‘Masukkan bilangan : ‘);read(bil); jum := jum+bil; end; rata := jum/n;writeln; writeln(‘Jumlahnya adalah : ‘,jum); writeln(‘Nilai rata-ratanya :’, rata:0:2); end. |
Masukkan nilai N = 3
Nilai N adalah= 3Masukkan bilangan: 1 Masukkan bilangan: 2 Masukkan bilangan: 3 Jumlahnya adalah : 6 Nilai rata-ratanya : 2.00 |
|
Program Menghitung Jumlah dan
Banyaknya Data
|
|
|
Script Program Pascal
|
Output Program Pascal
|
|
program contoh4;
uses wincrt;var n, i,byk,jum, bil : integer; begin Write(‘Masukkan nilai perulangan : ‘);readln(n); Writeln; for i := 1 to n do begin write(‘Bilangan ‘,i,’ = ‘);read(bil); if bil >= 10 then begin byk := byk+1; jum := jum+bil ; end; end; writeln; writeln(‘banyak bilangan yang >= 10 : ‘,byk); writeln(‘jumlah bilangan yang >= 10 : ‘,jum); end. |
Masukkan nilai perulangan: 3
Bilangan 1 = 10Bilangan 2 = 3 Bilangan 3 = 25 Banyak bilangan yang >= 10 : 2 Jumlah bilangan yang >= 10 : 35 |
uses crt;
procedure garis;
begin
writeln(’==============================================’);
end;
type
reckaryawan=record
jab,nip,nama:string;
gol:integer;
gapok,tunj:real;
end;
var pegawai:reckaryawan;
total:real;
begin
clrscr;
writeln(’ LAPORAN PERHITUNGAN GAJI KARYAWAN PT MAJU TAK GENTAR’);
garis;
writeln;
write(’Masukan NIP Karyawan : ‘);readln(pegawai.nip);
write(’Masukan Nama Karyawan : ‘);readln(pegawai.nama);
write(’Golongan[1/2/3] : ‘);readln(pegawai.gol);
garis;
case pegawai.gol of
1:
begin
pegawai.jab:=’Staf dan Tetap’;
pegawai.gapok:=900000;
end;
2:
begin
pegawai.jab:=’Staf dan Kontrak’;
pegawai.gapok:=700000;
end;
3:
begin
pegawai.jab:=’Kontrak’;
pegawai.gapok:=500000;
end;
end;
if pegawai.jab=’Staf dan Tetap’ then
pegawai.tunj:=25/100*pegawai.gapok
else
if pegawai.jab=’Staf dan Kontrak’ then
pegawai.tunj:=10/100*pegawai.gapok
else
pegawai.tunj:=0;
total:=(pegawai.gapok)+(pegawai.tunj);
writeln(’Jabatan Karyawan : ‘,pegawai.jab);
writeln(’Gaji Pokok : ‘,pegawai.gapok:8:0);
writeln(’Tunjangan : ‘,pegawai.tunj:8:0);
garis;
writeln(’Total Gaji Karyawan : ‘,total:8:0);
readln;
end.
Program DataPegawai;
Uses Wincrt;
Type Pegawai = record
NIP : String[9];
Nama : String[50];
Golongan : Char;
Jamkerja : Real;
End;
Var
Data : Pegawai;
Gapok : Real;
Insentif,Gaber : Real;
Ul : Char;
Begin
Repeat
Clrscr;
Writeln('Entry Data Pegawai PT. Punya gua');
Writeln('==========================');
Writeln;
Write('NIP : ');Readln(Data.NIP);
Write('Nama : ');Readln(Data.Nama);
Write('Golongan : ');Readln(Data.Golongan);
Write('Jam Kerja : ');Readln(Data.Jamkerja);
Writeln;
Writeln;
Case Data.Golongan of
'1' : Gapok:=1000000;
'2' : Gapok:=1500000;
'3' : Gapok:=2000000;
Else
Gapok:=0;
End;
if Data.Jamkerja>200 then
Insentif:=(Data.Jamkerja-200)*10000
else
Insentif:=0;
Gaber:=Gapok+Insentif;
Clrscr;
Writeln('Laporan Gaji Pegawai');
Writeln('PT. XYZ');
Writeln;
Writeln('============================================================================');
Writeln('|NIP | Nama | Golongan | Jam Kerja | Gaji |');
Writeln('============================================================================');
Writeln('|',Data.NIP:10,'|',Data.Nama:25,'|',Data.Golongan:10,'|',Data.Jamkerja:11:0,'|',Gaber:14:2,'|');
Writeln('============================================================================');
Writeln;
Write('Mau Ulang Lagi? [Y/T]: ');Readln(Ul);
Until Upcase(Ul) <> 'Y';
End.
================================================================================
Program Gaji_Tunjangan_dan_Pajak;
{Menghitung jumlah gaji berdasarkan
golongan, tunjangan anak dan istri, total gaji setelah pajak}
Uses wincrt;
var
nama,jab : string[20];
noin
: string[10];
golgaj
: char;
stmerit, jmlanak : integer;
gaj,tjbini,tjanak,pajgaj,jmlpajgaj,jmltjgaj,tolgaj,tolgajstpaj
: real;
Begin
clrscr;
Writeln
('=============================================');
Writeln
('PERHITUNGAN GAJI DAN TUNJANGAN DAN PAJAK GAJI');
Writeln
('=============================================');
Writeln;
Writeln ('Isikan
Data anda sesuai ketentuan berikut ini : ');
Writeln
('----------------------------------------------- ');
Writeln;
Writeln ('Golongan
Gaji : Status
Perkawinan : ');
Writeln ('a. Rp.
2.000.000.00 1. Kawin ');
Writeln ('b. Rp.
2.500.000.00 2. Belum kawin');
Writeln ('c. Rp.
3.000.000.00 3. Cerai ');
Writeln;
Write ('Masukkan
No karyawan : ');readln
(noin);
Write ('Masukkan
nama anda :
');readln (nama);
Write ('Masukkan
Jabatan
: ');readln (jab);
Write ('Masukkan
Golongan gaji anda : ');readln (golgaj);
case golgaj of
'a' : begin
gaj := 2000000;
pajgaj := (2/100);
Write ('Status Perkawinan anda : ');readln (stmerit);
case stmerit of
1 : begin
tjbini := (5/100)*gaj;
Write ('Jumlah anak : ');readln
(jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
2 : begin
tjbini := 0;
tjanak := 0;
end;
3 : begin
tjbini := 0;
Write ('Jumlah anak : ');readln
(jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
else
Writeln;
Writeln ('================================================================');
Writeln;
Writeln ('Tunjangan tidak terhitung karena tidak terinput dengan benar !!!');
end;
end;
'b' : begin
gaj := 2500000;
pajgaj := (2.5/100);
Write ('Status Perkawinan anda : ');readln (stmerit);
case stmerit of
1 : begin
tjbini := (5/100)*gaj;
Write ('Jumlah anak : ');readln
(jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
2 : begin
tjbini := 0;
tjanak := 0;
end;
3 : begin
tjbini := 0;
Write ('Jumlah anak : ');readln
(jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
else
writeln;
Writeln ('================================================================');
Writeln;
Writeln ('Tunjangan tidak terhitung karena tidak terinput dengan benar !!!');
end;
end;
'c' : begin
gaj := 3000000;
pajgaj := (3/100);
Write ('Status Perkawinan anda : ');readln (stmerit);
case stmerit of
1 :
begin
tjbini := (5/100)*gaj;
Write ('Jumlah anak : ');readln
(jmlanak);
if jmlanak <= 3 then
tjanak := jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
2 : begin
tjbini := 0;
tjanak := 0;
end;
3 : begin
tjbini := 0;
Write ('Jumlah anak : ');readln
(jmlanak);
if jmlanak <= 3 then
tjanak
:= jmlanak*((2/100)*gaj)
else
tjanak := 3*((2/100)*gaj);
end;
else
writeln;
Writeln
('================================================================');
Writeln;
Writeln ('Tunjangan tidak terhitung karena tidak terinput dengan benar !!!');
end;
end;
else
Writeln;
Writeln ('=======================================');
Writeln;
Writeln ('Maaf, Golongan Gaji tidak terdaftar !!!');
Writeln;
end;
jmltjgaj := tjbini+tjanak;
tolgaj := gaj+jmltjgaj;
jmlpajgaj :=
tolgaj*pajgaj;
tolgajstpaj :=
tolgaj-jmlpajgaj;
Writeln;
Writeln ('SLIP
GAJI -----------------------------------> ');
Writeln;
Writeln
('Nama : ',nama);
Writeln ('No Karyawan
: ',noin);
Writeln
('Jabatan : ',jab);
Writeln
('+============================================+');
Writeln ('|
Rincian
| Jumlah | ');
Writeln
('+============================================+');
Writeln ('| Besar
Gaji
: | Rp.',gaj:8:0,' |');
Writeln ('|
Tunjangan istri : |
Rp.',tjbini:8:0,' |');
Writeln ('|
Tunjangan anak : |
Rp.',tjanak:8:0,' |');
Writeln ('| Total
gaji
: | Rp.',tolgaj:8:0,' |');
Writeln ('| Pajak
gaji
: | Rp.',jmlpajgaj:8:0,' |');
Writeln
('+----------------------------+---------------+');
Writeln ('| Total
gaji setelah pajak : | Rp.',tolgajstpaj:8:0,' |');
Writeln ('+----------------------------+---------------+');
Writeln ('Program
by, w1r0');
readln;
Langganan:
Postingan (Atom)