Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите (apostal_96@mail.ru)
Помогите
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
1 | Автор: zZzApostalzZz | 2013-09-16, 13:13   |  Репутация: [ + 0 ]
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 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите (apostal_96@mail.ru)
Страница 1 из 11
Поиск: