POST - A cộng B

Tác giả: khuc_tuan

Ngôn ngữ: Pascal

{$mode ObjFpc}

uses
  SysUtils;

type

  TClassA = class
      function tinh(a,b:integer) : integer; virtual; abstract;
  end;

  TClassB = class(TClassA)
      function tinh(a,b:integer) : integer; override;
  end;

  TClassC = class(TClassA)
      function tinh(a,b:integer) : integer; override;
  end;

var
  a : TClassA;
  x, y : integer;
  ar : array[1..10] of integer;
  na : integer;

function TClassB.tinh(a,b:integer) : integer;
begin
    result := a + b;
end;

function TClassC.tinh(a,b:integer) : integer;
begin
    result := a * b;
end;

begin
    a := TClassB.Create;
    ReadLn(x,y);
    WriteLn(a.tinh(x,y));
end.

Download