Ayo Membuat Program Pascal/SLLL

Dari Wikibuku bahasa Indonesia, sumber buku teks bebas
Jump to navigation Jump to search

type

  TArrString = array of string;

function CariLinier(var Arr: TArrString; Cari: string): LongInt; var

  Idx, Batas, Ketemu: LongInt;

begin

  Idx:= Low(Arr); 
  Batas:= High(Arr); 
  Ketemu:= -1;
  while (Idx <= Batas) and (Ketemu = -1) do begin
     if Arr[Idx] = Cari then Ketemu:= Idx; 
     Inc(Idx);
  end;
  CariLinier:= Ketemu;

end;