НГПУ им Козьмы Минина(ВГИПУ)

#include <stdio.h>
#include <math.h>
double calc_Yi (double a, double x, double b);
int main(){
double d= 0.15;
double a = 2.1;
double x[]= {0.18, 0.23,0.18 * pow(10, -2), 0.14 * pow(10, -2), 0.182};
double b= 0.33 - 1.1*(x[0] - 2 * d * pow(x[0],2)+x[1]-2*d*pow(x[1],2)+x[2]-2*d*pow(x[2], 2)+x[3]-2*d*pow(x[3], 2)+x[4]-2*d*pow(x[4],2));
for (int i=0; i<5;i++) {
double Yi = calc_Yi (a,x[i],b);
printf("%d-%if\n", i+1,Yi);
}
return 0;
}
double calc_Yi (double a, double x, double b) {
if (a*pow(x, 2) <2*a+b&&a*x>0){
return a *pow(x, 3) + b * exp (fabs (2*x+a));
}else{
return cbrt((a*x+sin(b*x))/(a*x-cos (b*x)))-log(a*x);
}
}

uses Math, SysUtils;

var

a, b, sumsqrt, Z: Double;

begin

Write('a = ');

ReadLn(a) ;

Write("b = ');

ReadLn(b) ;

sumsqrt := a*a + b*b;

Z := Power(sumsgrt, 0.25) + Sin(sumsqrt) - (1 / sumsqrt);
WriteLn('Z = ', Z:0:10);

end.

Program drob;
var
x: real;
a,b,z: real;
begin
writeln('Программа на вычисление выражения Z = x/2 * sqrt(1-sqr(x)) + 1/2 * ch(x)');
repeat
z:=0;
writeln('Введите X ');writeln;
write('X = ');read(x);writeln;
if (x<=1)and(x>=(-1)) then
begin
z:=x/2*sqrt(1-sqr(x))*0.5*(exp(x)+exp(-x))/2; ;
end
else
writeln('Необходимо, чтобы Х принадлежал промежутку [-1;1]!');writeln;
until (x<=1)and(x>=(-1));
writeln('Z = ',z)
end.