Здравствуйте) Помогите составить программу вычисления значений функции в VBA, заданных несколькими условиями с использованием условного
10-11 класс
|
оператора If.... Then.... Else... , никак не даётся(((
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.
А во второй строке натуральный логарифм в кубе?
Другие вопросы из категории
результат выполнения программы:
var
i, sum: integer;
2) условный оператор
3)цикл с предусловием
т/c), при которой такая передача возможна. Пояснение. 2.На скольких дискетах емкостью 1440Кбайт можно разместить содержимое жесткого диска объемом 1 Гбайт??
Читайте также
использованием условного оператора If.... Then.... Else... , никак не даётся(((
Составить программу вычисления значений функции F(x) на отрезке [а; b] с шагом h.
Результат представить в виде таблицы, первый столбец которой — значения
аргумента, второй — соответствующие значения функции: "F(x) = 1/2 ctg x/4+4"
результата введите ограничение на количество знаков после запятой. Примечание. В Паскале используются стандартные функции: SIN(X) - синус Х (аргумент задается в радианах); COS(X) - косинус Х (аргумент задается в радианах); Для подсчета угла в радианах используйте формулу: угол в радианах = (угол в градусах)*/180. Результат представьте в виде: Программа вычисления значений тригонометрических функций x° Sin(x) Cos(x) Tg(x) 1 2 3 .. 45
аргумента, вто¬рой — соответствующие значения функции: F(x)=xcos(1\x)+2 Решить нужно в паскаль.
столбец которой - значения аргумента, второй - соответствующие значения функции.
F(x) = · х.