Объект

За вознаграждение или нахаляву (если повезёт)

Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill

Ответить
scudo
Сообщения: 40
Зарегистрирован: 02 апр 2008, 21:05

Задача
Построить описание класса, содержащего информацию о почтовом адресе организации. Предусмотреть возможность раздельного изменения составных частей адреса, создания и уничтожения объектов этого класса. В объекте использовать динамические поля.
Написать программу, демонстрирующую работу с этим классом.

Просьба памочь решить данную задачу.Программа Паскаль
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

Скорее удалите тему..
scudo
Сообщения: 40
Зарегистрирован: 02 апр 2008, 21:05

Я интересуюсь. А почему?
MOTOCoder
Сообщения: 548
Зарегистрирован: 14 янв 2008, 20:27
Откуда: Россия, Псков

scudo писал(а):Я интересуюсь. А почему?


Встречный вопрос - а что именно непонятно?
Как описать объект? Так это в любом самом дохлом самоучителе есть.
Ни что так не ограничивает фантазию программиста, как компилятор...
scudo
Сообщения: 40
Зарегистрирован: 02 апр 2008, 21:05

Посмотрю.Я не знаю с чего начать вообще
scudo
Сообщения: 40
Зарегистрирован: 02 апр 2008, 21:05

если есть ссылка на хороший самоучитель.Киньте
Аватара пользователя
Duncon
Сообщения: 2085
Зарегистрирован: 10 окт 2004, 14:11
Откуда: Питер
Контактная информация:

В решите задачку такие темы.

пс А что руки сломаются в любом поисковике набрать запрос
MOTOCoder
Сообщения: 548
Зарегистрирован: 14 янв 2008, 20:27
Откуда: Россия, Псков

scudo писал(а):Посмотрю.Я не знаю с чего начать вообще


Начать нужно с изучения ООП.

Класс-это по сути(конечно очень условно) та же запись, только с методами. Специально не буду приводить код по вашему примеру, но выглядеть это может примерно так:

[syntax='Delphi']
Type
TMyClass=object
Field1:integer;
Field2:string;
constructor Create;
destructor Destroy;
function GetField1:integer;
procedure SetField1(d:integer);
end;

constructor TMyClass.Create;
begin
Field1:=0;
Field2:='';
end;

destructor TMyClass.Destroy;
begin
writeln('Object sucessfully destroyed');
end;


function TMyClass.GetField1:integer;
begin
GetField1:=Field1;
end;

procedure TMyClass.SetField1(d:integer);
begin
Field1:=d;
end;

var
MC:^TMyClass;

begin
New(MC,Create);
MC^.SetField1(10);
writeln(MC^.GetField1);
Dispose(MC,Destroy);
readln;
end.
[/syntax]
Ни что так не ограничивает фантазию программиста, как компилятор...
Аватара пользователя
Игорь Акопян
Сообщения: 1440
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

scudo
персонально вам.
1. Если прочитать самую первую тему в разделе - там сказано, что тема с таким названием будет удалена сразу - учитесь задавать вопросы правильно.
2. Раздел выбран не правильно, ибо это банальный поиск халявы и нежелание делать что-то самому - поэтому как минимум неверный раздел.
Собсно переношу только из уважения к ответившим, иначе удалил бы
Изображение
Ответить