Модератор: Модераторы
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 писал(а):Полагаю вместо слова "придумал" лучше использовать "разработал"...
 ), а вот в 1972 году уже подошёл тот самый всамоделешный Паскаль, потому что Вирт как раз в этом году закончил его документацию и выложил её на всеобщее обозрение.
 ), а вот в 1972 году уже подошёл тот самый всамоделешный Паскаль, потому что Вирт как раз в этом году закончил его документацию и выложил её на всеобщее обозрение. 
Вернуться в Обучение Free Pascal
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1