From 8e354d0b3d76eac27fe2c533db275e21f983b8dd Mon Sep 17 00:00:00 2001 From: Tucker Evans Date: Mon, 30 Sep 2019 16:46:18 -0400 Subject: Add more of Tino's tests --- Testing/General/test-2.p | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 Testing/General/test-2.p (limited to 'Testing/General/test-2.p') diff --git a/Testing/General/test-2.p b/Testing/General/test-2.p new file mode 100644 index 0000000..511da8f --- /dev/null +++ b/Testing/General/test-2.p @@ -0,0 +1,38 @@ +(* this is a sample test quiz Pascal program *) +(* date: March 23, 2006 *) + +program main( input, output ); + + var x,y: integer; + var p,q: real; + var a: array [ 1..10 ] of integer; + var b: array [ 10..15 ] of real; + + function foo( i: integer; u: real; j: integer; v: real ) : integer; + + var k: integer; + var w: real; + + procedure boo( r: real; s: integer ); + begin (* boo *) + a[s] := j + end; (* boo *) + + begin (* foo *) + boo( b[a[x+y]+i], foo( i,u,j,v )); + foo := foo( a[y-y], b[20+x*x], a[x-y], q-p ) + end; (* foo *) + +begin + y := 5; + for x := 1 to ( 2 * y + a[x] ) do + begin + a[x] := foo( 1, b[x]+b[y], x, b[a[10]] ); + if ( (x <= 5) and (x > 0) and (x < y) ) then + if ( a[x] < foo( a[1], 3.14, y+x*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. + -- cgit v1.1