Algoritma Mengambil Nama Inisial

Archived in the category: Delphi, Pemrograman
Posted by win~ on 12 Feb 09 - 1 Comment

Mungkin kita sering mendapatkan nama inisial, contoh saja, Budi Legowo jadi BL , Cahyana Ihsan menjadi CI dan beberapa nama inisial yang lainnya. Nah.. jika kasus ini dibawa ke pemrograman( pengolah string), dapat dibuat suatu function untuk mendapatkan nama inisial seseorang. Di bawah ini soucecode untuk mendapatkan Nama Inisial silakan simak….


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

18:
19:
20:

function NamaInisial(aNamaLengkap:String): string;
var
    i: Integer;
    aLen: Integer;
begin
    Result := '';
    aNamaLengkap := Trim(aNamaLengkap) ;
    aLen := Length(aNamaLengkap) ;
    if aLen > 0 then
    begin
    Result := aNamaLengkap[1] ;
    i := 0;
      while i<1 do
      begin
        i := Pos(' ', aNamaLengkap);
        if i > 0 then
        Result := Result + aNamaLengkap[i+ 1];

      end;
    end
end;

Penjelasan :

  1. Dibuat function (kenapa tho kalo saya membuat program selalu dibawa ke function atau procedure, hehhehe inilah proses agar lebih terstruktur)
  2. Ditentukan variabel i dan aLen(panjang karakter nama)
  3. Baris ke-6, didefinisikan result=”
  4. Baris ke-8, menghitung panjang Nama Lengkap
  5. Baris ke-9, Jika panjangnya lebih dari 0 maka dikerjakan.
  6. Baris ke-11, Diambil array ke 1, sebagai info bahwa String adalah kumpulan dari huruf-huruf, sehingga jika dipanggil varstring[1] akan membaca huruf pertama
  7. Baris ke-13 dilakukan perulangan sampai kondisi tidak ketemu
  8. Baris ke-15, dilakukan pencarian karakter spasi pada Nama Lengkap
  9. Baris ke-16, jika ditemukan (nilai i>0) maka hasilnya ditambahkan dengan 1 karakter didepan spasi(aNamaLengkap[i+1])
  10. Nah.. selesai deh kita dapat mengambil nama inisial seseorang…

Algortima ini belum sempurna… jika anda mempunyai 3 kata, Agus Suharto Wibowo akan menghasilkan AS jika ingin menghasilkan ASW, silakan kembangkan sendiri…

Have a nice day….

Regards..

One comment for “Algoritma Mengambil Nama Inisial”

1

kk maaf,boleh nanya gak..
gimana algoritmanya tuk mengambil 1 token dan memasukkannya ke dalam array.terima kasih.
-mhon bantuannya-

.tlong krim keemail yah.

September 19th, 2010 at 12:08 pm

Laeave a Reply

*
To prove you're a person (not a spam script), type the security word shown in the picture.
Anti-Spam Image

Error. Page cannot be displayed. Please contact your service provider for more details. (7)