Решить уравнение на Pascal ABC

[Paulesius]

Доброго времени суток читающим эту тему,помогите пожалуйста решить задачу. В программировании полный ноль (учусь на эколога). Данные для задания прилагаются в рисунке ниже(вариант номер 19)
Заранее огромное спасибо всем кто откликнется и поможет.

[Аватар]

А где уравнения, которые решить нужно? Вычислить выражения что-ли?

[FPaul]

19a

program Variant19a;

const
  a = 70;
  b = 2;
  m = 5.96e6;
  r = 7e3;
  y = 4.5;

  function power(a, x: double): double;
  begin
    power := exp(x * ln(a));
  end;

var
  T: double;
begin
  T := (2 * Pi / sqrt(y * m)) * (power(r, 3 / 2) / (((3 * a) / (2 * r)) + b));
  writeln(T: 8: 5);
end.

[FPaul]

19б

program Variant19b;

const
  x = ln(2);

  function power(a, x: double): double;
  begin
    power := exp(x * ln(a));
  end;

  function tg(a: double): double;
  begin
    tg := sin(a) / cos(a);
  end;

var
  a: double;
begin
  a := power(x, 1 / 3) * tg(x + 1) * (x - exp(-x));
  writeln(a: 8: 5);
end.

Но надо проверить - т.к. это для FreePascal. Может быть заменить double на real.

[Paulesius]

Сообщение от Аватар

А где уравнения, которые решить нужно? Вычислить выражения что-ли?

Да,нужно вычислить выражения, сори неправильно написал.

[Paulesius]

Fpaul спасибо,попробую,завтра напишу что из этого вышло.

[Paulesius]

Сообщение от FPaul

19б

program Variant19b;

const
  x = ln(2);

  function power(a, x: double): double;
  begin
    power := exp(x * ln(a));
  end;

  function tg(a: double): double;
  begin
    tg := sin(a) / cos(a);
  end;

var
  a: double;
begin
  a := power(x, 1 / 3) * tg(x + 1) * (x - exp(-x));
  writeln(a: 8: 5);
end.

Но надо проверить - т.к. это для FreePascal. Может быть заменить double на real.

Спасибо твой код помог, прешлось малость под ABC pascal малость переписать но сдал. так что спс