Предмет: Информатика,
автор: ryasnyansckaya
Напишите программу для паскаль 1-ого выражения.Нужно срочно!!!
Приложения:

Ответы
Автор ответа:
0
uses CRT;
Var
A,B,X,Y:real;
Begin
ClrScr;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('X = ');ReadLn(X);
Y:=-sqr(A*A)*A*x +B*Sqr(Sqr(Cos(X*X)))+B*X;
if (X+Y*Y = 0)or(X+Y*Y = 1) then Write('ZNAChENIE NE OPREDELENO')
else WriteLn(sqrt(Abs(-A*X+Y))/Ln(Abs(X+Y*Y)));
ReadKey
End.
Var
A,B,X,Y:real;
Begin
ClrScr;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('X = ');ReadLn(X);
Y:=-sqr(A*A)*A*x +B*Sqr(Sqr(Cos(X*X)))+B*X;
if (X+Y*Y = 0)or(X+Y*Y = 1) then Write('ZNAChENIE NE OPREDELENO')
else WriteLn(sqrt(Abs(-A*X+Y))/Ln(Abs(X+Y*Y)));
ReadKey
End.
Похожие вопросы
Предмет: Физика,
автор: lackonichnost
Предмет: Математика,
автор: aishasafina9
Предмет: Математика,
автор: karimzonovasahina
Предмет: Математика,
автор: zezagbetieva
Предмет: Информатика,
автор: elizabeth1990