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

Pembaca yang budiman, kindly gimme apapun pendapat atau komentar kamu tentang artikel saya. Tulisan ini tanpa komentar kamu, kayak mahasiswa akhir tanpa skripsi. Ada yang kurang gitu, yak.

Terimakasih atas kunjungan dan segala apresiasinya. Selamat berkarya :)