Перевод кода с PascalABC в код Turbo Pascal

Формулировка задачи:

Прошу помочь в переводе кода с PascalABC в код Turbo Pascal.Заранее благодарю за помощь.

// PARENT CLASS
type
  fclass = class
  public
  y,c,k,z:real;
  constructor create(Cin,Kin,Zin:real);
  //function count(): real;
  end;
//______constructor
constructor fclass.create(Cin, Kin, Zin: real);
begin
  c := Cin;
  k := Kin;
  z := Zin;  
  y := Cin - (Kin * Zin);
end;
 
// 1ST SON CLASS
type
  impfclass1 = class(fclass)
  public 
    y1, a: real;
    constructor create(father: fclass; Ain: real);
  end;
//_____constructor
constructor impfclass1.create(father: fclass; Ain: real);
begin
  c := father.c;
  k := father.k;
  z := father.z;  
  y := father.y;
  y1 := y - Ain * cos(z);
end;
 
// 2ND SON CLASS
type
  impfclass2 = class(fclass)
  public 
    y2, b: real;
    constructor create(father: fclass; Bin: real);
4
  end;
//_____constructor
constructor impfclass2.create(father: fclass; Bin: real);
begin
  c := father.c;
  k := father.k;
  z := father.z;  
  y := father.y;
  y2 := y - Bin * (1 - (1 / exp(z)));
end;
 
var
  parent: fclass;
  son1: impfclass1;
  son2: impfclass2;
 
var
  c, k, z, a, b: real;
 
begin

  writeln('Ввести C, K для родителя');
  read(c, k);
  
  parent := new fclass(c, k, z);
  
  write('Ввести А для подкласса 1:: ');
  read(a);
  
  son1 := new impfclass1(parent, a);
  
  write('Ввести B для подкласса 2:: ');
  read(b);
  
  son2 := new impfclass2(parent, b);
  
  while(parent .z <= 20) do 
  begin
    son1 := new impfclass1(parent, a);
    son2 := new impfclass2(parent, b);
    
    writeln('Y1 ', son1.y1:8:4);
    writeln('Y2 ', son2.y2:8:4);
5
    writeln();
    
    parent.z += 0.5;
  end;
  
end.

Решение задачи: «Перевод кода с PascalABC в код Turbo Pascal»

Листинг программы

uses crt;
{ PARENT CLASS}
type
  fclass = object
  public
  y,c,k,z:real;
  constructor create(Cin,Kin,Zin:real);
  {function count(): real;}
  end;
{<br>constructor}
constructor fclass.create(Cin, Kin, Zin: real);
begin
  c := Cin;
  k := Kin;
  z := Zin;
  y := Cin - (Kin * Zin);
end;
 
{ 1ST SON CLASS}
type
  impfclass1 = object(fclass)
  public
    y1, a: real;
    constructor create(father: fclass; Ain: real);
  end;
{_____constructor}
constructor impfclass1.create(father: fclass; Ain: real);
begin
  c := father.c;
  k := father.k;
  z := father.z;
  y := father.y;
  y1 := y - Ain * cos(z);
end;
 
{ 2ND SON CLASS}
type
  impfclass2 = object(fclass)
  public
    y2, b: real;
    constructor create(father: fclass; Bin: real);
  end;
{_____constructor}
constructor impfclass2.create(father: fclass; Bin: real);
begin
  c := father.c;
  k := father.k;
  z := father.z;
  y := father.y;
  y2 := y - Bin * (1 - (1 / exp(z)));
end;
 
var
  parent: fclass;
  son1: impfclass1;
  son2: impfclass2;
  c, k, z, a, b: real;
begin
  clrscr;
 
  writeln('‚ўҐбвЁ C, K ¤«п а®¤ЁвҐ«п');
  readln(c, k);
  parent.Create(c, k, z);
 
  write('‚ўҐбвЁ Ђ ¤«п Ї®¤Є«*бб* 1:: ');
  readln(a);
  son1.Create(parent, a);
 
  write('‚ўҐбвЁ B ¤«п Ї®¤Є«*бб* 2:: ');
  readln(b);
  son2.Create(parent, b);
 
  while(parent.z <= 20) do
   begin
    son1.Create(parent, a);
    son2.Create(parent, b);
    writeln('Y1 ', son1.y1:8:4);
    writeln('Y2 ', son2.y2:8:4);
    writeln;
    parent.z:=parent.z+0.5;
  end;
 readln;
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt.
Затем определяются два класса: fclass и impfclass1, которые наследуются от одного и того же родительского класса.
В классе fclass определяются три переменные: c, k и z, а также конструктор create, который принимает три аргумента: Cin, Kin и Zin.
В конструкторе fclass вычисляется значение переменной y путем вычитания из значения Cin произведения Kin и Zin.
В классе impfclass1 определяются две переменные: y1 и a, а также конструктор create, который принимает два аргумента: отец (объект класса fclass) и Ain (реальное число).
В конструкторе impfclass1 вычисляется значение переменной y1 путем вычитания из значения y произведения cos(z) и Ain.
В классе impfclass2 определяются две переменные: y2 и b, а также конструктор create, который принимает два аргумента: отец (объект класса fclass) и Bin (реальное число).
В конструкторе impfclass2 вычисляется значение переменной y2 путем вычитания из значения y произведения (1 - (1 / exp(z))) и Bin.
В основной части программы создается объект класса parent с аргументами C, K = 3, 4 соответственно.
Создаются два объекта класса impfclass1 (son1) и impfclass2 (son2), оба на основе класса fclass, и передаются в качестве аргументов соответствующим объектам класса parent.
Выводится начальное значение переменной z для каждого из объектов.
Запускается цикл, в котором создаются новые объекты классов impfclass1 и impfclass2 на основе родительского класса fclass, выводится значение переменной y1 для сына 1 и значение переменной y2 для сына 2, затем увеличивается значение переменной z на 0.5.
После завершения цикла программа завершается.