fast. одна строчка!

[--Sashok--]

Вот модуль

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.

Ошибка в нем

[Error] labka.pas(75): Incompatible types: 'Integer' and 'Extended'
[Fatal Error] laboratorna.dpr(7): Could not compile used unit 'labka.pas'

вот сама программа:

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.

ПОМОГИТЕ ПОЖАЛУЙСТА.Никак не могу написать площадь трапеции выбивает ошибку что не совместимый тип интегер.

[Juffin]

Plosha:=(side1+side2)*h/2;

заменить на

Plosha:=(side1+side2)*(h div 2);

[--Sashok--]

Сообщение от Juffin

Plosha:=(side1+side2)*h/2;

заменить на

Plosha:=(side1+side2)*(h div 2);

извини конечно но при вводе любых даных сума площадей равняется 0

[Alex11223]

Апы не приветствуются, придет модератор — накажет.

Видимо остались ошибки где-то в другом месте.

[ACE Valery]

Plosha у вас типа интеджер, ну и посмотрите, что вы туда записываете :=(side1+side2)*h/2;
Если высота четная, то куда ни шло, а если нечетная, то получается вещественное число. Поэтому и ошибка. Если вам надо целое число, то воспользуйтесь советом Juffin'а. Если не целое, то пусть возвращает не интеджер. Если получается ноль, значит, проверьте в дебаггере, чему равны высоты и стороны фигур.

И да, апы не приветствуются, за год пребывания на форуме можно было бы это понять.

[--Sashok--]

спасибо за соображения но что такое дебаггер

[Alex11223]

Отладчик, нужен для пошагового просмотра выполнения программы.
http://ru.wikipedia.org/wiki/Отладка_программы
http://www.nmarket.ru/program/delphi...s-1/les-26.php

[Pyxy]

не считается площадь потому что нет значения для высоты трапеции