здравствуйте. подскажите пожалуйста мне с задачей. я недавно начала изучать эту тем, но до сих пор путаюсь. Создать класс chisla, заданный тремя целыми числами. Выполнить следующие пункты в виде методов класса: 1)равны ли суммы их цифр, 2)посчитать количество цифр «0 » и «5 » в каждом числе.
Попробуй реализовать что-нубудь подобное, только в Create будет какая-то инициализация трёх чисел. Покажи, что конкретно непонятно...
IUnknown
10.09.2013 0:37
Это пример создания класса, причем в ObjectPascal/Delphi... В Турбо Паскале (в большинстве своем в этом разделе именно задачи на Турбо-Паскаль) это не сработает. Там Объекты, и никаких свойств...
Федосеев Павел
10.09.2013 2:05
Кстати да.
Я предполагаю, что топикстартер не придумал термины, а честно переписал условие из методички. И даже тогда, несмотря на традиции, вопрос подпадает под тематику раздела "Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи >".
Ждём реплику топикстартера. Желательно с собственными попытками решения.
Федосеев Павел
10.09.2013 2:56
Volvo, а подскажите пожалуйста, что от меня хочет JCF (JEDI форматтер кода). Я попробовал реализовать на FPC решение. Получилось примерно следующее:
{$mode Delphi} program Lab; ................. type TArray = array[1..3] of integer;
TChisla = class(TObject) private {в массиве A будут храниться целые числа} A: TArray; {проверка на равенство суммы цифр} function EqualSumma: boolean; {подсчёт количества цифр 0 и 5 в числе с номером Number} function CountDigit(Number: integer): integer; public constructor Create(AFirst, ASecond, AThird: integer); destructor Destroy; override; <---------------------------------------- указание на эту строку end;
function TChisla.EqualSumma: boolean; .................
function TChisla.CountDigit(Number: integer): integer; .................
var chisla: TChisla; begin chisla := TChisla.Create(10023, 230456, 40554); WriteLn(chisla.EqualSumma); WriteLn(chisla.CountDigit(1)); WriteLn(chisla.CountDigit(2)); WriteLn(chisla.CountDigit(3)); chisla.Free; end.
Потом пропустил это через JCF. Помимо прочего, было сообщение с указанием на строку в описании типа
Цитата
Destroy should not normally be called. You may want to use FreeAndNil(MyObj), or MyObj.Free, or MyForm.Release near Destroy at line 36 col 16
Я догадываюсь, что это warning. Но если бы вместо массива использовался TCollection - его бы потребовалось освобождать, а для этого переопределить Destroy. Как я понимаю Free и FreeAndNil (которые настоятельно рекомендуют применять) обращаются к Destroy. О чём тогда предупреждать?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.