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
|
(* this is a sample test quiz Pascal program *)
(* date: March 23, 2006 *)
program main( input, output );
var x,y,z: integer;
var p,q: real;
var a: array [ 1..10 ] of integer;
var b: array [ 10..15 ] of real;
function foo( x: integer; c: real; y: integer; b: real ) : integer;
var p: integer;
var q: real;
procedure boo( z: real; k: integer );
begin (* boo *)
a[k] := y
end; (* boo *)
begin (* foo *)
boo( b[a[x+y]+1], foo( x,a,y,b ));
foo := foo( a[k-k], b[20], a[x-y], q )
end; (* foo *)
begin
y := 5;
for x := 1 to (2*y) do
begin
a[x] := foo( 1, b[10], x, b[a[10]] );
if ( x <= 5 and x > 0 and x < y ) then
if ( a[x] < foo( a[1], 3.14, y+z*a[3], 2.13 )) then
y := a[x]
else
y := foo( a[x]+1, b[a[x]], a[a[x+1]], b[13+foo(1,2.3,4,5.6)] )
end
end.
|
