Category

Pascal

Category
In Pascal

Pascal Program Using Hero’s Formular To Calculate Area Of A Triangle

1 Min Read

Just came across a program I wrote then in school to calculate area of triangle using Hero’s formula.Program flowchart

1
2
 
/**<br /> *<br /> * @Author: Aghatise Osazuwa<br /> * Website: www.cscprogrammingtutorials.com<br /> *<br /> */ <br /><br />Program AreaOfTriangle;<br />const<br />PI = 3.142;<br />type<br />r=array [1..3] of real; {hold the values of sides of triangle}<br />var<br />d:r;<br />A:real;<br />K:integer;<br />s:real;<br />begin<br />   For k:= 1 to 10 Do  {loop for the 10 sets of values}<br />     begin<br />        writeln ('Enter Values of first side');<br />        read (d[1]);<br />        writeln ('Enter Values of second side');<br />        read (d[2]);<br />        writeln ('Enter Values of third side');<br />        read (d[3]);<br />        s:= (d[1]+d[2]+d[3])/2;  {compute s}<br />           A:= Sqrt(s*((s-d[1])*(s-d[2])*(s-d[3]))); {compute area}<br />        writeln ('Area = ', A);<br />     end<br />end.       <br />

Read More
3x3 Matrix multiplication Program
In Pascal

3×3 Matrix Multiplication Using Pascal Programming

1 Min Read

 The program below computes the product of two 3 by 3 matrices using the Pascal programming language.

3x3 Matrix Program in Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
PROGRAM matrix (Input, Output);
VAR
  A, B, C: ARRAY[1..3, 1..3] OF Integer;
  Arow, AColumn, Brow, BColumn, I, J, K, SUM: Integer;
BEGIN
  Write(' ':4O, 'MATRIX MULTIPLICATION PROGRAM');
  Write(' ':4O, '-----------------------------');
  Writeln;}
  Writeln(' Enter the number of ROWS of Matrix A');
  Readln(Arow);
  Writeln(' Enter the number of COLUMNS of Matrix A');
  Readln(AColumn);
  Writeln(' Enter the number of ROWS of Matrix B');
  Readln(Brow);
  Writeln(' Enter the number of COLUMNS of Matrix B');
  Readln(BColumn);
  Writeln();
  IF (AColumn = Brow) THEN
    BEGIN
      Writeln(' Enter the elements of Matrix A');
      For I:= 1 to 3 DO
        For J:= 1 TO 3 DO
          Readln(A[I,J]);
      Writeln(' Enter the elements of Matrix B');
      For I:= 1 to 3 DO
        For J:= 1 TO 3 DO<
          Readln(B[I,J]);
      Writeln;
{ Display the elements of Matrix A }
    Writeln(' MATRIX A');
    Writeln(' --------');
    For I:= 1 TO 3 DO
      BEGIN
        For J:= 1 TO 3 DO
          Write(A[I,J]:3);
          Writeln;
      END;
    Writeln;
{ Display the elements of Matrix B }
    Writeln(' MATRIX B');
    Writeln(' --------');
    For I:= 1 TO 3 DO
      BEGIN
        For J:= 1 TO 3 DO
          Write(B[I,J]:3);
          Writeln;
      END;
    Writeln;
{ Compute the Product of Matrices A and B }
    For I:= 1 to 3 DO
      For J:= 1 TO 3 DO
        BEGIN
          SUM:=0;
          For K:= 1 TO 3 DO
          SUM:= SUM + A[I,K] * B[K,J];
          C[I,J]:= SUM;
        END;
    Writeln;
{ Display the Product of Matrices A and B }
    Writeln(' MATRIX AB');
    Writeln(' ---------');
    Writeln;
    For I:= 1 TO 3 DO
      BEGIN
        For J:= 1 TO 3 DO
        Write(C[I,J]:5);
        Writeln;
      END;
    END
  ELSE
  Writeln(' Matrix A and B cannot be multiplied. Enter Matrices in the order m x n and n x p');
  Writeln();
  Writeln(' PRESS THE ENTER KEY TO EXIT');
  Readln;
END.

You can modify the…

Read More