kmz* online shared repository - Viewing Text File

1 Program first_DFSnDP;
2 var a,b,i,j,hasil:byte;
3 ax:array[0..100,0..100] of char;
4 baca:string;
5
6 procedure dmt(x,y:byte);
7 procedure mark(x,y:byte);
8 begin
9 ax[x,y]:='.';
10 dmt(x,y);
11 end;
12 begin
13 if ax[x-1,y-1] ='*' then mark(x-1,y-1);
14 if ax[x,y-1] = '*' then mark(x,y-1);
15 if ax[x+1,y-1] = '*' then mark(x+1,y-1);
16 if ax[x-1,y] ='*' then mark(x-1,y);
17 if ax[x+1,y] = '*' then mark(x+1,y);
18 if ax[x-1,y+1] = '*' then mark(x-1,y+1);
19 if ax[x,y+1] ='*' then mark(x,y+1);
20 if ax[x+1,y+1] = '*' then mark(x+1,y+1);
21 end;
22
23 procedure seek(x,y:byte);
24 begin
25 ax[x,y]:='.';
26 dmt(x,y);
27 hasil:=hasil+1;
28 end;
29
30 begin
31 for i:=0 to 100 do
32 for j:=0 to 100 do
33 ax[i,j]:='.';
34 hasil:=0;
35 readln(b,a);
36
37 for i:=1 to a do
38 begin
39 readln(baca);
40 for j:=1 to b do
41 ax[j,i]:=baca[j];
42 end;
43
44 for i:=1 to a do
45 for j:=1 to b do
46 if ax[i,j]='*' then seek(i,j);
47
48 writeln(hasil);
49 readln;
50 end.