Уважаемые, помогите пожалуйста с такой задачкой

[mistermakc]

Используя ООП, опишите выборы. Пример объекта:кандидат
фамилия кандидата и количество набранных голосов).
Всего избирателей 2000. Составить метод, определяющий,
избран ли кто-нибудь из кандидатов или необходимо проводить
повторные выборы
(должно быть набрано 1/3 голосов от общего количества).
Дополнительные свойства и методы объектов приветствуются

[Stilet]

Показывай что сам сделал.

[mistermakc]

над этим нужно еще работать... но увы уже не знаю что (

Program Pr_2;
type
TChelovek = object
Name:string;

Procedure load (n:string);
end;
Tkandidat = object (TChelovek)
golos:real;
Procedure load (n:string;g:integer);
function Getgolos:real;

end;
procedure TChelovek.load;
begin
name:=n;
end;

procedure TKandidat.load;

begin
TChelovek.load (n);
inherited load (n);
golos:=g;
end;
function TKandidat.Getgolos:real;
var
GetG:real;
begin
GetG:=golos;
if GetG > (1/3*2000) then writeln ('Proshel') else writeln ('Ne proshel');
end;
var
k:TKandidat;
n:string; g:integer;

Begin
write ('Familia kandidata: ');readln(n);
write ('Golosa: ');readln(g);
k.load (n,g);
k.GetGolos;
readln;
End.

[Stilet]

Ну начало логичное.
Теперь так:

Vibory=object
 Kandidaty:array[<Тут сколько кандидатов>] of TKandidat
 Function Proverka:Boolean
end;

 Function Vibory.Proverka:Boolean
var i:byte;
begin
 Proverka:=false;
 for i:=0 to Колво-кандидатов do
  if Kandidaty[i].golos<>0 then begin
   Proverka:=true;
   Exit;
  end;
end;

т.е. Оформляем массив (или потом список сделай) кандидатов, Создаем есстесственно их (это сам сделаешь), даем каждому голоса.
И этой функой проверяем - Если у всех кандидатов голоса 0 то вернет False иначе True.

Смысл ясень?

[mistermakc]

спасибо большое, теперь понятно