RSS

Program Kredit Motor Pada Pascal

18 Jan

Contoh script dari program kredit sepeda motor.

program sepeda_motor;
uses crt;
var n,pil : char;
bulan,i,g,e,s,q : integer;
untung,harga,cicil,harkre,cicil1,sisa1 : real;
const a = 10000000;
b = 12000000;
c = 15000000;

label menu2,menu,t,exit;
begin
clrscr;

textmode(40);
textbackground(blue);
textcolor(white);

{judul}

gotoxy(20,5);writeln(‘SELAMAT DATANG DI DEALER SESUATU’);
gotoxy(28,10);write(‘[ Tekan ENTER ]’);
readln;clrscr;
{menu harga}
menu:
gotoxy(27,5);writeln(‘DAFTAR HARGA SEPEDA MOTOR’);

gotoxy(14,8); writeln(‘ÉÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»’);
gotoxy(14,9); writeln(‘º NO º Tipe Sepeda Motor    º    Harga Cash      º’);
gotoxy(14,10);writeln(‘ÌÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹’);
gotoxy(14,11);writeln(‘º 1  º Tipe A               º  Rp. 10.000.000    º’);
gotoxy(14,12);writeln(‘ÌÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹’);
gotoxy(14,13);writeln(‘º 2  º Tipe B               º  Rp. 12.000.000    º’);
gotoxy(14,14);writeln(‘ÌÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹’);
gotoxy(14,15);writeln(‘º 3  º Tipe C               º  Rp. 15.000.000    º’);
gotoxy(14,16);writeln(‘ÈÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ’);
gotoxy(14,18);write(‘Pilih kode [ 1,2 atau 3 ] : ‘); readln(n); clrscr;

case n of
‘1’:
begin
harga:=a;
goto menu2;
end;

‘2’:
begin
harga:=b;
goto menu2;
end;

‘3’:
begin
harga:=c;
goto menu2;
end;

untuk scipt selanjutnya, silahkan download programNYA di sini

untuk .PAS silahkan Download di sini
Untuk password zip : dhannyvanindonesia

semoga teman-teman sekalian dapat terbantu dengan adaNYA blog saya ini

 
Tinggalkan komentar

Ditulis oleh pada Januari 18, 2012 in Pascal

 

Tag: , , , ,

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: