haiii kali ini aku bakal ngasih contoh ke kalian salah satu program pascal yang bisa kalian manfaatin atau buat menambah pengetahuan tentang pascal,,,
gak usah bas-basi dehh,,, langsung aja silahkan di lihat,,,,:)
program
Cassir;
uses
wincrt;
label
1,2;
var pass,pil:string;
mail:string;
nama:array[1..20] of string;
i:byte;
jumlah:array[1..100] of real;
harga:array[1..100] of real;
jumlah_harga,total_harga,diskon,total_bayar,uang,back:real;
begin
2:clrscr;
writeln('<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>');
writeln(' BIG SWALAYAN TOWN
SQUARE');
writeln(' Please, Insert The Pasword To open and
Insert Data To This Programe');
writeln('--------------------------------------------------------------------------------');
write('E-Mail : ');readln(mail);
write('Password Program : ');pass:=readkey;
writeln('________________________________________________________________________________');
if
pass='b' then
begin
1:clrscr;
writeln('>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?<>?');
writeln(' BIG SWALAYAN
TOWN SQUARE');
writeln('~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`');
writeln;
write('
Masukkan Jumlah Barang yang Akan Dihitung Harganya = ');
readln(i);
clrscr;
writeln('>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>+<>');
writeln(': Cassir
Pembayaran :');
writeln('> BIG SWALAYAN TOWN
SQUARE <');
writeln(': First
Centre :');
writeln('~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~`~');
total_harga:=0;
for
i:=1 to i do
begin
writeln('--------------------------------------------------------------------------------');
write('Nama Barang =
');readln(nama[i]);
write('Jumlah Barang =
');readln(jumlah[i]);
write('Harga Barang = ');readln(harga[i]);
jumlah_harga:=harga[i]*jumlah[i];
writeln('
.". jumlah Harga Rp. ',
jumlah_harga:4:0);
writeln;
writeln('================================================================================ ');
total_harga:=total_harga+jumlah_harga;
end;
writeln;
writeln('Total Harga Rp ', total_harga:4:0);
writeln;
if (total_harga>=0)and
(total_harga<50000) then
begin
diskon:=0*total_harga;
end;
if (total_harga>=50000) and
(total_harga<100000) then
begin
diskon:=0.01*total_harga;
end;
if (total_harga>=100000) and
(total_harga<500000) then
begin
diskon:=0.03*total_harga;
end;
if (total_harga>=500000) and
(total_harga<1000000) then
begin
diskon:=0.05*total_harga;
end;
if total_harga>=1000000 then
begin
diskon:=0.1*total_harga;
end;
writeln('Anda Memperoleh Diskon Sebesar Rp ',diskon:4:0);
writeln;
total_bayar:=total_harga-diskon;
writeln('Total Pembayaran Setelah Mendapat
Diskon Rp ',total_bayar:4:0);
writeln;
writeln('-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-');
write('..".. Masukkan Jumlah Uang
Bayar Rp ');readln(uang);
writeln;
back:=uang-total_bayar;
writeln('..".. Sisa Uang Bayar Rp ',back:4:0);
writeln('+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ ');
writeln;
writeln(' Press " 0 " for back to
main menu OR Press " Q " to quit');
pil:=readkey;
if pil = '0' then
begin
goto 1;
end;
if pil = 'q' then
begin
clrscr;
exit;
end
else
begin
goto 2;
end;
end
else
begin
clrscr;
writeln('><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><');
writeln;
writeln(' Sorry Bray, You can not insert..!
because your Password is False ');
writeln;
writeln('________________________________________________________________________________');
writeln;
writeln('+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=');
writeln(' To Try Again...! Please, Press
"0" OR Other Keys To Quit');
pil:=readkey;
if pil = '0' then
begin
goto 2;
end
else
begin
clrscr;
exit;
end;
end;
end.
yaaahhh coba dan semoga bermanfaat untuk menambah pengetahuan kita ya,,,,,,,,
makasih :)
Ini aku tulis karena keprihatinan ku kepada
anak-anak sekolah jaman sekarang…. (padahal aku juga masih sekolah… hehehe :D). Ini berawal pagi tadi ketika adek-adek
kecil usia tk sampai dengan sd sedang latihan menyanyi untuk mempersiapkan
malam tirakatan (malam 17’an). Mereka menyanyikan lagu Indonesia Raya cipt. W.
R. Soepratman, Indonesia Merdeka cipt. H. Mutahar. Mereka memang sangat
semangat menyanyikannya. Namun yang membuat hati menangis ternyata mereka salah
menyanyikan lirik lagu nadanya pun salah. Mungkinkah ini karena rasa
nasionalisme yang sudah mulai memudar? Lalu salah siapa kalau sudah begini?
Salah pemerintah? Salah orang tua? Salah guru di sekolah? Seharusnya bukan
hanya ketika kita akan merayakan hari kemerdekaan Indonesia kiata menghafal
atau melafazkan lirik lagu-lagu nasional Indonesia… tapi hendaknya kita
lafazkan setiap hari setiap menit bahkan setiap detik untuk menjaga dan
menghormati jasa-jasa para pahlawan yang sudah menyerahkan jiwa dan raganya
untuk masa depan bangsa ini. Masa depan bangsa ini sekarang berada di tangan
kita. Kita tak harus berperang dengan menenteng senjata api dan bamboo runcing…
tapi kita berperang untuk tetap menjaga bangsa dan tanah air ini agar tetap bersatu
dan kita harus melawan kebodohan yang ada di bangsa ini.
Beda bukan?? tapi
itulah yang terjadi. Salah siapa ini? Bagaimana caranya memperhankan
kemerdekaan negaraini, kalau generasi muda bangsa ini untuk menghafal lagu
nasional yang mungkin setiap hari senin dikumandangkan saja tidak hafal… Apa
lagi untuk menghargai jasa para pahlawan… Sungguh prihatin…. Perubahan berada
ditangan generasi muda. Bagaimana kita bisa menghargai jasa pahlawan?? Cukup dengan
belajar yang giat, untuk menghilangkan kebodohan, mengamalkan nilai-nilai
Pancasila, menghafal lagu-lagu nasional, ikut menjaga ketertiban dan keamanan
bangsa dan selalu mendoakan para pahlawan yang telah gugur :)
