Yuli Ristanti: 2013

Rabu, 18 Desember 2013

Program Pendaftaran Peserta Tour dengan Turbo Pascal

Listing program:

Program pascal;

uses wincrt;

var

no:integer;

nama,t,asal_sekolah:string;

tanggal,bln,thn : longint;

biaya_pen,biaya_akom,total:longint;

begin

writeln('============PENDAFTARAN PESERTA TOUR==================');

write('No. Pendaftaran : ');readln(no);

write('Nama Lengkap : ');readln(nama);

write('Asal Sekolah : ');readln(asal_sekolah);

write('Tempat/tanggal Lahir : ');readln(t);

gotoxy(36,5);read(tanggal);

if tanggal > 30 then

begin

write('tanggal yang anda masukkan salah!');

readkey; donewincrt;

end;

gotoxy(39,5);read(bln);

if bln > 12 then

begin

write('bulan yang anda masukkan salah!');

readkey; donewincrt;

end;

gotoxy(42,5);read(thn);

if thn > 1996 then

begin

write('tahun yang anda masukkan salah!');

readkey; donewincrt;

end;

write ('Biaya Pendaftaran : Rp ');readln(biaya_pen);

write ('Biaya Akomodasi : Rp ');readln(biaya_akom);

total:=biaya_pen + biaya_akom;

writeln('Total Biaya : Rp ',total);

end.

Tampilan Hasil:

Rabu, 11 Desember 2013

Manfaat Belajar Turbo Pascal

Manfaat turbo pascal ini tidak terbatas untuk membantu sistem administrasi dikantor-kantor saja, tetapi merambah kebeberapa bidang. Sehingga aplikasinya sangat dibutuhkan untuk membantu berbagai disiplin ilmu.Untuk itulah dibutuhkan software yang menjebatani komputer dengan kebutuhan dan tujuan pemograman komputer friendly. sebuah software akan memudahkan untuk membuat aplikasi seperti : bahasa C, C++, C#, Clipper, LISP, ADA, ALGOL, Modula 2, Smalltalk,Prolog, Perl, PHP, ASP, JSP, J#, J++, Cobol, Basic, Fortran, Java, Paskal, dan lain sebagainya.

Bahasa pemrograman adalah sesuatu yang mutlak harus dipahami jika inginmembuat suatu aplikasi. Berdasarkan hal tersebut maka perlu kiranya kita belajar sebuah bahasa pemrograman yang lebih sederhana dan relatif lebih mudah untuk dipelajari oleh seorang pemula. Bahasa pascal adadalah salah satu jenis bahasa tingkat tinggi yang relatif lebih mudah untuk dipelajari.

Bahasa pemograman pascal adalah salah satu bahasa tingkat tinggi yang merupakan bahasa pemograman prosedural yang banyak dipakai untuk mengenalkan pemograman bagi pemula, selain itu bahasa pascal relatif mudah untuk dipelajari, sehingga daapat diadakan sebagai dasar acuan untuk belajar bahasa pemograman telah banyak literatur mengenai bahasa pemograman pascal dengan berbagai versi. yang semakin memudahkan mempelajarinya. Program dalam bahasa pemograman pascal cukup banyak variannya seperti delfi yang merupakan visual pascal juga masih banyak lagi. pascal juga memliki beberapa versi yang beredar dipasaran seperti UCSD pascal, Ms-Pascal, apple pascal, free pascal, turbo pascal dan sebagainya.

Adapun kelebihan dari bahasa pemrograman Pascal adalah:

1. Tipe Data Standar, tipe-tipe data standar yang telah tersedia pada kebanyakan bahasa pemrograman. Pascal memiliki tipe data standar: boolean, integer, real, char, string,

2. User defined Data Types, programmer dapat membuat tipe data lain yang diturunkan dari tipe data standar.

3. Strongly-typed, programmer harus menentukan tipe data dari suatu variabel, dan variabel tersebut tidak dapat dipergunakan untuk menyimpan tipe data selain dari format yang ditentukan.

4. Terstruktur, memiliki sintaks yang memungkinkan penulisan program dipecah menjadi fungsi-fungsi kecil (procedure dan function) yang dapat dipergunakan berulang-ulang.

5. Sederhana dan Ekspresif, memiliki struktur yang sederhana dan sangat mendekati bahasa manusia (bahasa Inggris) sehingga mudah dipelajari dan dipahami.

Rabu, 04 Desember 2013

Makalah Program Data Pegawai

Program PegawaiMemakai Procedure

Program DataPegawai;

Uses Wincrt;

Var

nama :array[1..100]of string;

kerja:array [1..100]of char;

nip, gol, jam, Gapok, Insentif, Gaber :array[1..100]of longint;

a,n,gaji:longint;

ulang,kembali:char;

proceduregaris;

begin

writeln('================================================================================');

end;

procedurenamapegawai;

begin

If (nip[n]) = 1 then

begin

nama[n] := 'YosepDwiAnjani';

Writeln('Nama : ', (nama[n]));

end

else if (nip[n]) = 2 then

begin

nama[n] := 'RisalAgustian';

Writeln('Nama : ', (nama[n]));

end

else if (nip[n]) = 3 then

begin

nama[n] := 'IdhamHanif N';

Writeln('Nama : ', (nama[n]));

end

else

begin

write('Nama : ');readln(nama[n]);

end;

proceduregolongan;

begin

If (gol[n]) = 1 then

Gapok[n]:= 1000000

else if (gol[n]) = 2 then

Gapok[n]:=1500000

else if (gol[n]) = 3 then

Gapok[n]:=2000000

Else

begin

Gapok[n]:=0;

writeln('golongan yang andamasukantidakada');

readkey;

donewincrt;

end;

procedurelembur;

begin

ifupcase(kerja[n]) ='Y' then

begin

Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);

if (jam[n]) >20 then

Insentif[n]:=(jam[n])*20000

else

if (jam[n])>=10 then

insentif[n] :=(jam[n])*10000

else

Insentif[n]:=(jam[n])*5000;

Writeln('Insentif : Rp. ',(insentif[n]));

Gaber[n]:=Gapok[n]+Insentif[n] ;

end

else

begin

gaber[n]:=Gapok[n];

jam[n]:=0;

insentif[n]:=0;

end;

procedurelaporan;

begin

clrscr;

writeln('Laporan Data PegawaidanGajiPegawai ');

garis;

writeln('| | | | | | | | | ');

writeln('| | | | | | | | | ');

garis;

writeln;

for a:=1 to n do

begin

gotoxy(1,a+7);write('|');

gotoxy(3,a+7);write(a);

gotoxy(6,a+7);write('|');

gotoxy(8,a+7);write(nip[a]);

gotoxy(12,a+7);write('|');

gotoxy(13,a+7);write(nama[a]);

gotoxy(29,a+7);write('|');

gotoxy(31,a+7);write(gol[a]);

gotoxy(33,a+7);write('|');

gotoxy(34,a+7);write(gapok[a]);

gotoxy(44,a+7);write('|');

gotoxy(45,a+7);write(jam[a]);

gotoxy(55,a+7);write('|');

gotoxy(56,a+7);write(insentif[a]);

gotoxy(65,a+7);write('|');

gotoxy(68,a+7);write(gaber[a]);

gotoxy(77,a+7);write('|');

gaji:=gaji+(gaber[a]);

end;

writeln;

writeln (' Total GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);

readln;

end;

procedureutama;

begin

n:=0;

repeat

n:=n+1;

Clrscr;

gotoxy(28,2);Writeln('SelamatDatang');

gotoxy(20,3);Writeln('Entri Data PegawaiKelompok 3');

garis;

Writeln;

Write('NIP : ');Readln(nip[n]);

namapegawai;

Write('Golongan (1,2,3): ');Readln(gol[n]);

golongan;

writeln('GajiPokok : Rp. ', Gapok[n]);

write('Ada KerjaTambahan y/t? ');readln(kerja[n]);

lembur;

Writeln('GajiBersih : Rp. ', (Gaber[n]));

write('Tambah data Pegawai (y/t): ');readln(ulang);

untilupcase(Ulang) <> 'Y';

end;

begin

kembali:='Y' ;

whileupcase(kembali) = 'Y' do

begin

gaji:=0;

utama;

laporan;

write('inginulangiAplikasi(y/t) ? ');readln(kembali);

ifupcase(kembali)='T' then

donewincrt;

end;

end.

Program PegawaiMemakaiIf

Program DataPegawai;

Uses Wincrt;

Var

nama :array[1..100]of string;

kerja:array [1..100]of char;

nip, gol, jam, Gapok, Insentif, Gaber :array[1..100]of longint;

a,n,gaji:longint;

ulang,kembali:char;

proceduregaris;

begin

writeln('================================================================================');

end;

begin

kembali:='Y' ;

whileupcase(kembali) = 'Y' do

begin

gaji:=0;

n:=0;

repeat

n:=n+1;

Clrscr;

gotoxy(28,2);Writeln('SelamatDatang');

gotoxy(20,3);Writeln('Entri Data PegawaiKelompok 3');

garis;

Writeln;

Write('NIP : ');Readln(nip[n]);

If (nip[n]) = 1 then

begin

nama[n] := 'YosepDwiAnjani';

Writeln('Nama : ', (nama[n]));

end

else if (nip[n]) = 2 then

begin

nama[n] := 'RisalAgustian';

Writeln('Nama : ', (nama[n]));

end

else if (nip[n]) = 3 then

begin

nama[n] := 'IdhamHanif N';

Writeln('Nama : ', (nama[n]));

end

else

begin

write('Nama : ');readln(nama[n]);

end;

Write('Golongan (1,2,3): ');Readln(gol[n]);

If (gol[n]) = 1 then

Gapok[n]:= 1000000

else if (gol[n]) = 2 then

Gapok[n]:=1500000

else if (gol[n]) = 3 then

Gapok[n]:=2000000

Else

begin

Gapok[n]:=0;

writeln('golongan yang andamasukanTidakada');

readkey;

donewincrt;

end;

writeln('GajiPokok : Rp. ', Gapok[n]);

write('Ada KerjaTambahan y/t? ');readln(kerja[n]);

ifupcase(kerja[n]) ='Y' then

begin

Write('Lama KerjaTambahan (jam) : ');Readln(jam[n]);

if (jam[n]) >20 then

Insentif[n]:=(jam[n])*20000

else

if (jam[n]) >=10 then

insentif[n] :=(jam[n])*10000

else

Insentif[n]:=(jam[n])*5000;

Writeln('Insentif : Rp. ',(insentif[n]));

Gaber[n]:=Gapok[n]+Insentif[n] ;

end

else

begin

gaber[n]:=Gapok[n];

jam[n]:=0;

insentif[n]:=0;

end;

Writeln('GajiBersih : Rp. ', (Gaber[n]));

write('Tambah data Pegawai (y/t): ');readln(ulang);

untilupcase(Ulang) <> 'Y';

clrscr;

writeln('Laporan Data PegawaidanGajiPegawai ');

garis;

writeln('| | | | | | | | | ');

writeln('| | | | | | | | | ');

garis;

writeln;

for a:=1 to n do

begin

gotoxy(1,a+7);write('|');

gotoxy(3,a+7);write(a);

gotoxy(6,a+7);write('|');

gotoxy(8,a+7);write(nip[a]);

gotoxy(12,a+7);write('|');

gotoxy(13,a+7);write(nama[a]);

gotoxy(29,a+7);write('|');

gotoxy(31,a+7);write(gol[a]);

gotoxy(33,a+7);write('|');

gotoxy(34,a+7);write(gapok[a]);

gotoxy(44,a+7);write('|');

gotoxy(45,a+7);write(jam[a]);

gotoxy(55,a+7);write('|');

gotoxy(56,a+7);write(insentif[a]);

gotoxy(65,a+7);write('|');

gotoxy(68,a+7);write(gaber[a]);

gotoxy(77,a+7);write('|');

gaji:=gaji+(gaber[a]);

end;

writeln;

writeln (' Total GajiPegawai Yang Harus Di bayaradalahRp. ',gaji);

readln;

write('inginulangiAplikasi(y/t) ? ');readln(kembali);

ifupcase(kembali)='T' then

donewincrt;

end;

end.

Flowchart Memakai If