Доброго времени суток,прошу помочь в решении задач 23 24 26 27. Решение задач нужно **...

Question

Доброго времени суток,прошу помочь в решении задач 23 24 26 27.
Решение задач нужно на языке PascalABC.Net
Примечание:ввод значений переменных вводятся с клавиатуры!!!

---

Comments

А что нужно сделать то? Просто произвести расчет по данным формулам? Это можно сделать и в одной программе, если так.

Answer 1

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.

Comments

в паскале авс есть функция power

---

да и вообще весь стиль написания не соответствует PascalABC.Net

---

почему вводимые данные только целые?

---

Целые - потому что не сказано обратное. Стиль к языку не привязывается. Мое решение более универсально.

---

но куда ьене красиво и понятно

Answer 2

//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.