Объект
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
Задача
Построить описание класса, содержащего информацию о почтовом адресе организации. Предусмотреть возможность раздельного изменения составных частей адреса, создания и уничтожения объектов этого класса. В объекте использовать динамические поля.
Написать программу, демонстрирующую работу с этим классом.
Просьба памочь решить данную задачу.Программа Паскаль
Построить описание класса, содержащего информацию о почтовом адресе организации. Предусмотреть возможность раздельного изменения составных частей адреса, создания и уничтожения объектов этого класса. В объекте использовать динамические поля.
Написать программу, демонстрирующую работу с этим классом.
Просьба памочь решить данную задачу.Программа Паскаль
Скорее удалите тему..
scudo писал(а):Я интересуюсь. А почему?
Встречный вопрос - а что именно непонятно?
Как описать объект? Так это в любом самом дохлом самоучителе есть.
Ни что так не ограничивает фантазию программиста, как компилятор...
Посмотрю.Я не знаю с чего начать вообще
если есть ссылка на хороший самоучитель.Киньте
В решите задачку такие темы.
пс А что руки сломаются в любом поисковике набрать запрос
пс А что руки сломаются в любом поисковике набрать запрос
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. Раздел выбран не правильно, ибо это банальный поиск халявы и нежелание делать что-то самому - поэтому как минимум неверный раздел.
Собсно переношу только из уважения к ответившим, иначе удалил бы
персонально вам.
1. Если прочитать самую первую тему в разделе - там сказано, что тема с таким названием будет удалена сразу - учитесь задавать вопросы правильно.
2. Раздел выбран не правильно, ибо это банальный поиск халявы и нежелание делать что-то самому - поэтому как минимум неверный раздел.
Собсно переношу только из уважения к ответившим, иначе удалил бы
