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