Составьте пожалуйста две программы ** языке Pascal

Question

Составьте пожалуйста две программы на языке Pascal

---

Answer 1

PascalABC.NET 3.3

1.
var c,d,x,y: real;
begin
c:=10; d:=-9;
readln(x);
y:=tan(x)*log10(abs(d+x))/(sqrt(c*x)+d);
writeln('y = ',y:7:5);
end.

Пример:
2.2
y = 0.26539

2.
var c,d,x,y: real;
begin
c:=5; d:=6;
readln(x);
y:=sqrt(sqr(x*c)+d)/(power(c,0.16)-log10(abs(d*x)));
writeln('y = ',y:7:5);
end.

Пример:
-4
y = -232.92427

Comments

У вас, по-моему ошибка. (power(c,0.16), там не 0.16 а 0.1*d

---

Может быть. Плохо видно.

Answer 2

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

1)
begin
  var (c,d,x):=ReadReal3('Введите c,d,x-> ');
  Writeln( 'y= ',(sin(x)/cos(x))*(ln(abs(d+x))/(sqrt(c*x)+d)):0:3);
end.

2)
begin
  var (c,d,x):=ReadReal3('Введите c,d,x-> ');
  Writeln( 'y= ',sqrt(sqr(x*c)+d)/(power(c,0.1*d)-ln(abs(d*x))):0:3);
end.