Question

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

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))
     else
         if ((x>1)or(x<=3)) and (a<0) then f:=power(ln(13),3)-sqr(cos(x))
         else
             f:=(1+abs(x+a))/(ln(x-a));
     writeln(F);
end.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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