| Код | unit labka;
interface
type
TGeomFigure=class (TObject)
function Plosha: integer; virtual; abstract;
function Perimetr: integer; virtual; abstract;
function InputData: boolean; virtual; abstract;
end;
TSquare=class(TGeomFigure)
side: integer;
function Plosha: integer; override;
function Perimetr: integer; override;
function InputData: boolean; override;
end;
TTrap=class(TGeomFigure)
h,side1,side2,side3: integer;
function Plosha: integer; override;
function Perimetr: integer; override;
function InputData: boolean; override;
end;
TRectangle=class(TGeomFigure)
side1,side2: integer;
function Plosha: integer; override;
function Perimetr: integer; override;
function InputData: boolean; override;
end;
implementation
function TSquare.Plosha: integer;
begin
Plosha:=side*side;
end;
function TSquare.Perimetr: integer;
begin
Perimetr:=4*side;
end;
function TSquare.InputData: boolean;
begin
writeln ('Vvedenna parametriv kvadrata');
write ('Vvedit ctorony kvadrata: ');
readln(side);
if side<=0 then InputData:=false
else InputData:=true;
end;
function TRectangle.Plosha: integer;
begin
Plosha:=side1*side2;
end;
function TRectangle.Perimetr: integer;
begin
Perimetr:=(side1+side2)*2;
end;
function TRectangle.InputData: boolean;
begin
writeln ('Vvedenna parametriv pramokytnuka');
write ('Vvedit ctorony pramokytnka: ');
readln(side1,side2);
if (side1<=0) or (side2<=0) then InputData:=false
else InputData:=true;
end;
function TTrap.Plosha: integer;
begin
Plosha:=(side1+side2)*h/2;
end;
function TTrap.Perimetr: integer;
begin
Perimetr:=side1+side2+2*side3;
end;
function TTrap.InputData: boolean;
begin
writeln ('Vvedenna parametriv trapeciy');
write ('Vvedit ctorony trapecii: ');
readln(side1,side2,side3);
if (side1<=0) or (side2<=0) or (side3<=0) then InputData:=false
else InputData:=true;
end;
end.
|
а вот и програма
| Код |
program laboratorna;
{$APPTYPE CONSOLE}
uses
SysUtils,
labka in 'labka.pas';
const n=3;
var
aFigure: array[1..n] of TGeomFigure;
sum_plosh,sum_perim: integer;
i: integer;
tup: char;
begin
write ('Zadayte tup figury: ');
readln(tup);
writeln;
for i:=1 to n do
case tup of
'k': aFigure[i] := TSquare.Create;
't': aFigure[i] := TTrap.Create;
'p': aFigure[i] := TRectangle.Create
end;
for i:=1 to n do
if not aFigure[i].InputData then
begin
write ('Pomulka vvedenna danux ');
exit;
end;
sum_plosh:=0; sum_perim:=0;
for i:=1 to n do
begin
sum_plosh:=sum_plosh+aFigure[i].Plosha;
sum_perim:=sum_perim+aFigure[i].Perimetr;
end;
writeln;
writeln('Cyma plosh =',sum_plosh);
writeln('Cyma perimetriv= ',sum_perim);
readln
end. |
 ПОМОГИТЕ ПОЖАЛУЙСТА.Никак не могу написать площадь трапеции выбивает ошибку ,и еще я не могу сделать для круга и треугольника...
|
