Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [Pascal]Составить таблицу значений функций


Автор: MaximV 8.2.2012, 13:08
Помогите решить плиз )))))))))
   Составить таблицу значений функций
    {³√(1+х²)⁵     -5<=x<=-3
у={ln(1+х²)        -3<x<=0
    {sin²x             x>0

x принадлежит [-5,5] с шагом 1,h=0,5

Автор: darkart 8.2.2012, 14:02
Цитата(MaximV @  8.2.2012,  13:08 Найти цитируемый пост)
x принадлежит [-5,5] с шагом 1,h=0,5 

К чему h - не понял...
Код

program FuncTable;
const
  MIN          = -5;
  FIRST_LIMIT  = -3;
  SECOND_LIMIT = 0;
  MAX          = 5;
  STEP         = 1;
var
  x, y : real;
begin
  x := MIN;
  while( x <= MAX ) do
  begin
    if ( x >= MIN ) and ( x <= FIRST_LIMIT ) then
    begin
      y := exp( ( 5 / 3 ) * ln( ( 1 + sqr( x ) ) ) );
    end
    else if ( x > FIRST_LIMIT ) and ( x <= SECOND_LIMIT ) then
    begin
      y := ln( 1 + sqr( x ) );
    end
    else if x > SECOND_LIMIT then
    begin
      y := sqr( sin( x ) );
    end;
    writeln( 'x = ', x : 4 : 2, #9'y = ', y : 4 : 2 );
    x := x + step;
  end;
  readln;
end.



Автор: MaximV 8.2.2012, 14:07
большое спасибо. h это препод припесал

Автор: darkart 8.2.2012, 14:26
Нашел ошибку, поправил, обновитесь.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)