Вопрос по турбо паскалю на дос боксе

Question

Вопрос по турбо паскалю на дос боксе

Петр Обломков Знаток (263), на голосовании 1 неделю назад

type
{ Объявление стека }
TStack = object
private
FData: array[1..100] of Real;
FTop: Integer;
public
constructor Init; { Инициализация }
procedure Push(Value: Real);
function Pop: Real;
function Peek: Real;
function IsEmpty: Boolean;
end;

constructor TStack.Init;
begin
FTop := 0; { Инициализация вершины стека }
end;

в конструкторе выдает ошибку Object type expected, я пробовал делать конструктор через процедуру но все равно не работает, в чем может быть дело?

Answer 1

Krab Bark Искусственный Интеллект (300663) 1 месяц назад

Может, в твоей версии Turbo Pascal нет поддержки ООП?

Петр ОбломковЗнаток (263) 1 месяц назад

конкретно этот объект дает ошибку, я делал другие, да и в самой программе их почти с десяток но больше нигде нет ошибки

Krab Bark Искусственный Интеллект (300663) Петр Обломков, так, возможно, у тебя не Turbo, а Borland Pasacal?

Петр ОбломковЗнаток (263) 1 месяц назад

хотя я вот проверил, ошибку выдают и другие объекты, но это еще более странно, я сделал скелет приложения в досе, там были объекты и всё работало, добавил пару наследников и просто новые объекты и все перестало работать

Answer 2

Жарь Птицев Гуру (3639) 1 месяц назад

объект создаешь так?

 var 
  LStack: TStack; 
 
begin 
  LStack.Init; 
  ... 
end.

Петр ОбломковЗнаток (263) 1 месяц назад

да

Жарь Птицев Гуру (3639) Петр Обломков, тогда хз, это должно работать

Answer 3

Turbo Pascal School Pak для Windows

https://soft.mydiv.net/win/download-turbo-pascal-school-pak.html