INTERACTIVE TEST 7: Procedures and Functions | Notes | Tests | Home Page |
This browser does not support JavaScript. In order to use this test, please update your browser to a JavaScript compatible browser, or choose the CGI version of this test. Internet Explorer browsers are updated by http://www.microsoft.com/ie/, and Netscape browsers updated by accessing http://www.netscape.com/
1. Which of the following Pascal functions which change the value 6.6 to an integer value of 7
odd round trunc abs
2. Which of the following Pascal operators has the least priority
= + / NOT
3. Write a simple Pascal procedure called Welcome which prints the text string "Welcome to Pascal"
procedure Welcome to Pascal; begin writeln('Welcome') end;
procedure Welcome; begin writeln('Welcome to Pascal') end;
procedure Welcome begin writeln("Welcome to Pascal") end;
4. Write a Pascal procedure called Multiply, which accepts two integers, number1 and number2, and prints the result of multiplying the two integers together.
procedure Multiply( number1, number2 : integer ); var Result : Integer; begin Result := number1 * number2; writeln( Result ) end;
procedure Multiply( number1, number2 : integer ); begin writeln( number1 + number2 ) end;
function Multiply( number1, number2 : integer ) : Result; var Result : Integer; begin Result := number1 * number2; writeln( Result ) end;
5. What is the output of the following Pascal program
program Sample( output ); var x, y : integer; procedure godoit( x, y : integer ); begin x := y; y := 0; write( x, y ); end; begin x := 1; y := 2; godoit( x, y ); writeln( x, y ) end.
2 0 0 1 1 0 2 0 2 0 1 2 1 2 3 4
6. Write a Pascal function called Multiply2 which returns an integer result. The function accepts two integer parameters, number1 and number2 and returns the value of multiplying the two parameters
procedure Multiply2( number1, number2 : integer ) : integer; var Result : integer; begin Result := number1 * number2; Multiply2 := Result end;
function Multiply2( number1, number2 : integer ) : real; var Result : integer; begin Result := number1 * number2; Multiply2 := Result end;
function Multiply2( number1, number2 : integer ) : integer; var Result : integer; begin Result := number1 * number2; Multiply2 := Result end;
Copyright B Brown/P Henry, 1988-1999. All rights reserved.