Применение подпрограмм - вычислить значение функции (Паскаль)

[Anka1101]

Для меня это очень сложно,даже в уме не представляю как это вообще делать! Помогите составить программы в паскаль!

[rubius2008]

Оформить в виде функций
в 1. вычисление sh.
во 2. вычисление p(a).

[ByAlex]

Сообщение от Anka1101

Для меня это очень сложно,даже в уме не представляю как это вообще делать! Помогите составить программы в паскаль!

Вот держи вторую, первую делай на подобии!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function p(a:real):real;
begin
  result:=2.7*a*a - 0.9*a + 1.6;
end;

var
  res, x, z: real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  x := 12.4;
  z := -6.7;

  res := p(1) - p(x*z) + p(x-z)*p(x-z) - p(z)*p(z)*p(z);
  writeln('Result = ', res:4:4);

  readln;
  readln;
end.

[Anka1101]

Сообщение от ByAlex

Вот держи вторую, первую делай на подобии!

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function p(a:real):real;
begin
  result:=2.7*a*a - 0.9*a + 1.6;
end;

var
  res, x, z: real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  x := 12.4;
  z := -6.7;

  res := p(1) - p(x*z) + p(x-z)*p(x-z) - p(z)*p(z)*p(z);
  writeln('Result = ', res:4:4);

  readln;
  readln;
end.

Ошибку модуля выдает

[Mad_Cat]

Ошибку модуля выдает

удалить нужно

{$APPTYPE CONSOLE}
uses
  SysUtils;

1)

function sh(x:real):real;
begin
sh:=(exp(x)-exp(-x))/2;
end;
function sh_row(x:real):real;
var i:integer;
sl,s:real;
begin
sl:=x;
s:=x;
for i:=1 to 10 do
begin
sl:=sl*x*x/(2*i)/(2*i+1);
s:=s+sl;
end;
sh_row:=s;
end;
function f(x:real):real;
begin
f:=sh_row(x+0.1)+sqr(sh_row(1.5))/(sqrt(sh_row(0.5+x)*sh_row(x)));
end;
var xn,xk,dx:real;
begin
xn:=1;
xk:=2;
dx:=0.2;
while xn<=xk+dx/2 do
begin
writeln('x=',xn:3:1,' F(x)=',f(xn):6:3);
xn:=xn+dx;
end;
end.

x=1.0 F(x)= 6.493
x=1.2 F(x)= 6.726
x=1.4 F(x)= 7.284
x=1.6 F(x)= 8.162
x=1.8 F(x)= 9.382
x=2.0 F(x)=10.986

[Smitt&Wesson]

Вычислить от нуля, до бесконечечности, у компа - ресурсов не хватит.
Экспонента в степени Х, минус, экспонента в степени -Х, да и ещё делённая на два. прикалыветесь что-ли?
Вообще-то будет ноль. Как не перомножай бесконечность не минус бесконечость...

[Mad_Cat]

Экспонента в степени Х, минус, экспонента в степени -Х, да и ещё делённая на два. прикалыветесь что-ли?

Гиперболические Функции

Вообще-то будет ноль

Бесконечность - 1/бесконечность = Бесконечность
Бесконечность / 2 = Бесконечность

[ZOOO]

Помогите пожалуйста с решением!!!
Найти длину окружности l по её радиусу r
Просто в паскале вообще ничего не понимаю!!

[ZOOO]

Помогите пожалуйста!!!
составить программу, считывающую строки и накапливающую количество символов заглавных букв латинского алфавита.

[Stilet]

ZOOO

Создай свою тему. Не лезь в чужую.