Почему выдаёт ошибку PascalABC.NET при создании объекта?

Question

[carbanak01]

Здравствуйте!
При выполнении задачи на паскале появляется ошибка:

Это задание по ООП, на всякий скину условие:
Описать объект «Турбюро» с указанием его методов: страна путешествия, длительность отдыха, дата отправления, экскурсии (включать или отказаться), стоимость экскурсий, стоимость путевки (без учета экскурсий), количество туристов, стоимость путешествия. Реализовать объявленные в объекте методы.

Вот код который я написал, следуя методичке:

type Turburo = object
    country, date:string;
   duration, ex_price, putevka, kol_tourists, total_price: integer;
   ex: boolean;
   procedure create;
end;

procedure Turburo.create;
var is_ex:integer;
begin
    write('Страна: ');
    readln(country);
    write('Длительность отдыха: ');
    readln(duration);
    write('Дата отправления: ');
    readln(date);
    write('Включать экскурсии?(0-нет, 1-да):');
    readln(is_ex);
    if is_ex = 1 then begin
                                  ex := true;
                                  write('Стоимость экскурсии: ');
                                  readln(ex_price);
                               end
                       else ex:=false;
    write('Стоимость путевки(без учёта экскурсии): ');
    readln(putevka);
    write('Кол-во туристов: ');
    readln(kol_tourists);

    total_price:= ex_price + putevka;
    write('Стоимость путешествия:', total_price);
end;

var tur:Turburo;

begin
tur.create;
end.

Судя по методичке этой ошибки не должно быть, так как синтаксис правильный, вот не пойму почему компилятор PascalABC.NET так злиться, а онлайн версия https://www.onlinegdb.com/online_pascal_compiler нет.

Answer 1

[Hemul GM]

Потому что у тебя более новый паскаль, а не турбо паскаль.
Использовать нужно слово class, а не object

type Turburo = class
     country, date:string;
   duration, ex_price, putevka, kol_tourists, total_price: integer;
   ex: boolean;
   procedure create;
end;

Comments

[carbanak01]

Такая ошибка выскочила.

[Hemul GM]

carbanak01, ну так объект сначала создать надо.

[carbanak01]

Hemul GM, не понял, так я же создал объект tur .

[Hemul GM]

carbanak01, ты не создал объект, ты пытаешься вызвать метод у не созданного объекта.
Чтоб создать объект - нужно либо написать конструктор (а у тебя как бы просто процедура, названная Create), либо использовать стандартный конструктор.

type 
   Turburo = class
    country, date:string;
   duration, ex_price, putevka, kol_tourists, total_price: integer;
   ex: boolean;
   constructor Create;
end;
...
var tur: Turburo;
...
constructor Turburo.Create;
begin

end;

begin
  tur := Turburo.Create;
end.

И типы и классы принято называть с заглавной буквой T.
TTurburo

[carbanak01]

Hemul GM, благодарю, видимо методичку дали старую, а я на новом компиляторе запускаю. =)

Answer 2

[mkone112]

Потому что у тебя встречено 'country' а ожидалось ';'

Comments

[carbanak01]

Попробуйте этот же код запустить на онлайн компиляторе https://www.onlinegdb.com/online_pascal_compiler
Там этой ошибки нет.