Sabtu, 08 November 2014
Hey....
kali ini admin akan meng share bagaimana cara meletakkan program Lcase, Pcase dan Ucase.
sebelumnya pahami dulu apa arti dari Lcase, Pcase dan Ucase :
[-] Lcase adalah sebuah code pascal yang dapat membuat huruf yang ada di writeln menjadi kecil atau huruf kecil.
[-] Pcase adalah code pascal yang dapat membuat huruf yang ada di writeln menjadi besar atau huruf besar.
[-] Ucase adalah code pascal yang dapat membuat text yang di awali hufur besar di setiap text nya.
wah.... wah.... wah.....
sudah macam profesional kali awak ini bah hahahha :v :3
ok sekarang kita masuk ke contoh programnya :
USES WINCRT;
VarS : String;
i : Integer;
FUNCTION LCASE(S:STRING):STRING;
VAR I:INTEGER;
BEGIN
FOR I:= 1 TO LENGTH(S) DO
IF (S[I] >= 'A') AND (S[I] <= 'Z') THEN
INC(S[I], 32);
LCASE := S;
END;
FUNCTION UCASE(S:STRING):STRING;
VAR I:INTEGER;
BEGIN
FOR I:= 1 TO LENGTH(S) DO
IF (S[I] >= 'a') AND (S[I] <= 'z') THEN
DEC(S[I], 32);
UCASE := S;
END;
FUNCTION PCASE(S:STRING):STRING;
VAR I, J:INTEGER;
BEGIN
IF (S[1] >= 'a') AND
(S[1] <= 'z') THEN
DEC(S[1], 32);
FOR I:= 2 TO LENGTH(S) DO
IF (S[I] >= 'A') AND
(S[I] <= 'Z') THEN
INC(S[I], 32);
FOR I:= 2 TO (LENGTH(S)-1) DO
IF (S[I] = ' ') THEN
BEGIN
J := I;
IF (S[J + 1] >= 'a') AND
(S[J + 1] <= 'z') THEN
DEC(S[J + 1], 32);
END;
PCASE := S;
end;
var harga,tambah,menu,total,jumlah,plus:longint;
var porsi,porsi2,jenis,nama,najen:string;
begin
clrscr;
writeln(pcase(' Warung Riyan Kazu web '));
writeln(' ============================');
writeln(lcase(' |NO.| Daftar Menu Makanan |'));
writeln(' |==========================|');
writeln(ucase(' | 1.| Nasi Goreng Sapi |'));
writeln(ucase(' | 2.| Nasi Goreng Ayam |'));
writeln(ucase(' | 3.| Mie Goreng Sapi |'));
writeln(ucase(' | 4.| Mie Goreng Ayam |'));
writeln(ucase(' | 5.| Soto |'));
writeln(ucase(' | 6.| Keluar |'));
writeln(' |==========================|');
write(pcase(' Masukkan menu pilihan anda : '));readln(menu);
case menu of
1: begin
harga:=6000;
nama:='Nasi Goreng Sapi';
write(lcase(' Porsi (kecil/sedang/besar) : '));readln(porsi);
write(ucase(' Jenis(DT/TH) : '));readln(jenis);
end;
2: begin
harga:=5000;
nama:='Nasi Goreng Ayam';
write(lcase(' Porsi (kecil/sedang/besar) : '));readln(porsi);
write(ucase(' Jenis(DT/TH) : '));readln(jenis);
end;
3: begin
harga:=6000;
nama:='Mie Goreng Sapi ';
write(lcase(' Porsi (kecil/sedang/besar) : '));readln(porsi);
write(ucase(' Jenis(DT/TH) : '));readln(jenis);
end;
4: begin
harga:=5000;
nama:='Mie Goreng Ayam ';
write(lcase(' Porsi (kecil/sedang/besar) : '));readln(porsi);
write(ucase(' Jenis(DT/TH) : '));readln(jenis);
end;
5: begin
harga:=4000;
nama:='Soto ';
write(lcase(' Porsi (kecil/sedang/besar) : '));readln(porsi);
write(ucase(' Jenis(DT/TH) : '));readln(jenis);
end;
6: begin
end;
end;
if porsi='besar' then
begin
tambah:=3000;
porsi2:='Besar';
end;
if porsi='sedang' then
begin
tambah:=2000;
porsi2:='Sedang';
end;
if porsi='kecil' then
begin
tambah:=1000;
porsi2:='Kecil';
end;
if jenis='DT' then
begin
plus:=0;
najen:='Di tempat';
end;
if jenis='TH' then
begin
plus:=2000;
najen:='Take Home';
end;
jumlah:=harga+tambah;
total:=jumlah+plus;
if menu<=5 then
begin
writeln;
writeln;
writeln;
writeln;
writeln(' =====================================');
writeln;
writeln(' |===================================|');
writeln(ucase(' | PESANAN ANDA |'));
writeln(' |===================================|');
writeln(' | ',nama,'| ','Rp. ',jumlah,',- |');
writeln(' | Porsi | ',porsi2,' |');
writeln(' | Jenis | ',najen,' |');
writeln(' | Total | Rp. ',total,',- |');
writeln(' |===================================|');
readln;
end;
end.
di atas adalah contoh program yang saya buat, ingat bro jangan di presentase kan, karena itu tugas sekolah ane :'( please jangan copy sedemikian rupa ya :D
jangan lupa comment + share yo.................
Credit By : Ridho Amriyan
