Найти функцию S

[SVing]

про double ничего не знаю

[Alex11223]

Какой новый способ? Ну real используй если не знаешь) это просто тип данных вещественных чисел, в данном случае не имеет значения какой использовать.

[SVing]

блин ,всё ранво ничего не понятно

[Alex11223]

А что непонятно?

Функции max и S, как в условии. Если не проходили функции\процедуры, то как-то так можно в этом месте:

else if x<=10 then
begin
   a:=x*x; 
   b:=Sqr(2*x-5);
   if a<b then max:=b else max:=a;
   S:= 1/(1+x*x) + Max 
end

где а, б, х, S, max просто обычные переменные типа real.
Остальное все также останется (без функций).

[SVing]

преподша что-то говорила про x начальное и x конечно , а не а, б

[SVing]

смотри что я пока написал
дальше не знаю


program nac
uses crt
var
x,xn,xk,max,s:real;

begin

clrscr;
writeln (' x ' );
readln (x);
writeln ('znachenie');
writeln ('|-------|') ;
writeln (' |x| s| ');
writeln (' ----------- ')
begin
wtite ( 'xn= ' );
readln ( xn );
write (' xk= ' );
readln ( xk );
x:=xn;
while x<xk do
if x<1
then
begin

[Alex11223]

а, б это для нахождение максимума тут Max(x*x,Sqr(2*x-5)) (когда 1<x≥10), можешь как угодно назвать.

[SVing]

вообщем это всё на что я способен то что написал выше

[Alex11223]

while x<xk do

ну так а дальше код вычисления функции выше, с учетом сообщения #12. Только еще надо х с каким-то шагом изменять и выводить результат.

[SVing]

шаг она говорила не надо , там все перменные написаны что надо
после them я напишу чему равно s при x<1 , потом как записать максимум? я этого не понимаю нифига, и дальше напишу чему равно s при x>10

как записать максимум ?