В общем программа я написал но без модулей не шарю вмодулях .
Tpoint = Object
Public
Constructor Init(aN:string);
Procedure Show;
Function Move: Real; Virtual;
Private
Name: String[10];
End;
Constructor Tpoint.Init;
Begin
Name:=aN;
Writeln;
Writeln(' --------- ','Название',' --------- ');
End;
Procedure Tpoint.Show;
Begin
Writeln(' ========================');
Writeln(' New value: ',Move:6:2);
End;
Function Tpoint.Move;
Begin
End;
{----------------------------------------------}
type
Sector = Object(Tpoint)
Public
Constructor Init;
Procedure Show;
Function Move: Real; Virtual;
Private
R: Real;
A:Real;
End;
Constructor Sector.Init;
Begin
Tpoint.Init('Сектор');
Write(' Введите радиус: ');
Readln(R);
Write(' Введите угол: ');
Readln(A);
End;
Procedure Sector.Show;
Begin
Tpoint.Show;
Writeln(' Радиус: ',R:6:2);
Write(' Угол: ',A:6:2);
End;
Function Sector.Move;
Begin
Move:=A+10;
End;
{----------------------------------------------}
Type
Duga = Object(Sector)
Public
Constructor Init;
Procedure Show;
Function Move: Real; Virtual;
Private
A2: Real;
End;
Constructor Duga.Init;
Begin
Tpoint.Init('Дуга');
Write(' Введите радиус: ');
Readln(R);
Write(' Введите угол: ');
Readln(A);
End;
Procedure Duga.Show;
Begin
Sector.Show;
Writeln(' Радиус: ',R:6:2);
Write(' Угол: ',A:6:2);
End;
Function Duga.Move;
Begin
Move:=Sector.Move/2+20*R*sin(a);
End;
{--------------Main-------------}
Var
S: Sector;
Cl: Duga;
Begin
Writeln;
S.Init;
S.Show;
Cl.Init;
Cl.Show;
Readln;
End.
Думаю это не тяжело помогите пожалуйста зарание спасибо.