Question

Составить на языке PASCAL программу вычисления значения функции (номер 6)

Answer 1

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var a,b,x,y:real;
  Writeln('Введите a,b,x,y'); Read(a,b,x,y);
  var F:=cos(Power(x,a-b))/(Abs(Power(y,4)-Power(y,5))+5.4)+n*n;
  Writeln('F=',F)
end.

Пример
n= 14
Введите a,b,x,y
1.35 0.58 6.2 3.19
F=195.99743737259

Answer 2

Pascal (Turbo/Free):

Var x,a,b,y,n:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('n = ');ReadLn(n);
WriteLn('F = ',Cos(Exp((a-b)*Ln(x)))/(Abs(sqr(y*y)-b*sqr(b*b))+5.4));
End.



Pascal ABC:

Var x,a,b,y,n:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write('a = ');ReadLn(a);
Write('b = ');ReadLn(b);
Write('n = ');ReadLn(n);
WriteLn('F = ',Cos(Power(x,a-b))/(Abs(Power(y,4)-Power(b,5))+5.4));
End.