Табулирование функции на отрезке

@andrey91183 · Регистрация: 06.11.2012

Author24 — интернет-сервис помощи студентам

sqrt(x-1)+sqrt(x+1),-2<x<=0
1/sqrt(sqr(x-1)),0<x<2
h=0.5

@CodeR · 09.02.2013, 09:09

Pascal

Const h=0.5;
      l='------------';
Var x,y,a,b:real;
Begin
    write('a,b = ');readln(a,b);
    writeln(l);
    writeln('  X  | ',' Y  |');
    writeln(l);
    x:=a;
    While x<=b do
    Begin
      if (-2<x)and(x<=0) then y:=sqrt(x-1)+sqrt(x+1) 
       else if (0<x)and(x<2) then y:=1/sqrt(sqr(x-1));
      writeln(x:5:2,'|':1,y:5:2,'|':1);
      x:=x+h;
    End;
    writeln(l);
    readln;
End.

@andrey91183 0 / 0 / 0 Регистрация: 06.11.2012 Сообщений: 10
		1
	Табулирование функции на отрезке 04.02.2013, 21:14. Показов 1059. Ответов 1 Метки нет (Все метки) sqrt(x-1)+sqrt(x+1),-2<x<=0 1/sqrt(sqr(x-1)),0<x<2 h=0.5 0

	09.02.2013, 09:09

Табулирование функции на отрезке

Решение