M=sin(x*pi)
Q=sqrt(x+3)/7*sqr(M)
T=корень кубический|sqr(x)+sqr(M)|/x
S=система выражений из 1.(a-1)*exp(x),если SQR Q>T
2. Ln|Q*T|, если sqr Q<T
3.tg sqrx, если sqr Q=T
|
|
|
|
var
x, a, M, Q, T, S: real;
begin
writeln('Введите параметры x и a:');
write(' x = ');
readln(x);
write(' a = ');
readln(a);
{ Вычисляем параметры: }
M := sin(pi * x);
if (x >= -3)and(M <> 0) then Q := sqrt(x + 3) / (7 * sqr(M))
else begin write('Ошибка ввода!');exit end;
if x <> 0 then T := power(abs(sqr(x) + sqr(M)), 1 / 3) / x
else begin write('Ошибка ввода!');exit end;
{ Вычисляем результат в зависимости от параметров: }
if sqr(Q) > T then S := (a - 1) * exp(x)
else
if (sqr(Q) < T) then
if (Q <> 0)and(T <> 0) then S := ln(abs(Q * T))
else begin write('Логарифм 0 не существует!'); exit end
else S := tan(sqr(x));
writeln;
write('Результат: S = ', S);
end.
Очень непонятно написано условие задачи, поэтому я решил задачу про вычисление значения функции S в зависимости от параметров
progmatem.ru
№ 2 | Автор: vasiliy |
2013-09-16, 20:24 | Изменено: vasiliy - Пн, 2013-09-16, 20:25
|
Репутация: [ + 0 ]
|
|
|
|
