Помогите разобраться в такой задачке
Описать указанный класс. Государство (вычислить плотность населения, отношение числа жителей столицы к общей численности населения);Создать и инициализировать экземпляр этого класса. Вызвать каждый метод. Мне кажется за поля можно взять -численность населения, площадь,численность столицы. а методы - вычисление плотности и отношения.
Не судите строго эт моя первая задачка по этой теме.
Код:
Type TGosudarstvo=class;
x,y,z:real; procedure Init; end;
function Pl(a:Tgosudarstvo):real;
begin Pl:=a.x/y; end;
function Otn(b:TGosudarstvo):real; begin
Otn:=b.z/x; end;
var c,d,e:TGosudarstvo;
begin c:=TGosudarstvo.Greate; d:=TGosudarstvo.Greate;e:=TGosudarstvo.Greate; c.Init; d.Init;
writeln('plotn=',c.Pl(d)); writeln('Otn=",c.Otn(d));
readln; c.Free; d.Free; end;