Вывести на экран значения Х и функции У(Х)=sqrt(x-2)/(x+2) в виде таблицы

[morsekkk]

текст задачи:
Вывести на экран значения Х и функции У(Х)=sqrt(x-2)/(x+2) в виде таблицы для каждого значения Х. Х меняется на интервале от Х1 до Х2 с шагом h. Значения Х1, Х2 и h вводятся с клавиатуры после запуска программы.

напишите код пожалуйста, а то бообще никак..

[Drazd]

Какой язык программирования?

На СИ:

#include <iostream.h>
#include <math.h>

void main()
{
double X1, X2, k;
cout << "Введите X1: "; cin >> X1;
cout << "Введите X2: "; cin >> X1;
cout << "Введите k: "; cin >> k;
cout << "X\tF(X)\n";
for (double X = X1; X<=X2; X+=k) cout << X << '\t' << sqrt(x-2)/(x+2) << endl;


}

[Slam893]

паскаль нужен

[BDA]

program demo; 

var
  xn, xk, h, x: real; 

begin
  repeat 
    write('Vvedite nachalo i konec intervala xn,xk, xk>xn: '); 
    readln(xn, xk); 
  until (xk > xn); 
  repeat 
    write('vvedite shag tabulacii h>0 e<', xk - xn:0:1, ' h= '); 
    readln(h); 
  until(h > 0) and (h < xk - xn); 
  writeln('Tabulirovanie funkcii y=sqrt(x-2)/(x+2)'); 
  writeln('Na intervale [', xn:0:1, ';', xk:0:1, '] s shagom ', h:0:1); 
  writeln('--------------------'); 
  writeln('|   x    |    y    |'); 
  writeln('--------------------'); 
  x := xn; 
  while x <= xk + h / 2 do 
  begin
    if x < 2 then
      writeln('|', x:7:1, ' |', 'Not ext':8, ' |')
    else
      writeln('|', x:7:1, ' |', sqrt(x - 2) / (x + 2):8:4, ' |'); 
    x := x + h; 
  end; 
  writeln('--------------------'); 
end.

[Slam893]

Последний вывод не работает..

[BDA]

Я забыл readln.

var
  xn, xk, h, x: real; 

begin
  repeat 
    write('Vvedite nachalo i konec intervala xn,xk, xk>xn: '); 
    readln(xn, xk); 
  until (xk > xn); 
  repeat 
    write('vvedite shag tabulacii h>0 e<', xk - xn:0:1, ' h= '); 
    readln(h); 
  until(h > 0) and (h < xk - xn); 
  writeln('Tabulirovanie funkcii y=sqrt(x-2)/(x+2)'); 
  writeln('Na intervale [', xn:0:1, ';', xk:0:1, '] s shagom ', h:0:1); 
  writeln('--------------------'); 
  writeln('|   x    |    y    |'); 
  writeln('--------------------'); 
  x := xn; 
  while x <= xk + h / 2 do 
  begin
    if x < 2 then
      writeln('|', x:7:1, ' |', 'Not ext':8, ' |')
    else
      writeln('|', x:7:1, ' |', sqrt(x - 2) / (x + 2):8:4, ' |'); 
    x := x + h; 
  end; 
  writeln('--------------------'); 
  readln;
end.