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
This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.
ConversionConversion EmoticonEmoticon