Доброго времени суток,прошу помочь в решении задач 23 24 26 27. Решение задач нужно на языке PascalABC.Net Примечание:ввод значений переменных вводятся с клавиатуры!!!
Доброго времени суток,прошу помочь в решении задач 23 24 26 27.
Решение задач нужно на языке PascalABC.Net
Примечание:ввод значений переменных вводятся с клавиатуры!!!
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET 3.1 сборка 1200
var
x, y, z: real;
begin
Writeln('23');
x := ReadReal('x =');
y := ReadReal('y =');
z := Power(3, x) - 4 * x + (y - sqrt(abs(x)));
Writeln('Z = ', z);
Writeln('24');
x := ReadReal('x =');
y := ReadReal('y =');
z := x - 10 * sin(x) + abs(Power(x, 4) - Power(x, 5));
Writeln('Z = ', z);
Writeln('26');
x := ReadReal('x =');
y := ReadReal('y =');
z := x + (1 + Power(sin(x + y), 2)) / (2 + abs(x - 2 * x / (1 + x * x * y * y)));
Writeln('Z = ', z);
Writeln('27');
z := ReadReal('z =');
y := Power(cos(sin(1 / z)), 2);
Writeln('Y = ', y);
end.
Гость1.
var
x,y:integer;
res:real;
begin
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
res:=exp(ln(3)*x)-4*x+y-sqrt(abs(x));
writeln(res);
end.
2.
var
x:integer;
res:real;
begin
writeln('Введите x');
readln(x);
res:=x-10*sin(x)+abs(exp(ln(x)*4)-exp(ln(x)*5));
writeln(res);
end.
3.
var
x,y:integer;
res:real;
begin
writeln('Введите x');
readln(x);
writeln('Введите y');
readln(y);
res:=(1+sqr(sin(x+y)))/(2+abs(x-(2*x)/(1+sqr(x)*sqr(y))))+x;;
writeln(res);
end.
4.
var
z:integer;
res:real;
begin
writeln('Введите z');
readln(z);
res:=sqr(cos(sin(1/z)));
writeln(res);
end.
Не нашли ответ?
Похожие вопросы