begin Write('Введите значение аргумента x: '); Readln(x); Write('Введите значение коэффициента a: '); Readln(a); {боремся с неположительным значением под знаком корня} t := a - cos(x); if t < 0 then y := exp(x + 1.8) - exp(1 / 5 * ln(-t)) else if t = 0 then y := exp(x + 1.8) else y := exp(x + 1.8) + exp(1 / 5 * ln(t)); Writeln('Значение функции равно ', y) end.
Тестовое решение:
Введите значение аргумента x: -4.2 Введите значение коэффициента a: 1.95 Значение функции равно 1.28604638457326
1.
Решение представлено во вложении.
Язык: Pascal
x:=103; y:=1.3 => v = -2861.71;x:=120; y:=12.1 => v = -156729.59;x:=250; y:=15.7 => v = -910528.512.
Решение представлено во вложении.
Язык: Pascal
a:=-18; b:=8 => y = 99.129;a:=20; b:=12; => y = 1018.009a:=54; b:=4.8 => y = 3449.4623.
Решение представлено во вложении
Язык: Pascal
S = 0.585793650793651