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
|
{$mode macpas}
program ptest;
type
Point = record
v: integer;
h: integer;
end;
procedure Test
(
arg1 : longint;
arg2 : integer;
arg3 : boolean;
arg4 : longint;
arg5 : longint;
arg6 : longint;
arg7 : longint;
arg8 : longint;
arg9 : longint;
arg10: longint
);
label
ErrExit;
var
i, n: integer;
p1, p2, unused1: Point;
dx, dy: Single;
unused2, unused3: integer;
unused4: longint;
begin
arg4:= 1;
n:= 0;
dx:= 1.0;
dy:= 1.0;
p2.h:= 1;
p2.v:= 2;
for i:=0 TO arg4-1 do begin
p1.h:=p2.h + round(3*dx);
p1.v:=p2.v + round(3*dy);
writeln('p1.h=', p1.h, ', p1.v=', p1.v);
if (p1.h <> 4) then
halt(1);
end;
if n<>0 then goto ErrExit;
ErrExit:
end;
begin
Test(0, 0, false, 1, 0, 0, 0, 0, 0, 0);
end.
|
