Требуеться помощь на тему: Простые объекты ! Опции

[Aspire]

Помогите кто знает !!!!!


Тема: Простые объекты.

Задача:
Описать объект, включающий заданные поля и методы. Написать программу, которая создает массив объектов и список объектов и содержит процедуры, работающие с указанными структурами.
Объект - вещественное число, записанное с точкой. Параметры - значение числа и его запись. Методы: конструктор и функция, определяющая количество цифр в целой части числа. Определить среднее значение введенных чисел и среднее количество цифр в целой части. Реализовать два варианта (с массивом и списком).

Зарание спасибо !!!

[Безумство]

по поводу перво запостеной задачи вот что пока получилось

program lab14a;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type TInt = object
                znachenie : single;
                zapis : string[30];
                constructor Init;
                function CountNumFromDot(): integer;
            end; 
      Constructor TInt.Init;
        Begin 
          readln(znachenie);
          str(znachenie:18:12,zapis);
          zapis:=trim(zapis);
        End;

      Function TInt.CountNumFromDot():integer;
        var
          pos: integer;
        Begin
          pos:=AnsiPos('.',zapis)-1;
          CountNumFromDot:=pos;
        End;


var
  ObjM : array [1..100] of TInt;
  i,summa_num, n: integer;
  summa_all: single;

BEGIN

i:=0;
summa_all:=0;
summa_num:=0;

repeat
i:=i+1;
write('Vvedite Object(vixod:1000) ');
ObjM[i].Init;
until ObjM[i].znachenie=1000;

n:=i-1;

for i:=1 to n do
  begin
  summa_all:=summa_all+ObjM[i].znachenie;
  summa_num:=summa_num+ObjM[i].CountNumFromDot;
  end;

writeln('srednee = ',(summa_all/n):12:5,'  ','srednee v celix = ', (summa_num/n):8:2);
readln;
end.

Ну хоть убейте мя компилятор Делфи 7 про стринги ничего не говорит (( может где-то включается отдельно?
и еще вычитал переключатель или как это называется
{H-} все строки считаются shortstring может быть его использовать..


и второй вариант (там просят с массивом и со списком)

program lab14b;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type TInt = object
                znachenie : single;
                zapis : string[30];
                constructor Init;
                function CountNumFromDot(): integer;
             end;
      Constructor TInt.Init;
        Begin
          readln(znachenie);
          str(znachenie:18:12,zapis);
          zapis:=trim(zapis);
        End;

      Function TInt.CountNumFromDot():integer;
        var
          pos: integer;
        Begin
          pos:=AnsiPos('.',zapis)-1;
          CountNumFromDot:=pos;
        End;

Type tpoint = ^Spisok;
     Spisok = record
         val : TInt;
         next : tpoint;
     end;

var
  fist, p, p1  : tpoint;
  summa_num, n: integer;
  summa_all: single;

BEGIN

n:=0;
summa_num:=0;
summa_all:=0;
p1:=nil;
new(fist);
fist^.next:=nil;

repeat
  new(p);
    if (fist^.next=nil) then  fist^.next:=p
                        else  p1^.next:=p;
  write('Vvedite Object(vixod:1000) ');
  p^.val.init;
  p1:=p;
until p^.val.znachenie=1000;

p:=fist^.next;
while p^.next <> nil do
  begin
  n:=n+1;
  p^.val.CountNumFromDot;
  summa_num:=summa_num+p^.val.CountNumFromDot;
  summa_all:=summa_all+p^.val.znachenie;
  p:=p^.next;
  end;

writeln('srednee = ',(summa_all/n):12:5,'  ','srednee v celix = ', (summa_num/n):8:2);
readln;
end.

[Безумство]

А зачем обнулять переменную num перед циклом? Компилятор удивился, потому и спрашивает.

Блин точно))) Спасибо)...
Ну это перестраховка)) просто при пробеге пошагово в Watch пишет
num: Variable 'num' inaccessible here due to optimization

:-[