Здравствуйте) Помогите составить программу вычисления значений функции в VBA, заданных...

Question

Здравствуйте) Помогите составить программу вычисления значений функции в VBA, заданных несколькими условиями с использованием условного оператора If.... Then.... Else... , никак не даётся(((

---

Comments

А во второй строке натуральный логарифм в кубе?

---

да

Answer 1

Uses crt;
var F:real;
    x,a:integer;
begin
     write('x:'); readln(x);
     write('a:'); readln(a);
     if (x>=0) and ((a>-1)or(a<2)) then f:=sqrt(x-sin(a))<br>     else
         if ((x>1)or(x<=3)) and (a<0) then f:=power(ln(13),3)-sqr(cos(x))<br>         else
             f:=(1+abs(x+a))/(ln(x-a));
     writeln(F);
end.

Comments

подскажите, как записать чтоб ответ вывело на ячейку B2

---

Ой, просто, пожалуйста, я не заметила, что в VBA, а не в паскале.

---

прости*

---

Ничего страшного=)

---

а в VBA сможешь? ну очень надооооо

---

Нет, не смогу, я не знаю VBA

---

спасибо и на этом=)

---

Да было бы за что...