Программа вкратце. Если посещал уроки то сможешь ее написать чтоб работала. В условии задачи ошибка, наверное вместо - написал плюс. y = sqrt(х+5). если x>0. пусть здесь будет так: у= sqrt(5-х). если x<0
Program radical; var x,y:integer; Begin readln(x); if ((x+5) >= 0) and ((5-х) >=0)) then begin { проверка чтобы не-было меньше нуля } if (x>0) then y = sqrt(x+5); else if (x<0) then y = sqrt(5-x); writeln('результат=', y);
end else writeln("нельзя извлечь корень из отрицательного числа");
var
k,h:integer;
p,s,x,eps,n,p1:real;
begin
x:=10;
while (x<0) or (1<x) do begin {Условие ввода 0>x>1}
write('Введите X = '); readln(x);
end;
eps:=1e-@; //В место @ нужно ввести погрешность в положительном числовом виде (вычислить до @-го знака после запятой)
p:=x;
n:=2;
p1:=1;
h:=1;
while abs(p)>eps do {Условие выхода: очередной член ряда по модулю меньше eps}
begin
writeln('[Отладка] ',eps,' ',p,' ',s,' ',n); //отладка
for var i:=0 to 1 do begin
k:=k+1;
p1:=p1*k;
end;
h:=h*-1;
p:=h*(power(2*x,n))/p1; {Вычисление очередного члена ряда}
s:=s+p;
n:=n+2;
end;
writeln('cos(2x-1) = ', s);
end.