Laboratory 4

Laboratory 4
Due at the end of today's class

Problem (similar to text problem #2 on page 110).
Write a Pascal program, named find.pas, that has an array variable capable of holding ten integers. The program should do the following:

The program should ask the user to type in ten integers and store them in the array.

This will require using a loop. You should use a for loop.
Use read() instead of readln() to read numbers entered on a single line.

Once the numbers are stored, your program should ask the user to type in another integer. This integer should be stored in the variable, number.

Your program should then search through the array to find if this integer was originally stored in the array or not. (Use another for loop)

If the searched-for number is found, set the variable, found, to true (within the loop).

After the loop finishes, your program should print a found message if the integer was found (i.e. the variable, found, is true), otherwise it should print a not found message.

You may use the program skeleton given below:

program storeAndFind;
{ your name and program description goes here. }
type
	listType = array [1..10] of integer;
var
	list     : listType;
	count    : integer;
	number   : integer;
	found    : boolean;
begin
	{need some code here fill the array with ten integers}
	
	{need some code here to get the number to look for}
	
	found := false;
	
	{need some code here to search the list for number}
	
	if found then
	begin
		writeln ('The number ',number,' was found in the list.')
	end
	else
	begin
		writeln ('The number ',number,' was not in the list.');
	end;
end.  {end of main program store and find}

A sample session for the problem might look like the following:

Please enter ten integers separated by a space....

11 1 3 8 10 41 36 133 6576 4

Please enter a number to search for:

The number 7 was not in the list.

What To Turn In.

A printed listing of the lab program. Be sure that your name is in the program prologue’s comment section of the program.

Reminder.

Be sure to save a copy of each program on your P:\ drive, and delete your working copies from your D:\ drive.