[drome]

Люди добрые , помогите пожалуйста , не могу решить..
Первое задание вроде написал код , а зупускаться не хочет , второе написал код , делфи ругается на арккос
Выкладываю сами задания , буду очень признателен тому , кто поможет...

Maksimk2@yandex.ru

[Страдалецъ]

Выложите картинку в лучшем разрешении, половину формул не прочитать, а на ArcCos() Дельфи ругается потому-что не подключили юнит Math.

[drome]

вот по лучше

[Страдалецъ]

Уже лучше, но степени все-же плохо видно. Вот вам для 1.1:

Код:

program Project18;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

Const
  D = 1.2;
  B = 2.35;
  C = 1.3;
  I = 2;
  K = -3;
  X = 0.75;
Var Y: Single;
begin
 try
 Y := Power(D * X  - Power(Abs(C - B) / X, 1/2), 2) + 1.2 * Tan(i) - Power(10, 3) * Power(C - B, 2)/(D * X) + Power(Cos(K * X), 1/3);
 except
  on E:Exception
  do WriteLn(E.Message);
 end;
 WriteLn(Y:10:3);
 ReadLn;
end.

НО! Возникает ошибка при вычислении. Это уж сами разбирайтесь, что приводит к возникновению ошибки.

[drome]

Большое спасибо !