Contoh Fungsi String
Assalamu'alaikum, kali ini ana mo sharing pelajaran PASCAL ana di sekolah, nglanjutin postingan yang dulu. Dari pada cuma jadi file di computer, sekalian bagi-bagi sama temen-temen sekalian. Hehe....
Oke, ini sepenggal contoh program-programnya....
PEMAKAIAN DELETE
program delete_2;
uses crt;
var
kata:string;
posisi,i:integer;
begin
clrscr;
writeln(' Program Delete');
writeln;
write('Masukkan Kata:');readln(kata);
writeln('Hasil Delete adalah...');
writeln;
writeln(kata);
for i:=1 to length(kata) do
begin
delete(kata,length(kata),i);
writeln(kata);
end;
readln;
end.
PEMAKAIAN DELETE-INSERT
program delete_insert;
uses crt;
var
kata:string;
i:integer;
begin
clrscr;
write('Masukkan Kata:');readln(kata);
writeln(kata);
for i:=1 to length(kata) do
begin
delete(kata,length(kata),i);
insert(kata[length(kata)+1],kata,1);
writeln(kata);
end;
readln;
end.
MERUBAH HURUF KECIL KE BESAR
program besar_huruf;
uses crt;
var
kalimat:string;
kar:char;
posisi:integer;
begin
clrscr;
write('Masukkan Kalimat =>');readln(kalimat);
writeln('Tulisan Awal =>',kalimat);
for posisi:=1 to length(kalimat) do
begin
kar:=kalimat[posisi];
if (kar>='A') and (kar<='Z') then
begin
kar:=chr(ord(kar)+32);
kalimat[posisi]:=kar;
end;
end;
writeln;
writeln('Hasilnya Kayak Gene =>',kalimat);
readln;
end.
MEMAKAI STR
program memakai_str;
uses crt;
var
jml1,bil1,bil2:longint;
text1,text2,jml2:string;
begin
clrscr;
write('Masukkan Bilangan 1 =>');readln(bil1);
write('Masukkan Bilangan 2 =>');readln(bil2);
str(bil1,text1);
str(bil2,text2);
jml1:=bil1+bil2;
jml2:=text1+text2;
writeln;
writeln('HASIL SEBELUM DI STR =>',jml1);
writeln('HASIL SETELAH DI STR =>',jml2);
readln;
end.
1 Comments
wah...masih SMA dah dapat programming Pascal ya.SMA sekarang dah hebat2 hehehe...
BalasHapusoia, untuk commentnya di guestbook blogku sudah aku balas, kemarin masuk ke spam, jadi nggak tahu.. ^^
Terimakasih atas kunjungan dan segala apresiasinya. Silakan tinggalkan pesan di kolom komentar jika memang ada yang perlu didiskusikan ^ ^
Jika memerlukan informasi urgent, boleh sapa saya di email karena saya cukup aktif pula di sana :).