Contoh Fungsi String

By Friday, March 19, 2010

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.






You Might Also Like

1 Comments

  1. wah...masih SMA dah dapat programming Pascal ya.SMA sekarang dah hebat2 hehehe...
    oia, untuk commentnya di guestbook blogku sudah aku balas, kemarin masuk ke spam, jadi nggak tahu.. ^^

    ReplyDelete

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 :).

"Journey from May 2009 and still counting down. People come and go, parents don't, memories don't." - hf
Blogger Perempuan