Модератор: Модераторы
tuzik87@inbox.ru писал(а):Выложил на свой сайт новую редакцию книги.
Введение
Данная книга представляет собой краткий справочник, содержащий
необходимые сведения, для того чтобы освоить один из вариантов языка
Паскаль
repeat
оператор1;
…
операторN;
until условие;
repeat
оператор1;
…
операторN;
until условие;
tuzik87@inbox.ru писал(а):В плане расширенных записей вы ошибатесь. Конструкторы там запрещены. Об этом прямо говорит официальная документация
{$mode objfpc}
{$modeswitch advancedrecords}
program primer;
Type
TMyRecord = record
class var
r: Integer;
class constructor Init;
end;
class constructor TMyRecord.Init;
Begin
r := 4;
End;
Var
mr: TMyRecord;
Begin
WriteLn(mr.r);
End.
{$mode objfpc}
{$modeswitch advancedrecords}
program primer;
Type
TMyRecord = record
r: Integer;
constructor Init(d: integer);
end;
constructor TMyRecord.Init(d:integer);
Begin
r := d;
End;
Var
mr: TMyRecord;
Begin
WriteLn(mr.r);
mr.Init(6);
WriteLn(mr.r);
End.
iskander писал(а):Введение
Данная книга представляет собой краткий справочник, содержащий
необходимые сведения, для того чтобы освоить один из вариантов языка
Паскаль
Что бы это значило?
Язык Паскаль придумал швейцарский ученый Никлаус Вирт в 1968 году.
Своему названию язык обязан французскому математику девятнадцатого века
Блезу Паскалю.
type
TMyRec = record
a,
b: Integer;
constructor Create(aA, aB: Integer);
end;
constructor TMyRec.Create(aA, aB: Integer);
begin
a := aA;
b := aB;
end;
...
r := TMyRec.Create(1, 2);
WriteLn(r.a, ' ', r.b); //1 2
r.Create(11, 12);
WriteLn(r.a, ' ', r.b); //11 12
...
iskander писал(а):Полагаю вместо слова "придумал" лучше использовать "разработал"...
Вернуться в Обучение Free Pascal
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3