[drome]

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

Maksimk2@yandex.ru

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

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

[drome]

вот по лучше

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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]

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