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.