Skript-Skript Pascal

Assalamu'alaykum Wrb

Hallo Sahabat Blogger atau para pemirsa di layar Kaca? ketemu lagi nih 

dengan Blog Tester-IP. 

Oke kali ini saya akan memberikan sedikit pencerahan tentang Code-code/Skript-Skript FreePascal (IDE Pascal). Tak perlu banyak Cing coeg.

Oke langsung saja disimak ya :)

Pembahasan kali ini saya akan menerangkan tentang mengunakkan perny

ataan "Case Of"untuk menyelesaikan atau Pemilihan







program nama_bulan;

uses crt;

var

kode:integer;

begin

clrscr;

write('Masukkan Kode Bulan (1-12): ');readln(kode);

case kode of

1: write('Bulan JANUARI');

2: write('Bulan FEBRUARI');

3: write('Bulan MARET');

4: write('Bulan APRIL');

5: write('Bulan MEI');

6: write('Bulan JUNI');

7: write('Bulan JULI');

8: write('Bulan AGUSTUS');

9: write('Bulan SEPTEMBER');

10: write('Bulan OKTOBER');

11: write('Bulan NOVEMBER');

12: write('Bulan DESEMBER');

else

write('Dunia Kiamat');

end;

readln;

end.







Selesai dan Save
















Ini Skript buat PRrogram Parkir Kendaraan







---------------------------------------------------------------------------------------------------

uses crt;
var
jam1 , menit1, detik1 : integer ;


jam2 , menit2, detik2 : integer ;
jam3, menit3, detik3 : integer ;
total1, total2, total : integer;
pilih : char ;
tarif1 , tarif2, bayar : integer;

begin;
writeln('Pilih Jenis kendaraan : ') ;
writeln('1. MOBIL');
writeln('2. MOTOR');
write('Pilihan Anda : '); readln(pilih);

clrscr;

writeln('Masukkan waktu masuk') ;
write('Jam : '); readln(jam1); write(' Menit '); readln(menit1); write(' Detik '); readln(detik1);
writeln('Masukkan waktu keluar');
write('Jam : '); readln(jam2); write(' Menit '); readln(menit2); write(' Detik '); readln(detik2);

if (pilih = '1') then
begin
tarif1 := 2000;
tarif2 := 1000;
end
else
begin
if (pilih = '2') then
begin
tarif1 := 1000;
tarif2 := 500 ;
end;
end;
total1 := jam1*3600 + menit1*60 + detik1 ;
total2 := jam2*3600 + menit2*60 + detik2 ;
total := total2 - total1 ;

jam3 := total div 3600 ;
menit3 := (total mod 3600) div 60 ;
detik3 := (total mod 3600) mod 60 ;

if ((menit3 > 0) or (detik3 > 0)) then
begin
jam3 := jam3 + 1;
menit3 := 0 ;
detik3 := 0 ;
end ;

if (jam3 <= 2) then
begin
bayar := tarif1 * jam3 ;
end
else
begin
bayar := tarif1*2 + tarif2*(jam3 - 2) ;
end ;

writeln('Waktu masuk : ',jam1,':',menit1,':',detik1);
writeln('Waktu keluar : ',jam2,':',menit2,':',detik2); 
writeln;
writeln('Durasi : ',jam3,':',menit3,':',detik3);
writeln('Bayar : Rp.',bayar) ;

readln;
end.

-------------------------------------------------------------------------------------

Lalu Save dan jalankan Semoga Sukses




Apabila ada pertanyaan kurang dimengerti bisa langsung Contact FB (SINI)

OKE THANKS :)