1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
uses math, strutils, sysutils;
var
minx, maxx, miny, maxy, stepx, stepy, i, x0, f: integer;
n, j, lenf: byte;
raw_freq, freq: array of integer;
xtrue, xfalse: array of string;
function gcd(a, b: integer): integer;
var
c: integer;
begin
while b > 0 do
begin
c := b;
b := a mod b;
a := c
end;
gcd := a
end;
begin
read(minx, maxx, miny, maxy, stepx, n);
setlength(raw_freq, maxx - minx + 1);
for i := 0 to length(raw_freq) - 1 do
raw_freq[i] := 0;
for i := 1 to n do
begin
readln(x0, f);
raw_freq[x0 - minx] := f
end;
setlength(freq, length(raw_freq) div stepx);
for i := 0 to length(freq) - 1 do
begin
freq[i] := 0;
for j := 0 to stepx - 1 do
inc(freq[i], raw_freq[i * stepx + j]);
freq[i] := freq[i] div stepx
end;
stepy := maxy - miny + 1;
for i in freq do
stepy := gcd(stepy, i - miny + 1);
lenf := 0;
i := miny;
repeat
lenf := max(length(inttostr(i)), lenf);
inc(i, stepy)
until i > maxy;
setlength(xfalse, length(freq));
setlength(xtrue, length(freq));
for i := 0 to length(freq) - 1 do
begin
xtrue[i] := addchar('*', '', length(inttostr(minx + stepx * i)));
xfalse[i] := addchar(' ', '', length(inttostr(minx + stepx * i)));
for j := 1 to stepx - 1 do
begin
xtrue[i] :=
xtrue[i] +
addchar('*', '', length(inttostr(minx + stepx*i + j)) + 1);
xfalse[i] :=
xfalse[i] +
addchar(' ', '', length(inttostr(minx + stepx*i + j)) + 1)
end
end;
repeat
write(addchar(' ', inttostr(maxy), lenf), ' ');
for i := 0 to length(freq) - 2 do
begin
if freq[i] >= maxy then
write(xtrue[i])
else
write(xfalse[i]);
write(' ')
end;
if freq[length(freq) - 1] >= maxy then
writeln(xtrue[length(freq) - 1])
else
writeln(xfalse[length(freq) - 1]);
dec(maxy, stepy)
until maxy < miny;
write(addchar(' ', '', lenf + 1));
for i := minx to maxx - 1 do
write(i, ' ');
writeln(maxx)
end.
|
