Belanja Buku Online

Konsultan Anda
indah elmande
Independent
Oriflame Consultant
    
Sekilas Tentang Saya
Hi, selamat datang di Boss Family.
Saya indah elmande akan membantu anda untuk ikut bergabung bersama kami.
"DAFTARKAN DIRI ANDA SEKARANG!!
http://asetvirtual.com/?aff=trisnanto
"RHANA GHAIDHA AZZAHRA"
Dilahirkan di Tangerang tanggal 09 Desember 2009 Bertepatan dengan hari
"Anti Korupsi"
Semoga anak ini menjadi anak yang Shalihah dan besar kelak menjadi salah satu pelopor pemberantasan korupsi di negeri ini

Mengenai Saya

Foto saya
Jakarta Barat, Jakarta, Indonesia

Konsep Dasar Pascal

Makalah
Praktikum Dasar Pemrograman

ANGGOTA:
Chris Widya Angga   (41507010027)
Dede Lalan Maulana (41510010054)
Gilang Ramadhan      (41510010010)
Himawan                  (41510010027)
M. Syahri                 (41510010005)


KONSEP DASAR BAHASA PASCAL
 

1. Struktur Dan Komponen Dasar Program Pascal.
Struktur dari suatu program Pascal terdiri dari sebuah judul program dan suatu blok program atau badan   
program. Badan program dibagi lagi menjadi dua bagian, yaitu bagian deklarasi dan bagian pernyataan (statement).
 

1.1 Struktur program :
Judul Program PROGRAM nama-program;
Blok Program
Bagian deklarasi
deklarasi label LABEL nama-label;
deklarasi konstanta CONST…………..;
deklarasi tipe TYPE …………….;
deklarasi variabel VAR ……………...;
deklarasi prosedur PROCEDURE nama-prosedur;
……………………………….;
deklarasi fungsi FUNCTION nama-fungsi;
………………………….;
Bagian Pernyataan
Begin
(statement)
…………;
…………;
end.

Contoh : Menghitung perkalian dua bilangan bulat
PROGRAM Perkalian; {Judul}
VAR A,B,Hasil : Integer; {Deklarasi variabel}
BEGIN
A := 2; {Statemant}
B := 1; {Statemant}
Hasil := A + B; {Statement}
Writeln (A,B,Hasil); {Statement}
END.
Judul program sifatnya adalah optional, dan bila ditulis, harus terletak pada awal dari program dan diakhiri dengan titik koma. Bagian deklarasi digunakan bila di dalam program digunakan pengenal ( identifier). Identifier dapat berupa label, konstanta, tipe, variabel, prosedur dan fungsi. Kalau suatu program menggunakan identifier, Pascal menuntut supaya identifier tersebut diperkenalkan terlebih dahulu sebelum digunakan, yaitu dideklarasikan terlebih dahulu pada bagian ini.

2. Beberapa aturan dalam program Pascal :
• Akhir sebuah program Pascal ditandai dengan tanda baca titik (.) setelah END yang paling akhir.
• Tanda titik koma (;) merupakan pemisah antar instruksi satu dengan lainnya.
• Beberapa statement boleh ditulis menjadi satu baris dipisahkan dengan tanda baca titk koma (;)
• Baris komentar diletakkan diantara tanda (* dan *) atau diantara tanda { dan }

2.1 Statement (pernyataan)
Adalah instruksi atau gabungan instruksi, yang menyebabkan komputer melakukan aksi.
Type statement dalam Pascal terdiri atas :
1. Sederhana :
menandai sebuah item data ke sebuah variabel (assigment statement)
contoh : X := Y * 2
pemanggilan procedure dan goto statement
2. Terstruktur:

Compound Statement
contoh : Begin
y := 2+1;
write (y)
End.
Repetitive Statement

contoh : For I := 1 to 10 do
write (‘test’);
Conditional Statement
contoh : If x > 10 then write (‘belajar turbo pascal’)
else write (‘saya tidak belajar turbo pascal’) ;
 

3. Komponen Dasar Program Pascal
Pola susun bahasa Pascal dibentuk dengan menggunakan komponen bahasa pemrograman yang umum, yaitu :
1. Simbol Dasar
2. Reserved Word (kata pasti)
3. Identifier (penyebut)
Keterangan :
1. Simbol Dasar.
Simbol dasar terdiri atas :
o Simbol huruf, yaitu huruf A sampai dengan Z atau a sampai dengan z. (huruf besar dan kecil).
o Simbol angka atau digit yaitu : 0,1,2,3,4,5,6,7,8,9.
o Simbol khusus, yaitu
+ - * / ; := , ‘ = <><= >= <> : { } ( ) [ ]
2. Reserved Word (kata pasti)
Reserved Word adalah suatu kata yang secara mutlak tidak boleh diartikan lain dan harus digunakan sebagaimana yang telah didefinisikan atau ditentukan kegunaanya oleh bahasa Pascal. Reserved word ini tidak boleh didefinisikan ulang oleh pemakai, sehingga tidak dapat dipergunakan sebagai pengenal (identifier) Reserved Word ini jumlahnya berbeda untuk masing-masing bahasa Pascal.Contoh beberapa reserved word yang telah didefinisikan oleh bahasa pascal antara lain :

AND ELSE LABEL SET
ARRAY END OF TYPE
BEGIN FUNCTION OR UNTIL
CASE FOR PROCEDURE VAR
CONST GOTO PROGRAM WHILE
DO IF RECORD WITH
DOWNTO IN REPEAT dsb

3. Identifier (sebutan/pengenal)
Identifier merupakan sebuah kata yang digunakan sebagai nama atau sebutan terhadap sesuatu didalam program. Pemakai dapat mendefinisikan sendiri suatu namasebagai identifier. Identifier ini terdiri atas :
i. Identifier Standar, yaitu identifier yang telah didefinisikan oleh bahasa pascal. Contoh dari Identifier standar ini antara lain:
ABS LN, ARCTAN ODB, BOOLEAN PRED, CHAR ROUND, CHR READ, COS READLN, EOF SQR, EOLN SQRT, EXP SUCC
ii. Identifier Non Standar; yaitu identifier yang didefinisikan oleh pemakai bahasa pascal; misalnya;
iii. nama suatu program
iv. nama suatu konstanta
v. nama suatu variabel
vi. nama suatu procedure
vii. Identifier ini bebas, tetapi dengan ketentuan-ketentuan sebagai berikut : terdiri dari gabungan huruf dan angka dengan karakter pertama harus berupa huruf. Huruf besar dan huruf kecil dianggap sama.
viii. Tidak boleh mengandung blank.
ix. Tidak boleh mengandung simbol-simbol khusus, kecuali garis bawah.
Panjangnya bebas, tetapi hanya 63 karakter pertama yang dianggap signifikan.

4. Jenis – jenis data
Jenis – jenis data yang dikenal dalam bahasa pascal antara lain yaitu:
4.1 Jenis data sederhana
a. Jenis data yang standar; yaitu :
• Integer
• Real
• Karakter
• Boolean
b. Jenis data yang non standar (user defined), yaitu;
• Enumerated
• Sub-range
4.2 Jenis data berstuktur, yaitu:
b. Array
c. Record
d. c. Set
e. d. File
4.3 Jenis Data Pointer

4.3.1 INTEGER
Jenis data ini terdiri atas integer positif, integer negatif dan nol. Merupakan nilai bilangan bulat. Pada TURBO PASCAL jenis data ini di bagi atas beberapa bagian, yaitu :
Tipe Ukuran memori (dalam byte) Jangkauan nilai
BYTE 1 0..255
SHORTINT 1 -128..127
INTEGER 2 -32768..32767
WORD 2 0..65535
LONGINT 4 -2147483648..2147483647

Operator Integer terdiri atas : + , - , * , / , DIV dan MOD

4.3.2 REAL
Penulisan untuk jenis data ini selalu menggunakan titik desimal. Nilai konstanta numerik real berkisar dari 1E-38 sampai dengan 1E+38 dengan mantissa yang signifikan sampai dengan 11 digit. E menunjukkan nilai 10 pangkat. Nilai konstanta numerik real menempati memori sebesar 6 byte.

Contoh :
123.45
12E5
12E+5
Pada TURBO PASCAL, jenis data ini dibedakan atas :
Tipe Ukuran memori (dalam byte Jangkauan nilai Digit signifikan
SINGLE 4 1.5x10E-45 .. 3.4x10E38 7-2-8
DOUBLE 8 5.0x10E-324 .. 1.7x10E308 15-16
EXTENDE 10 1.9x10E-4951 .. 1.1x10E4932 19-20
COMP 8 -2E+63+1 .. 2E+63-1 19-20

Operator untuk jenis data ini terdiri atas : + , - , * dan /

4.3.3 KARAKTER
Yang dimaksud dengan jenis data ini adalah karakter tunggal atau sebuah karakter yang ditulis diantara tanda petik tunggal, seperti misalnya ‘A’,’a’,’!’,’5’ dsb.
4.3.4 STRING
Nilai data string merupakan urut-urutan dari karakter yang terletak di antara tanda petik tunggal. Nilai data string akan menenpati memori sebesar banyaknya karakter stringnya ditambah dengan 1 byte. Bila panjang dari suatu string di dalam deklarasi variabel tidak disebutkan, maka dianggap panjangnya adalah 255 karakter.
Contoh :
Var
Kampus : string[10];
Begin
Kampus := ‘Gunadarma’;
Write(Kampus);
End.

4.3.5 BOOLEAN
Jenis data ini mempunyai nilai TRUE atau FALSE.
Operator untuk jenis data ini adalah :
1. Logical Operator, yaitu : NOT, AND dan OR
2. Relational Operator, yaitu : >, <, >=, <=, <> dan =


5. JENIS DATA NON-STANDARD (USER DEFINED)
5.1 ENUMERATED.
Jenis data ini terdiri atas barisan identifier yang terurut dimana setiap identifier tersebut dianggap sebagai suatu individual data item (elemen data yang berdiri sendiri) .Pada saat mendeklarasikan jenis data ini kita harus menuliskan semua elemen-elemennya.
Bentuk umum deklarasinya adalah :
TYPE nama = (data_item_1, data_item_2, ……., data_item_n);
Contoh :
TYPE hari = (sen,sel,rab,kam,jum,sab,ming);
TYPE warna = (red,blue,green,yellow,black,white);
Setelah jenis data ini dideklarasikan, maka selanjutnya kita dapat mendeklarasikan suatu variabel yang berjenis data sama dengan jenis data ini.
Misalnya :
TYPE nama_hari = (sen,sel,rab,kam,jum,sab,ming);
VAR libur : nama_hari;
Fungsi standar yang dapat digunakan pada jenis data ini adalah :
PRED, SUCC dan ORD
Misalnya :
PRED (sel) = sen
SUCC (sen) = sel
ORD (sen) = 0

5.2. SUB-RANGE.
Jenis data ini berupa range dari suatu kumpulan data yang mempunyai urutan..
Bentuk umum deklarasinya adalah :
TYPE nama = data_item_pertama .. data_item_terakhir;
Contoh :
1. TYPE jam_kuliah = 1 .. 10;
tanggal = 1 .. 31;
abjad = ‘A’ .. ‘Z’;
2. TYPE bulan = (jan,feb,mar,apr,mei,jun,jul,agt,sep,okt,nov,des);
hari = (sen,sel,rab,kam,jum,sab,ming);
ata = agt .. jan;
pta = feb .. jun;
hari_kerja = sen ..jum;

6. TANDA OPERASI
Tanda operasi (operator) di dalam bahasa Pascal dikelompokkan ke dalam 9 kategori, yaitu
1. Assignment operator.
2. Binary operator.
3. Unary operator.
4. Bitwise operator.
5. Relational operator.
6. Logical operator.
7. Address operator.
8. Set operator.
9. String operator.

6.1 Assignment operator
Assignment operator (operator pengerjaan) menggunakan simbol titik dua diikuti oleh tanda sama dengan (:=).

6.2 Binary operator
Digunakan untuk mengoperasikan dua buah operand. Operand dapat berbentuk konstanta ataupun variabel. Operator ini digunakan untuk operasi aritmatika yang berhubungan dengan nilai tipe data integer dan real.
Operator Operasi Tipe operand Tipe hasil
* Perkalian Real,real
Integer,integer
real,integer Real
Integer
Real
DIV Pembagian Bulat Integer,integer integer
/ Pertambahan Real,real
Integer,integer
Real,integer Real
Real
Real
MOD Sisa Pembagian Integer,integer Integer
+ Pertambahan Real,real
Integer,integer
Real,integer Real
Integer
Real
- Pengurangn Real,real
Integer,integer
Real,real Real
Integer
real

Contoh :
15*5 hasilnya 75
20/3 hasilnya 6.6666666667E+00
20 div 3 hasilnya 6
20 mod 3 hasilnya 2

6.3 Unary operator
Operator ini hanya menggunakan sebuah operand saja. Dapat berupa unary minus dan unary plus. Unary minus digunakan untuk menunjukkan nilai negatif, baik pada operang numerik real maupun integer. Unaru plus adalah operator untuk memberai tanda plus.
Contoh :
-5 +7
-2.5 +2.5

6.4 Bitwise operator
Digunakan untuk operasi bit per bit pada nilai integer. Terdiri dari operator NOT, AND, OR, XOR, Shl, Shr.

6.5 Relational operator
Relational operator digunakan untuk membandingkan hubungan antara dua buah operand dan akan didapatkan hasil tipe boolean, yaitu True atau False. Terdiri dari operator : =, <, >, <=, >=, <>

6.6 Logical operator
Terdapat 4 buah logical operator yaitu : NOT, AND, OR dan XOR. Operator ini bekerja dengan nilai-nilai logika, yaitu True dan False.

6.7 Set operator
Digunakan untuk operasi himpunan.

6.8 String operator
Digunakan untuk operasi string. Hanya ada sebuah operator string saja, yaitu
operator + yang digunakan untuk menggabungkan dua buah nilai string.
Contoh :
Nama1 := ‘Arief ‘;
Nama2 := ‘Kurniawan’;
Nama3 := Nama1 + Nama2;

7. Konstanta, Variabel dan Ekspresi.
7.1 Konstanta.
Konstanta adalah suatu identifier non-standar yang nilainya telah ditetapkan dalam suatu program dan dideklarasikan pada bagian deklarasi. Bagian umum deklarasinya adalah :
CONST identifier = nilai;
7.2 Variabel.
Variabel adalah suatu identifier non-standar yang nilainya tidak tetap atau nilainya merupakan hasil dari suatu proses.
(variabel yang dimaksudkan disini sama seperti halnya arti variabel pada aljabar).
Bentuk umum deklarasinya adalah :
1. Jika hanya 1 (satu) variabel yang dideklarasikan :
VAR identifier : jenis data;
2. Jika lebih dari 1 (satu) variabel dan masing-masing memiliki jenis data yang sama :
VAR id-1, id-2, …., id-3 : jenis data;
3. Jika beberapa variabel yang berbeda jenis datanya :
VAR identifier-1 : jenis data;
identifier-2 : jenis data;
.
.
.
identifier-n : jenis data;
4. Jika variabel yang dideklarasikan berjenis data non-standar :
TYPE id = (data_item_1,data_item_2,…,data_item_n);
VAR id-v : id;
SUB-RANGE :
TYPE id = data_item_pertama .. data_item_terakhir;
VAR id-v : id;
7.3 Ekspresi.
Sebuah ekspresi merupakan kumpulan dari operand-operand (seperti : bilangan,
konstanta, variabel dll) yang bersama-sama dengan operator membentuk suatu bentuk
aljabar dan menyatakan suatu nilai.
Ada 2 (dua) jenis ekspresi dalam bahasa Pascal, yaitu :
1. Ekspresi numerik / aritmatika, yaitu suatu ekspresi yang menghasilkan nilai
numerik / aritmatika.
2. Ekspresi Boolean atau ekspresi logika, yaitu suatu ekspresi yang menghasilkan
nilai boolean / logika (true/false).
Contoh :
1. (b * b – 4 * a * c) / (2*a) / (2 * a)
ekspresi numerik, jika a,b dan c adalah
bilangan (variabel bernilai numerik).
2. Upah < 1000.0 ekspresi boolean (“upah” adalah suatu variabel bernilai real). Turbo Pascal oleh ipotes Halaman : 12 8. Input dan output (Standar I/O). Dalam bahasa Pascal untuk keperluan input (membaca input) digunakan identifier standar READ atau READLN. Identifier standar ReadLn sedikit berbeda dengan Read. ReadLn digunakan untuk memasukkan data perbaris, artinya setelah tombol Enter ditekan, maka akan ganti baris, sedangkan Read tidak ganti baris, masih dalam baris yang sama. Sedangkan untuk keperluan output (mencetak output) digunakan identifier standar WRITE atau WRITLN. Perbedaan Write dengan WriteLn adalah bahwa Write menampilkan hasil tanpa ganti baris dan tampilan berikutnya akan disambung dalam baris yang sama. Sedang WriteLn digunakan untuk menampilkan tampilan perbaris, akan ganti baris untuk tampilan berikutnya. Bentuk umum penulisannya : 1. READ (variabel input) ; Atau READLN (variabel output); 2. WRITE (variabel output); WRITELN (variabel output); This document was created with Win2PDF available at http://www.daneprairie.com. The unregistered version of Win2PDF is for evaluation or non-commercial use only.
BacaSelengkapnya...

Ilmu Kehidupan

Assalammu'alaikum.. Wr.Wb.

Saudaraku..

Ketika kita kerja kita tidak dihargai, saat itulah kita belajar "Ketulusan"
Ketika Usaha Kita dinilai tidak Penting, saat itulah kita belajar "Keikhlasan"
ketika hati kita terluka sangat dalam, saat itulah kita belajar "Memaafkan"
Ketika Kita harus lelah dan kecewa, saat itulah kita belajar "Kesungguhan"
ketika kita merasa sepi dan sendiri, saat itulah kita belajar "Ketangguhan"
Ketika kita harus membayar biaya yang sebenarnya tidak perlu kita tanggung, saat itulah kita sedang belajar "Bermurah Hati"
Tetaplah Sabar, Teruslah Semangat, selalulah tersenyum dan Belajar, karna kita sedang Menimba Ilmu Kehidupan.
Allah SWT. menaruh ditempat kita sekarang bukan karena kebetulan...!
Akan tetapi Allah Punya maksud yang Terindah Untuk Kita...

BacaSelengkapnya...

Melia Propolis

"Natures Miracle Antibiotic"




Propolis dikumpulkan oleh lebah dari tumbuh-tumbuhan atau pucuk muda dan kulit pohon terutama pohon poplar lalu dicampurkan dengan air liurnya, yang digunakan untuk menambal lubang dalam sarang lebah yang sekaligus juga melindungi sarang lebah dari serangan virus, bakteri dan jamur.



Propolis berasal dari bahasa Yunani:
-------------------------------------------------------------------
PRO = SEBELUM, POLIS = KOTA = Sistem Pertahanan Kota.

Kandungan Propolis:

asam amino, vitamin-vitamin, bioflavonoids.

SURAT AN NAHL ayat 68, 69

... akan keluar dari perutnya lebah beraneka warnanya, padanya ada obat bagi tubuh manusia.

John Diamond, MD:

Dari semua makanan tambahan yang saya selidiki dan uji, Propolis sangat bermanfaat pada Thymus yang merupakan tenaga kehidupan. Propolis mampu mengaktifkan kelenjar Thymus yang menjalankan sistem imunisasi tubuh. Kelenjar Thymus berada pada pangkal leher dan mengandung Lympocytes yang memberikan kekebalan pada kuman dan penyakit.

Roy Kupinsel:

Propolis merupakan Antibiotik Alami yang dapat melawan berbagai penyakit tanpa efek samping, menurut penelitian sarang lebah jauh lebih steril dari ruang operasi rumah sakit.
BacaSelengkapnya...

Melia Biang

"Adorable for everyone"


Human Growth Hormon (Hormon Pertumbuhan Manusia): Hormon Protein yang dihasilkan oleh : KELENJAR PITUITARY.

Hormon Pertumbuhan Manusia akan berkurang seiring dengan pertambahan usia. Pada umur 60 tahun volume Hormon Pertumbuhan hanya tinggal sebesar 25% jika dibandingkan dengan usia 21 tahun. Faktor-faktor yang membuat proses penuaan manusia jauh lebih cepat dari yang seharusnya adalah factor pola hidup yang tidak sehat.


PENGURANGAN VOLUME HORMON PERTUMBUHAN

Sistem metabolisme tubuh menurun serta gejala penuaan: daya ingat menurun, warna rambut berubah, kerutan-kerutan, stamina tidak prima, mudah lelah, sangat rentan terhadap penyakit, daya seksual menurun.

KEGUNAAN MELIA BIYANG

Ramuan alami yang berfungsi untuk merangsang Kelenjar Pituitary agar terus memproduksi Hormon Pertumbuhan, sehingga terjadi perbaikan system metabolisme tubuh, regenerasi sel, maka akan terjadi Pembalikan Usia Biologis serta juga meningkatkan aktivitas seksual serta stamina, dan juga meningkatkan kekebalan tubuh.

KANDUNGAN MELIA BIYANG

Kolustrum (susu awal)
Vitamin B Kompleks
Asam Amino
Calsium



BacaSelengkapnya...

Program Kelompok Funtastic Four

uses wincrt;

var
Nama,Golongan:string;
JamLembur:integer;
Gaji,UangLembur,UpahLembur,TotalGaji:real;
ulang:char;

label
balik;

begin
ulang := 'y';
while (ulang = 'y') do
begin
balik:
clrscr;
writeln('Program Kelompok Funtastic Four');
writeln('Ketua Rizal');
writeln('Anggota1 Teguh, Sugi, Galang');
writeln('+++++++++++++++++++++');
write('Nama :'); readln(Nama);
write('Golongan (1a/1b/1c) :'); readln(Golongan);
write('Jam Lembur :'); readln(JamLembur);
if (Golongan = '1a') then

begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end

else

if (Golongan = '1b') then
begin
Gaji := 750000;
UangLembur := 3500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end

else

if (Golongan = '1c') then
begin
Gaji := 850000;
UangLembur := 5000;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end

else

begin
write('Tidak ada golongannya');

end;
write('Untuk mengulangi masukan huruf Y ? ');
readln(ulang);

end;
if ulang = 't' then
begin
write('Selesai......');

end;

end.
BacaSelengkapnya...

Gaji Kelompok-1

{ Kelompok 1
Iman Susilo Nim : 41409120013
Agus Triwijaya Nim : 41409120064
Ridwan Effendi Nim : 41409120068
Munasor Mursidi Nim : 41409120004
}
uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : integer;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
begin
ulang := 'y';
while (ulang = 'y') or (ulang = 'Y') do
begin
clrscr;
write('Nama : ');
readln(Nama);
write('Golongan (1a/1b/1c) : ');
readln(Golongan);
write('Jam Lembur : ');
readln(JamLembur);
writeln;
if (Golongan = '1a') then
begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end

else
if (Golongan = '1b') then
begin
Gaji := 750000;
UangLembur := 3500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = '1c') then
begin
Gaji := 850000;
UangLembur := 5000;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
writeln('Gak ada golongannya');
writeln;
write('Mau mengulangi lagi (y/t)? ');
readln(ulang);
writeln('Selesai.......');
end;
end.
BacaSelengkapnya...

Gaji PT.Bantut

uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : integer;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
Jabatan : string;

begin
ulang := 'y';
while (ulang = 'y') do
begin
clrscr;
writeln (' Ahmad wahyudin,mulyana sastrabidaya,fauzi ridwan ');
writeln (' PT.BANTUT PERKASA ');
writeln ('__________________________________________________');
write('Nama karyawan : ');
readln(Nama );
write('Golongan (1a/1b/1c) : ');
readln(Golongan);
write('Jam Lembur : ');
readln(JamLembur);
if (Golongan = '1a') then
begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Jabatan : Direktur');
writeln('Gaji Pokok : 500000.00');
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end

else
if (Golongan = '1b') then
begin
Gaji := 750000;
UangLembur := 3500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Jabatan : Staff');
writeln('Gaji Pokok : 750000.00');
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = '1c') then
begin
Gaji := 850000;
UangLembur := 5000;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Jabatan : OB');
writeln('Gaji Pokok : 850000.00');
writeln('Upah Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
begin
write('bikin ko salah mulu');
end;
write('Silahkan mengulangi lagi ? ');
readln(ulang);

end;
if ulang = 't' then
begin
write('just finish');
end;
end.
BacaSelengkapnya...

Gaji Kelompok Heboh

uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : real;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
begin
ulang := 'y';
while (ulang = 'y') or (ulang = 'Y') do
begin
clrscr;
writeln ('PT Mercu Buana');
writeln ('Program Perhitungan Gaji');
writeln;
write('Nama : ');
readln(Nama);
write('Golongan (1a/1b/1c) : ');
readln(Golongan);
write('Jam Lembur : ');
readln(JamLembur);
if (Golongan = '1a') then
begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else

if (Golongan = '1b') then
begin
Gaji := 750000;
UangLembur := 3500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji Pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = '1c') then
begin
Gaji := 850000;
UangLembur := 5000;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
begin
write('Boss ga da...,');
end;
write('Mau coba lagi ga..? (y/t) : ');
readln(ulang);
if ulang = 't' then
end;
begin
writeln ('The End');

end;

end.

Nama Kelompok :

- Pahmi Pahrudin 41409120019
- Syaifullah Fazar Rizki 41409120002
- Eka Jovi Setiawan 41409120016
- Indra Anugrah 41409120006
- Garincha Satria Tambunan 41409110034
-
BacaSelengkapnya...

Gajian Pascal

uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : real;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
gajipokok : real;uses wincrt;
var
Nama : string;
Golongan : string;
JamLembur : real;
Gaji : real;
UangLembur : real;
UpahLembur : real;
TotalGaji : real;
ulang : char;
begin
ulang := 'y';
while (ulang = 'y') do
begin
clrscr;
writeln ('PT Mercu Buana');
writeln ('Program Perhitungan Gaji');
writeln;
write('Nama : ');
readln(Nama);
write('Golongan (1a/1b/1c) : ');
readln(Golongan);
write('Jam Lembur : ');
readln(JamLembur);
if (Golongan = '1a') then
begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else

if (Golongan = '1b') then
begin
Gaji := 750000;
UangLembur := 3500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji Pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = '1c') then
begin
Gaji := 850000;
UangLembur := 5000;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji pokok : ',Gaji:5:2);
writeln('Lembur/jam : ',UangLembur:5:2);
writeln('Total Lembur : ',UpahLembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
begin
write('Boss ga da...,');
end;
write('Mau coba lagi ga..? (y/t)');
readln(ulang);
if ulang <> 't' then
end;
begin
writeln ('The End');

end;

end.
gajilembur : real;
label
balik;
begin
ulang := 'y';
while (ulang = 'y') do
begin
balik:
clrscr;
writeln('==========================');
writeln('== PT. MAJU MUNDUR JAYA ==');
writeln('==========================');
write('Nama karyawan : ');
readln(Nama);
write('Golongan (a/b/c) : ');
readln(Golongan);
write('Jam Lembur :');
readln(JamLembur);
if (Golongan = 'a') then
begin
Gaji := 500000;
UangLembur := 2500;
UpahLembur := JamLembur * UangLembur;
Gajipokok := 500000;
TotalGaji := Gaji + UpahLembur;
writeln('=====================================================================');
writeln(' Perhitungan Gaji Karyawan ');
writeln('=====================================================================');
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji Pokok : ',gajipokok:5:2);
writeln('Gaji Lemburan : ',upahlembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = 'b') then
begin
Gaji := 750000;
UangLembur := 3500;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('=====================================================================');
writeln(' Perhitungan Gaji Karyawan ');
writeln('=====================================================================');
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji Pokok : ',gajipokok:5:2);
writeln('Gaji Lemburan : ',upahlembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
if (Golongan = 'c') then
begin
Gaji := 850000;
UangLembur := 5000;
UpahLembur := JamLembur * UangLembur;
TotalGaji := Gaji + UpahLembur;
writeln('=====================================================================');
writeln(' Perhitungan Gaji Karyawan ');
writeln('=====================================================================');
writeln('Nama : ',Nama);
writeln('Golongan : ',Golongan);
writeln('Gaji Pokok : ',gajipokok:5:2);
writeln('Gaji Lemburan : ',upahlembur:5:2);
writeln('Total Gaji : ',TotalGaji:5:2);
end
else
begin
write('Golongan Yang anda masukan salah');
end;
writeln('========================================================================');
write('Anda Mau mengulangi Kembali ( y / t ) ? : ');
readln(ulang);
if ulang = 't' then
end;
begin
clrscr;
writeln('====================================================');
writeln('== Terima Kasih Anda Telah Menggunakan Program ini == ');
writeln('====================================================');
end;
end.


Kelompok 5
1. Agus Edi saputra 41409120056

2. Mirzanu Rizky GM 41409120047

3. Wahyu Jati Utomo 41409120057

4. Sugeng Raharjo 41409120033

BacaSelengkapnya...

 
Cebong`s Notez
---- Rhana-Ku. Green World Blogger Template---- © Template Design by Herro