Как вызвать функцию..

[Аделинкка]

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

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;

[Stilet]

я знаю,что так нельзя

Можно. Но Функция у тебя типа real и ы пытаешься ее результат в integer втулить.
Сделай n типа real и функция заработает.

Кстати дурной тон скрывать ошибки компилятора...

[Аватар]

Как минимум

sum_per , n,f,l : Real;

[Аделинкка]

sum_per , n,f,l : Real;

а,да это я исправила)
Компилятор-this form of method call only allowed for class methods
эта форма вызова метода разрешено только для методов класса

В этой строчке

 n:= ri2.perimetr

[Аватар]

  public
    function perimetr : real;

[apromix]

Забыла end. в конце проги А так все работает

[Аделинкка]

больше ничего не изменять???????????????????но у меня на этот самый public ругается
...даже если указать входные параметры

 public
    function perimetr(a,b) : real;

компилятор-declaration expected but identifier 'public' found
missing psrsmetr type
'.'expected but ';' found
this form of method call only allowed for class methods

[apromix]

Потому что public нужно указать перед конструктором Сам конструктор не может быть private, а только public. Лучше вообще не пиши секции вроде public или private. Но только пока не разобралась с ООП.

[Аделинкка]

пока не разобралась( просто запуталась..просто не буду писать)но не работает все же (((((((((((((((ошибочки старые ,что неправильное в вызове функции...с типами переменных все ок ,лишь this form of method call only allowed for class methods в той же строчке

[apromix]

Вот точно работающий код

program Project1;

{$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 :real;
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;
end.