uses crt;
const nmax=100;
type tabinteger=array[1..nmax] of integer;
var
tabint:tabinteger;
jml_data,data,indeks:integer;
found:boolean;
cari:char;
procedure inputdata(n:integer; var t:tabinteger);
var
i:integer;
begin
for i:=1 to n do
begin
write ('nilai ke - ',i,' : ');
readln(t[i]);
end;
end;
procedure seqsearch(t :tabinteger; n,x :integer;var idx:integer);
var i:integer;
begin
i:=1;
found :=false;
while (i<=n) and (not found) do
begin
if t[i]=x then
found:=true
else
i:=i+1;
end;
if found then
idx:=i
else
idx:=0;
end;
begin
clrscr;
write('banyaknya integer : ');readln(jml_data);
inputdata(jml_data,tabint);
repeat
write('data yang akan dicari : ');readln(data);
seqsearch(tabint, jml_data,data,indeks);
if indeks=0 then
writeln('data tidak ditemukan')
else
writeln('data ditenukan pada posisi ke-',indeks);
write('cari data lagi (y/t) ? ');readln(cari);
until(cari='t')or (cari='T');
readln;
end.
 |
| Arief Simpangsiur Tengah Malam |
