Программа табулирования функции

[Юна]

Программа табулирования функции

написать программу табулирования функции на [0,10] c шагом 0.1 указать максимум и минимум функции взятые из таблицы...Используйте при выводе таблицы режим Text mode,позиционирование вывода и формирование вывода....

 

[Vladimir_S]

Уважаемая Юна!
Прежде всего, как модератор, напоминаю, что названия тем типа "Помогите!", "Помогите пожалуйста", "Help!!!", "Нужна помощь" и т.п. у нас ПОД ЗАПРЕТОМ и, в соответствии с п.2.1 Правил, темы с подобными названиями подлежат удалению.
Ладно, на первый раз прощается.
Теперь по существу. Не указано главное - на каком языке (в какой среде) должно быть выполнено задание? Turbo (Free) Pascal? Pascal ABC? Delphi? Lazarus?

 

[Юна]

Извините,не знала...в программе PascalABC

 

[Vladimir_S]

Ну тут так: могу лишь нарисовать простое табулирование функции (например, в 4 колонки, чтобы в экран влезло) с указанием максимума и минимума. К сожалению, АВС не имею, у меня Free Pascal, поэтому рюшечки типа позиционирования применить не могу. Они для разных сред сильно различаются. Устроит?

 

[Юна]

можно попробовать...

 

[Vladimir_S]

можно попробовать...

Ладно, вечером нарисую.

 

[Vladimir_S]

Ну вот, пожалуйста:

Var
 i,j:Integer;
 x,y,Xmax,Ymax,Xmin,Ymin:Real;

Function F(z:real):Real;
begin
 if z<2 then F:=z else
 if (z>=2) and (z<8) then F:=z*z+Sin(z) else
 F:=Exp(z/4)-3;
end;

Begin
 Xmax:=0;
 Ymax:=0;
 Xmin:=0;
 Ymin:=0;
 Writeln('   x     y        x     y        x     y        x     y        x     y');
 Writeln('  0.0',F(0):7:3);
 for i:=1 to 20 do
  begin
   for j:=0 to 4 do
    begin
     x:=(i+j*20)*0.1;
     y:=F(x);
     if y>Ymax then
      begin
       Xmax:=x;
       Ymax:=y;
      end;
     if y<Ymin then
      begin
       Xmin:=x;
       Ymin:=y;
      end;
     Write(x:5:1,y:7:3,'   ');
    end;
   Writeln;
  end;
 Writeln;
 Writeln('Min: Y(',Xmin:0:1,') = ',Ymin:0:3,'     Max: Y(',Xmax:0:1,') = ',Ymax:0:3);
 Readln
End.

 

[Юна]

спасибо...

 

[Юна]

Здравтсвуйте,почему ответ выходит только внизу,он должен появляться в окошечке...?

 

[Vladimir_S]

Здравтсвуйте,почему ответ выходит только внизу,он должен появляться в окошечке...?

Не очень понимаю, о чем речь, но еще раз - у меня DOS Free Pascal, то, что на картинке - у меня выводится на экран, а вот насчет всяких там окошечек и прочих рюшечек - не знаю. На АВС не программирую.