SELF TEST: ANSWERS

1. Write a for loop to display the following output

	1 2 3 4 5 6 7 8 9 10

	for loop := 1 to 10 do write( loop, ' ' );

2. Write a for loop to display the following output

	1

	22

	333

	4444

	55555



	for loop := 1 to 5 do

	begin

		for loop1 := 1 to loop do write( loop );

		writeln

	end

3. Write a while loop to display the following output

	A B C D E F

	loop := 'A';

	while loop <= 'F' do

	begin

		write( loop, ' ' );

		loop := loop + 1

	end;

4. Rewrite the following if statements as a Case statement

	if flag = 1 then number := 10

		else if flag = 2 then number := 20

			else if flag = 3 then number := 40;

	case flag of

		1 : number := 10;

		2 : number := 20;

		3 : number := 40

	end;

5. Define an enumerated data type called chair, which has the set of values lounge, deck, executive

	type chair = ( lounge, deck, executive );

6. Write pascal statements to define a new working variable mychair, of type chair, and assign the value deck to this new variable.

	var  mychair : chair;

	mychair := deck;

7. Define a new subrange called minutes, which has a set of ranges from 0 to 60.

	type minutes = 0..60;