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

[Alex11223]

Эм...не понял про шаг, если х не будет изменяться, то цикл бесконечным и бессмысленным будет.

после then я напишу чему равно s при x<1

TinMan же показал как это можно организовать (не обращая внимания на функции и там где вычисление для 1<x≤10 (второй if) код из моего поста выше).
Дальше только выводить результат останется.
Ну или мб так более понятно:

while x<xk do
begin
   if x<1 then
       вычисление S для x<1;
   if (x>1) and (x<=10 ) then
       вычисление S для 1<x≤10;
   if x>10 then
       вычисление S для x>10;
  вывод s, x
  увеличение х или что там с ним надо делать
end;

[SVing]

s та вычисоим, а как максимум записать? у меня пример лежит для другой задачи так мудрено что-то

[Alex11223]

Какого максимума? В посте #12 же есть вычисление и максимума, и S для 1<x≤10

[SVing]

наверное ты хотел сказать 14-ый пост , там стоят буквы а и б , я не понимаю к чему эти буквы

[Alex11223]

Ага, там ошибся еще немного, исправил.

Ну можно так (менее красиво имхо) если не нравятся а и б)

 if (x*x) > (Sqr(2*x-5)) then
  S:= 1/(1+x*x) + (x*x )
else
   S:=1/(1+x*x)+(sqr(2*x-5));

[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
s:=2*x*x- ( sqr (x-1)) ;
if (x>1) and (x<=10) then
begin
xn:=x*x;
xk:=sqr(2*x-5);
s:=1/(1+x*x)+max(x*x,sqr(2*x-5))

[SVing]

так не прокатит? может исправишь ?

[Alex11223]

1/(1+x*x)+max(x*x,sqr(2*x-5))

В Паскале нету функции max, если сам ее не написал.

[SVing]

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

[Alex11223]

В посте #25 же есть.
И еще я не понял для чего

xn:=x*x;
xk:=sqr(2*x-5);

xn это что вообще?
И у if'ов end забыл.