contoh program sequential searching ALGOSD
Mira Musrini hal 1
Program program_pencarian ;
1
2
uses
3
4
wincrt;
5
6
type
7
8
Larikint=array [1..10] of integer;
9
10
var
11
12
A:larikint;
13
bil,indeks,i:integer;
14
15
Procedure IsiLarik ( Var X:larikint);
16
17
begin
18
19
X[1]:= 8;
20
X[2]:= 10;
21
X[3]:= 14;
22
X[4]:= 19;
23
24
X[5]:= 24;
25
X[6]:= 30;
26
X[7]:= 36;
27
X[8]:= 32;
28
29
X[9]:= 12;
30
X[10]:=18 ;
31
32
end;
33
34
35
procedure Cari( b :integer; var X: larikint ; var pos:
36
integer ) ;
37
38
var
39
i:integer;
40
ketemu : boolean ;
41
42
begin
43
pos :=0;
44
ketemu := false ;
45
i:=1;
46
while(i<=10) and (not ketemu) do
47
contoh program sequential searching ALGOSD
Mira Musrini hal 2
begin
1
if (x[i] = b) then
2
begin
3
ketemu := true ;
4
pos := i
5
end;
6
i:=i+1;
7
end;
8
end;
9
10
11
12
13
begin(*program utama*)
14
15
writeln ('kondisi larik adalah :');
16
IsiLarik(A);
17
for i:= 1 to 10 do
18
writeln (A[i]);
19
write(' Masukkan bilangan yang akan dicari ='); readln
20
(bil);
21
cari(bil,A,indeks);
22
if indeks <> 0 then
23
writeln ( bil , ' ketemu pada indeks ke = ',indeks)
24
else
25
writeln ( bil , ' tidak ketemu ');
26
27
end.
28