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-1.p | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 Testing/General/test-1.p (limited to 'Testing/General/test-1.p') diff --git a/Testing/General/test-1.p b/Testing/General/test-1.p new file mode 100644 index 0000000..27857a1 --- /dev/null +++ b/Testing/General/test-1.p @@ -0,0 +1,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. + -- cgit v1.1