TANTANGAN PA BOLOT III (OPERASI STRING).

[Anta]

Pa Bolot baru baru ini latihan bahasa pemrograman Pascal, sekarang dia lagi kebingungan untuk mengubah suatu kata kunci yang ada pada dokumen dengan kata yang akan diubah..

CONTOH nilai suatu string:
INDAHNYA PDKT DENGAN KAMU
AKU CINTA KAMU
AKU SAYANG KAMU


Kata kuncinya adalah KAMU.
kata yang gantinya adalah DIA.

jadinya:
INDAHNYA PDKT DENGAN DIA
AKU CINTA DIA
AKU SAYANG DIA


Buatlah dengan menggunakan metode fungsi: misalnya

Function StringReplaceSaya(Kalimat : String;KataKunci : String;KataGanti : String) : String;
nilai akhirnya akan ditampung oleh hasil dari stringreplaceSaya.

PERHATIAN:
ISI FUNGSI TIDAK BOLEH DENGAN FUNGSI PENGGANTI KATA YANG SUDAH ADA MISALNYA DENGAN MEMANGGIL FUNGSI STRINGREPLACE

HINT:
Gunakan fungsi fungsi operasi string pembantu seperti POS, POSEX, LENGTH, DST

Bantuin pak bolot ya

[sike]

ehm....
cobain jawab ah...
nih kira2 fungsi StringReplaceSayanya kaya gini.....
kalo ada salah,,, mohon bimbingannya.... sama minta soal yang laen lagi
 yg berbau algo tp pake bahasa indonesia ya soalnya.....

function StringReplaceSaya(Kalimat: string; KataKunci: string; KataGanti: string): string;
begin
  while (Pos(KataKunci, Kalimat) > 0) do
    begin
      Insert(KataGanti, Kalimat, Pos(KataKunci, Kalimat));
      Delete(Kalimat, Pos(KataKunci, Kalimat), Length(KataKunci));
    end;
  StringReplaceSaya := Kalimat;
end;