Здравствуйте) Помогите составитьЗдравствуйте) Помогите составить программу вычисления значений функции в VBA, заданных несколькими условиями с
10-11 класс
|
использованием условного оператора If.... Then.... Else... , никак не даётся(((
Скорее просто не хотите, что бы давалось.
uses crt;
var x,a,f:real;
begin
read(x);
if (x>=0) and (a>-1) and (a<2) then
f:=sqrt(x-sin(a))
else if (x>1) and (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:6:3);
end.
Другие вопросы из категории
write ( 2*(n mod 5 + 3) );
Дано 20 чисел. Посчитать количество чисел равных 0.
Очень нужно! и срочно...
Читайте также
оператора 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) = · х.