Class 2 Definition and use

Before using the class, use the keyword type to declare a class, such

Type

A = Class

I, J, K: integer;

Procedure Seta (A, B, C: integer );

Function Gera (): integer;

End;

A class has been defined here. Now we use the class

Before using the class, we must first give the following two lines

Procedure Seta (A, B, C: integer );

Function Gera (): integer;

The Code implements the following functions:

Function A. Geta (): integer;
Begin

Result: = I + J + K;
Writeln (result );
End;

Procedure A. Seta (A, B, C: integer );
Begin
I: =;
J: = B;
K: = C;
End;

First, let's use Class A as an object A1.

VaR

A1:;

Begin
{Todo-ouser-cconsole main: insert code here}
A1: = A. Create; // instantiate A1
A1.seta (1, 2, 3 );
A1.geta (); // The result is 6.
Readln;
End.

The next lesson explains encapsulation, inheritance, and polymorphism. Keep up with the new...

Class 2 Definition and use