LP TKP tanggal 5 maret 2010

1. Apa definisi tabungan brdasarkn SKAPI,1992?
2. Apa yg anda ketahui tntng Terapan komputer Perbankan?
3. Menurut anda siapa saja yg terlibat dalam sbuah proses kegiatn dalam sebuah bank?
4. Sebutakn jenis2 tabungan berdasarkan cara perhtungan bunga?
5. Berikan salah satu contoh penerapan sistem komputerisasi pada dunia perbankan atau dalam kegiatan bank?

jawab

1. simpanan yang penarikannya hanya dapat dilakukan menurut syarat tertentu yang disepakati, tetapi tidak dapat ditarik dengan cek, bilyet giro, dan atau alat lainnya yang dipersamakan dengan itu; dengan kemajuan teknologi, tabungan pada saat ini dapat ditarik dengan menggunakan kartu bank, ATM, atau melalui telepon.

2. ilmu yang mempelajari lebih mendalam berbagai jenis teknologi informasi yang digunakan di bank.
3. pihak bank, nasabah, pemerintah, kreditur, debitur.
4. – berdasarkan saldo harian adalah dimana bunga dihitung setiap hari dan total jumlah bunga satu bulan yang bersangkutan di tambahkan ke rekening pada awal bulan berikutnya.
- berdasarkan saldo rata-rata adalah dimana bunga dihitung berdasarkan bunga rata-rata selama satu bulan
- berdasarkan saldo terendah adalah bunga dihitung berdasarkan saldo yang paling rendah selama periode waktu perhitungan
5. -menghasilkan informasi bagi pihak manajemen bank sendiri dan juga untuk meningkatkan pelayanan kepada pihak nasabah bank.
atau
- penggunan ATM, penggunaan internet, internet banking dan sms banking.

Read More ->>

Sebutkan macam-macam perulangan dalam pascal!

1. Sebutkan macam-macam perulangan dalam pascal!
2. Tuliskan bentuk umumnya!
3. Buatlah program sederhannya menggunakan while!
Jawab:

1.– for…to…do
- While…do
- Repeat…until

2.For…to…do = for…:=…to…do
Begin
…;
…;
End.
While…do = while … do
Begin
…;
…;
End;
Repeat…until = repeat
Begin
…;
…;
End.

3.Program while 1;
Uses Crt;
X:char;
Begin
Clrscr;
While 10 to 15 do
X=15
Writeln (‘nilai x adalah ;X);
Inc (x);
Readln;
End;

Read More ->>

apa yang dimaksud dengan procedure & tuliskan bentuk umumnya!

1. Jelaskan apa yang dimaksud dengan procedure & tuliskan bentuk umumnya!
2. Jelaskan apa yang dimaksud dengan function & tuliskan bentuk umumnya!
3. Buat program sederhana tentang function!
Jawab:

1.Procedure adalah bagian program yang beisi serangkaian langkah-langkah terntentu, jika kita ingin mengubah bagian program menjadi beberapa procedure, maka setiap bagian dalam program tersebut diubah menjadi sebuah procedure
Bentuk umum:
Procedure nama procedure;
Begin
…
… perintah / pernyataan
…
End;

2. Function adalah program yang manghasilkan sebuah nilai
Bentuk umum:
Program nama program;
Var hasil, b=real;
Function A (x:real): real;
Begin
Pernyataan
A:=ekspresi
End;
Begin program utama
…
…
Hasil:=A(b);
End;

3. Function jumlahkan (A,B:real):real;
begin
jumlahkan:=A+B
end;

Read More ->>

devinisi tentang array dan pendeklarasian array!

1. Jelaskan devinisi tentang array dan pendeklarasian array!
2. Sebutkan macam-macam array dan sebutkan bentuk umumnya!
3. Buatlah program sederhana dengan menggunakan array!
Jawab:
1.Array adalah variable berindeks, dimana setiap index tersebut memiliki nili masing-masing.

Array berbeda dengan variable biasa, variable biasa hanya memiliki sati tempat, sedangkan array bisa memiliki beberapa tempat, tergantung dari pendeklarasiaanya. Array dideklarasikan setelah reserved word var, karena array juga termasuk variable.
contoh pendeklarasian array:
var nama array : array () of ;

2. Berikut adalah macam-macam array, dan bentuk umunya:

-Array type index:
Var nama array : array () of ;

-Array dengan jangkauan byte:
Var : array (byte) oh\f ;
Jangkauan byte adalah dari 0 sampai dengan 225. Jadi, deklarasi diatas sama saja dengan:
Var : array (0…225) of ;

-Array dengan jangkauan Boolean:
Var : array (Boolean) of ;
Deklarasi diatas hanya memiliki 2 buah nilai array saja, yaitu true dan false.

-Array dengan jangkauan karakter:
Var : array () of ;
Karakter, di dalam memory, memiliki nilai masing-masing.

-Array dengan jangkauan index scalar (enumerated):
Var : array () of ;

Contoh:
Var hari : array (sen, sel, rab, kam, jum, sab, ming) of integer;
Selain itu, pendeklarasian diatas juga dapat ditulis:
Type nmhr = (sen, sel, rab, kam, jum, sab, ming);
Var hari : array (nmhr) of integer;

3. Kode programnya:
Program pengurutan;
Uses crt;
Var a,b,c,d,ejml, jml2slh,pjg : integer;
C : real;
Angks : array (1..100) of string;
Agkr : array (1..100) of real;
Pjgkm : array (1..100) of integer;
Krt,hal : string;
Procedure judul;
Begin
Window(1,1,80,50);
Textbackground(white);
Textcolor(black);
Clrscr;
gotoXY(25,2); write (‘P E N G U R U T A N A N G K A’);
gotoXY (23,3); write (‘------------------------------‘);
end;
procedure input;
begin
gotoXY(19,5); write (‘berapa angka yang akan anda masukkan?’);
readln(jmlh);
for a :=1 to jmlh do
begin
gotoXY(30,7); write (‘angka ke-‘,a,’:’); readln (agks[a])
var(agks[a],agkr[a],slh); pjg: length (agks[a]);
for b :=1 to pjg do
begin
krt := copy(agks[a],b,1);
if (krt=’,’) of (krt=’,’) then
begin
pjgkm[a] := pjg-b;
end;
end;
gotoXY(1,7); clrscr; writeln; writeln;
end;
end;
procedure urut;
begin
jml2:=jml;
while jml2 <> 0 do
begin
jml2:=jml2-1;
for e := 1 to jml2 do
begin
if agkr [e];
begin
c :=agkr [e]; d:[jgkm[e];
agkr e :=agkr [e+1] pjgkm[e]:= pjgkm [e+1];
agkr[e+1]:=c; pjgkm[e+1]:=d;
end;
end;
end;
end;
procedure tulis;
begin
for a := 1 to 80 do write (‘=’);
for a := 1 to jml do
begin
str(agkr a :1:pjgkm[a], hal);
write (hsl:18,’I’);
if (a mod 4) = 0 then
begin
for b := 1 to 80 do write (‘=’);
end;
end;
if (jml mod 4)><0 then
begin
writeln;
for a :=1 to (jml mod 4) * 20 do write (‘=’);
end;
end;
begin
clrscr;
judul; input; urut; tulis;
gotoXY(30,((jml div 4)+1)*2+1); write (‘T E K A N E N T E R’);
readln;
end;

Read More ->>