TUTORIAL IT

Pascal program to multiply arrays A[i , j] and B[i, j] . Each element of the resulting matrix is multiplied by 1/4

Program begn;
Var
A, B, C, D : Array [1..2,1..2] of real;
I, j: integer;

Begin
  For i:= 1 to 2 do
    For j:= 1 to 2 do
      Begin
      Readln (A[i, j]);
      End;
  
  
Begin
  For i:= 1 to 2 do
    For j:= 1 to 2 do
      Readln (B[i, j]);
      End;
  
  
Begin
  For i:= 1 to 2 do
    For j:= 1 to 2 do
      C[i, j]:= A[i, j] * B[i, j];
      End;
  

Begin
  For i:= 1 to 2 do
    For j:= 1 to 2 do
      D[i, j]:= 1/4 * C[i, j];
      End;
  
  
Begin
  For i:= 1 to 2 do
    For j:= 1 to 2 do
      Writeln (D[i, j]);
      Readln;
      End;
End.
  
  
  

This program takes in only even numbers into an array of two rows and two columns. Here, a loop and conditional statement is used.

Program Eve;
Label 10;
Var
A : array[1..2,1..2] of integer;
I, j: integer;
Begin
For I:= 1 to 2 do
   For j:=  1 to 2 do
    Begin
10: readln (A[I , j]);
   If A[I , j] mod 2  < > 0 then goto 10
   Else
   End;
Begin
For I:= 1 to 2 do
For j:= 1 to 2 do
Writeln (A[I , j] );
Readln;
End.

Using the while do loop, the program calculates the sum and average of only three positive numbers. Any negative number entered by the user is ignored.

Program Positve;
Label 10;
Var
Sum, Ave, N: real;
I : integer;

Begin
I:=0; sum:=0;
While i<=3 do
Begin
10: Writeln ('enter the numbers');
       Readln (N);
        If N < 0 then goto 10
          Else
          Sum:= sum + N;
          I:= i+1;
          End;

        Ave:= sum/3;
    Writeln ('the average',ave);
     Readln;
     End.

program Create_Records;
Type
Gra = String [30];
File_Content = Record
Name : Gra;
Matric_No : Gra;
Dept : Gra;
Sex : Gra;
Date_Of_Birth : Gra;
(*enter as many data as you like and intialise either as string, integer or char*);
End;

Var
 
       FileInfo : File_Content;
       Newfile : text;
        I : Integer;

Begin
Assign (newfile, 'Grace_Joseph.txt');
rewrite (Newfile);
      for i := 1 to 5 do
       begin
      writeln ('Enter name:');
      readln ( fileinfo.name);
       writeln ('matric number');
       readln (fileinfo.matric_No);
        writeln ('department');
       readln (fileinfo.dept);
        writeln ('sex');
        readln (fileinfo.sex);
        writeln ('date of  birth');
        readln (fileinfo.date_of_birth);
(*follow the above procedure to write and read the data you initialised*    )

writeln (newfile,' Name:', fileinfo.name)
writeln (newfile, 'matric number:', fileinfo.matric_no);
writeln (newfile,' Department: ', fileinfo.dept);
writeln (newfile,' Sex:', fileinfo.sex);
writeln (newfile,' Date Of Birth:', fileinfo.date_of_birth);
readln;
end;
close (newfile);
end.

In the program above, students records are saved in a textfile. You can rename the name of the textfile from Grace_Joseph.txt to yourDesired Name.txt. Goto the documents in your computer and search for the file using. the filename.txt.

The program creates a record for 5 students using the For Do loop.

program NameArray;
var
A , B, C : Array [1..5,1..5] of integer;
d, e : integer;
Begin
  for d := 1 to 5 do
   Begin
  for e := 1 to 5 do
    Begin
writeln ('input your numbers for A');
readln (A[d , e] );
end;
end;
  begin
  writeln;
   for d := 1 to 5 do
     begin
   for e := 1 to 5 do
  begin
  writeln ('enter a number for b');
  readln (B [d , e] );
  end;
  end;
  begin
for d:= 1 to 5
begin
for e:= 1 to 5
C [d , e] := C [d ,e] + A [d , e]  × B [ d, e];
end;
writeln (' The answers are');
readln;
writeln;
writeln;
for d := 1 to 5 do
begin
for e := 1 to 5 do
write ( C[ d, e], '  ' :2);
Writeln;
end;
end;
end;
readln;
End.

The Fibonacci series is one in which the addition of two previous terms gives you the next term. That is. 0,1,2,3,5,8,13....1 + 2 is the next consecutive term which is 3, so is 3 + 5 (8)the next term.

This program uses a function subprogram to call by value.

Program Fibnacci;
Var
I : integer;
Function fibonacci (a: integer): integer;
Begin
If a=1 then
   Fibonacci :=0
Else if n=2 then
    Fibonacci :=1
Else
    Fibonacci := Fibonacci(a-1) + Fibonacci (n-2);
End;
Begin
For I:= 1 to 20 do
Writeln(Fibonacci (I));
Readln
End.

Write a pascal program that uses a function subprogram called N to calculate the area of a triangle with the formula: Area=√N(N-X)(N-Y)(N-Z) where N= x + y + z / 2

Program area_Of_triangle;
Var
x, y, z , r, area : real;
Function N (I, j, k: real): real;
Begin
N:=a + b + c / 2;
End;
Begin
Writeln (' enter values for  x, y, z');
Readln (x, y, z);
r := N(x, y, z);
Area:= sqrt( r- x)*(r-y)*(r-z);
Writeln ('Area:', area);
Readln
End.
 

The global variables have been declared at the top which is x, y, z. The function carries the local variables i, j, k which must be of the same type as the global variables (real, integer, string or any other). But in this case, the appropriate type is a real data type.

Using the formula of N in the question, this formula isassigned to N in the program.

Next the values are read in by the user which is prompted by 'enter the values for x, y, z'. These identifiers (x, y, z take the values of I, j,k) replace the local variables when the is function N is called and assigned to 'r'. The later part to the program calculates the area of the triangle.

To calculate the sum and average of three different numbers. You can edit the loop and the average formula to repeat it as many times as you'd like.

Program untitled;
var
sum, ave, n : real;
i : integer;
begin
sum := 0;
i := 1;
while i <=3 do
begin
writeln ('enter your numbers');
readln (n);
sum := sum + n;
ave := sum / 3;
i := i + 1 ;
end;
writeln (ave);
readln;
end.