 Pascal Assignment.

O..k.. here goes

```PROGRAM ONE

Determine the output of the following program

program  function_time (input, output);
const    maxsize = 80;
type     line = packed array[1..maxsize] of char;

function COUNTLETTERS ( words : line) : integer; {returns an integer}
var      loop_count : integer;                   {local variable}
begin
loop_count := 1;
while (words[loop_count] <> '.') and (loop_count <= maxsize) do
loop_count := loop_count + 1;
COUNTLETTERS := loop_count - 1
end;

var   oneline : line;
letters : integer;
begin
writeln('Please enter in a sentence terminated with a .');
letters := COUNTLETTERS( oneline );
writeln('There are ',letters,' letters in that sentence.')
end.

PROGRAM TWO

Write a program to calculate the cube of a given number (answer = number*number*number). Use a
function to calculate the cube.

PROGRAM THREE

Use function to write a program tha calculate the power of number1 to the power of number2, where
number1 and number2 are two integer numbers input.
The answer should be stored on a variable result and output on the screen.

PROGRAM FOUR

program ARRAY_TEST (output);
var     numbers : ARRAY [1..5] of integer;
begin
numbers := 7;
numbers := 13;
numbers := numbers - 1;
numbers := numbers DIV 3;
numbers := numbers DIV numbers;
for loop := 1 to 5 do
writeln('Numbers[',loop,'] is', numbers[loop] )
end.

PROGRAM FIVE

Given the following marks achieved in a programming test, and that the pass mark is the average of all
the marks, write a program to list those students who have passed.
FRED		21	GEORGE		56
ANNE		52	MARY		89
ROBERT		71	ALFRED		71
CECIL		33	MIKE		54
JENNIFER  	41	PAULINE		48

```

Lesson 1 Lesson 2 Lesson 3 Lesson 4 Lesson 5 Lesson 6 Lesson 7 Lesson 8

PASCAL Assignment. 