Не работает корень!

[Аделинкка]

Привет!У меня большая проблема...Не могу понять как научиться извлекать корень(((Я вроде то -то неправильно делаю,на корне у меня возникает ошибка(программа ругается..помогите немного..

program Project8;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  per=class
  a,b,res:integer;
  constructor Create;
  destructor Destroy; override;
  procedure perimetr;
end;

constructor per.Create;
begin
  inherited Create;
  writeln('vvedite "1 katet"');
  readln(a);
  writeln('vvedite "2 katet"');
  readln(b);
end;

destructor per.Destroy;
begin
  inherited Destroy;
end;

procedure per.perimetr;
var c:Integer;
begin
  c:=sqrt(a*a+b*b);//воот в этом месте
  res:=a+b+c;
  writeln('perimetr = ',res);
end;  

var ri1,ri2,ri3:per;
sum_per , n,f,l :integer;
begin
  ri1:=per.Create;
  ri2:=per.Create;
  ri3:=per.Create;

  n:= ri2.perimetr ;//и в этом,я знаю,что так нельзя ,но как записать //правильно эту мысль??
  f:=ri1.perimetr;
  l:=ri3.perimetr ;

  sum_per:=n + f +l ;
  writeln('Summa perimetrov pryamoygolnuh treygolnikov=', sum_per);
  readln;
  readln;


  ri1.Destroy;
  ri2.Destroy;
  ri3.Destroy;
      { TODO -oUser -cConsole Main : Insert code here }
end.

[misher]

procedure per.perimetr;
var c:Integer;
begin
c:=sqrt(a*a+b*b);//воот в этом месте
res:=a+b+c;
writeln('perimetr = ',res);
end;

возможно из-за того, что c: integer; Вдруг корень будет вещественного типа...
и переменную res тоже нужно править...

[Аделинкка]

ААААААААААаа)спасибо и вправду))

[Аделинкка]

Моя программа должна три раза посчитать ,как потом эти ответы сложить???я попыталась

	
	
begin
  ri1:=per.Create;
  ri2:=per.Create;
  ri3:=per.Create;

  n:= ri2.perimetr ;//и в этом,я знаю,что так нельзя ,но как записать //правильно эту мысль??
  f:=ri1.perimetr;
  l:=ri3.perimetr ;

  sum_per:=n + f +l ;
  writeln('Summa perimetrov pryamoygolnuh treygolnikov=', sum_per);
  readln;
  readln;

Но это неправильно,так не считают(

[Serge_Bliznykov]

нет, так не получится. чтобы это стало возможным, написать надо не процедуру perimetr, а ФУНКЦИЮ:

type
  per=class
  a,b,res:integer;
  constructor Create;
  destructor Destroy; override;
  function perimetr : real;
end;

...

function per.perimetr : real;
var c:real;
begin
  c:=sqrt(a*a+b*b);//воот в этом месте
  result := a+b+c;
  // writeln('perimetr = ',result);
end;

[Аделинкка]

res и result это одно и тоже?)

[Аделинкка]

ладно,это мелочи,с вызовом функции все равно не разобралась..............я знаю,что функция возвращает значение,но блин....(((((((((((((как это сделать?????подскажите ,пожалуйста)))))))))))))прога почти готова_)

[Аделинкка]

У меня sum_per и ri1 разных типов(((((((((((((((((((((((((как исправить??????7

program Project8;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  per=class
  a,b:integer;
  constructor Create;
  destructor Destroy; override;
  function perimetr : real;
end;


constructor per.Create;
begin
  inherited Create;
  writeln('vvedite "1 katet"');
  readln(a);
  writeln('vvedite "2 katet"');
  readln(b);
end;

destructor per.Destroy;
begin
  inherited Destroy;
end;

function per.perimetr : real;
var c:real;
begin
  c:=sqrt(a*a+b*b);//воот в этом месте
  result := a+b+c;
  // writeln('perimetr = ',result);
end;
    

var ri1,ri2,ri3:per;
sum_per , n,f,l :integer;
begin
  ri1:=per.Create;
  ri2:=per.Create;
  ri3:=per.Create;

  n:= ri2.perimetr ;//и в этом,я знаю,что так нельзя ,но как записать //правильно эту мысль??
  f:=ri1.perimetr;
  l:=ri3.perimetr ;

  sum_per:=n + f +l ;
  writeln('Summa perimetrov pryamoygolnuh treygolnikov=', sum_per);
  readln;
  readln;