Азы delphi. Реализация класса. Задача.

[CKent]

Дорогие друзья прошу помочь мне с решением задачи с использованием ООП delphi. Текст задачи таков : задается число, определить количество нулей в числе. программу решить с реализацией класса. Это задачка для тех, для кого программирование вообще темный лес. Я очень хочу понять принцип. Спасибо откликнувшимся.

[whatever]

Это задачка для тех, для кого программирование вообще темный лес.

Темный лес и сразу ООП? И вообще, зачем использовать классы в этой задаче? Впринципе я могу предположить, как ее решить при помощи классов, но это всеравно что использовать перфоратор вместо дырокола...

Update:
Решил вспомнить... Вот с применением ООП и классов:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
type
Tnumber=class
  value:real;
  constructor create(n:real);
  function GetZeros:integer;
end;

constructor Tnumber.create(n: Real);
begin
  value:=n;
end;

function Tnumber.GetZeros;
var
  s:string;
  i:integer;
begin
  result:=0;
  s:=floattostr(value);
  for i:=1 to length(s) do
    if s[i]='0' then
      inc(result);
end;

VAR
  a:Tnumber;
begin
  randomize;
  a:=Tnumber.create(random(1000000000)/random(9999));
  writeln(a.value);
  writeln(a.GetZeros);
  a.free;//можно написать деструктор, но в данной задаче это будет перебор
  readln;
end.

Update2: А вот задача без классов:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  i,res:integer;
  s:string;
begin
  randomize;
  s:=floattostr(random(1000000000)/random(9999));
  writeln(s);
  res:=0;
  for i:=1 to length(s) do
    if s[i]='0' then
      inc(res);
  writeln(res);
  readln
end.

На мой взгляд оптимальное решение очевидно.

[CKent]

Огромное Вам спасибо =) ООП т.к. basic , c++ а так-же fortran изучались) К сожалению при изучении азов программирования был провал, или из-за моей деревянной головы, или из-за преподавания...И теперь многие вещи сложно осмыслить.( Реализация классов эт чтобы понять для чего они вообще, у нас такого рода вводное занятие. Учебная программа, ничего не поделаешь) Сам я первый раз компилятор делфи открыл недавно...Учитывая, что 2 года си не открывал) . И все-таки благодарю Вас, сейчас буду разбираться что да как.) Дальше гугл в помощь)