INTERACTIVE TEST 7: Procedures and Functions
| Notes | Tests | Home Page |
Previous Page


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;

Previous Page
Copyright B Brown/P Henry, 1988-1999. All rights reserved.