为什么在乘法时抛出异常？

Question

我想要方形，但我不记得怎么做，因为我乘法是一个变量，但抛出exeption，我不知道为什么。请帮助我不知道还有什么可做的qazxsw poi

Answer 1

  program Project1;
uses crt;
type TSquare=class
             len:integer;
             place:integer;
      function Perimetr:integer;
      function Area:integer;
      function Verify():boolean;
      procedure Show(P,S:real);
constructor Create(P,l:integer);
end;
 function TSquare.Perimetr:integer;
 var P:integer;
begin
       P:=len*4;
  end;
function TSquare.Area:integer;
var S:integer;
begin
       S:=len*len;
  end;
function TSquare.Verify:boolean;
begin

  end;
  procedure TSquare.Show(P,S:real);
  begin
         write('Площидь=',S,'Перимитр=',P);
    end;
constructor TSquare.Create(p,l:integer);
begin
       len:=l;
       place:=p;
end;
var r: TSquare;
    a,b:integer;
  begin
    r.Create(1,5);
    r.Show(r.Perimetr(),r.Area());
  end.

表示访问无效内存。在这里，您不能正确创建SIGSEGV对象。

TSquare是创建对象实例的正确方法。