Tugas Pascal 30 Januari 2012

Ada beberapa alasan untuk mem-posting tugas yang aku bikin sendiri, karena merasa ada kesulitan tersendiri saat membuatnya, mungkin gak ada salahnya berbagi atas ilmu diri sendiri. Jadi, ini tugas yang aku buat sendiri dengan bantuan Google dalam mencari inspirasi. Buat yang mengambil pelajaran dari sini, jangan lupa belajar sendiri dan terus mengembangakannya ya. Bedanya orang PINTAR sama yang TIDAK itu, orang pintar mau berusaha semaksimal kemampuan mereka, berani mengambil resiko untuk mencoba, tanpa berani mengeluh atas apa yang dihadapi. Jadi, hari ini mau milih jadi orang PINTAR atau TIDAK?? SEMANGAT SENIN!! \(^0^)/

---

GAPOK.pas

program hitung_gaji;
uses crt;

{Andina Nur Fitriyanti | MI1101004}

var
n, s : string;
l : integer;
gp : longint;
tj, tg: real;

procedure warna(wt, wb : byte);
begin
textcolor(wt);
textbackground(wb);
end;

procedure input_data;
begin
writeln;
writeln('INPUT DATA');
write('Nama : ');readln(n);
write('Status (N/T) : ');readln(s);
write('Lama Bekerja (tahun) : ');readln(l);
write('Gaji Pokok : Rp. ');readln(gp);

if (s='n') or (s='N') then
s:='Nikah'
else if (s='t') or (s='T') then
s:='Tidak Nikah'
else
s:='Tidak Jelas';

if (s='Nikah') and (l>5) then
tj:=0.2*gp
else
tj:=0;

tg:=gp+tj;
writeln;
end;

procedure output_data;
begin
writeln;
writeln('OUTPUT DATA');
writeln('Nama : ',n);
writeln('Status : ',s);
writeln('Lama Bekerja : ',l,' Tahun');
writeln('Gaji Pokok : Rp. ',gp);
writeln('Tunjangan : Rp. ',tj:0:2);
writeln('Total Gaji : Rp. ',tg:0:2);
writeln;
end;

var lagi : char;

begin
lagi:='Y';
while lagi='Y' do
begin
clrscr;
warna(15,1);
writeln('====PROGRAM PENGHITUNGAN GAJI====');
warna(15,0);
input_data;
warna(6,15);
writeln('------------------------');
warna(15,0);
output_data;
warna(15,4);
write('Menghitung lagi (Y/T)?'); readln(lagi);
warna(15,0);
end;
readln;
end.

Gambar Hasil Gapok.pas



FAKTORIAL.pas

program hitung_faktorial;
uses crt;

{Andina Nur Fitriyanti | MI1101004}

function f(x:integer):longint;
begin
if x=1 then
f:=1
else
f:=x*f(x-1);
end;

procedure warna(wt, wb: byte);
begin
textcolor(wt);
textbackground(wb);
end;

var
n: integer;
lagi : char;

begin
lagi:='y';
while lagi='y' do
begin
clrscr;
warna(9,15);
writeln('===========PROGRAM HITUNG FAKTORIAL========');
writeln;
warna(15,0);
write('Masukan bilangan faktorial : ');
readln(n);
writeln('-------------------------------------------');
writeln('Hasil faktorial : ', f(n));
writeln;
warna(15,4);
write('Menghitung lagi (y/t)?'); readln(lagi);
warna(15,0);
end;
readln;
end.

Gambar Hasil Faktorial.pas