Question

Задача табулирования функции. В PASCAL В файл tabl.txt вывести таблицу значений для функции y=(2х+1)/(2х-1) (записано дробью)

Answer 1

var

 FD: text;

 y, step, first, last: real;

begin

 write('Введите начальное значение, конечное значение и шаг:');

 read(first, last, step);

 assign(FD, 'tabl.txt');

 rewrite(FD);

 writeln(FD, 'x':4, 'f(x)':10);

 while (first <= last) do

 begin

   if (first.Between(0.41, 0.58)) then  

     writeln(FD, first:4:2, 'infinity':10)

   else  

   begin

     y := (2 * first + 1) / (2 * first - 1);

     writeln(FD, first:4:2, y:10:4);

   end;

   first := first + step;

 end;

 close(FD);

end.

Answer 2

Для табулирования функции и вывода таблицы значений в файл в языке программирования Pascal, вы можете воспользоваться следующим кодом:

pascalCopy code
program Tabulation;

var
  x: Real;
  y: Real;
  outputFile: Text;

begin
  Assign(outputFile, 'tabl.txt');
  Rewrite(outputFile);
  
  Writeln(outputFile, 'x       |       y');
  Writeln(outputFile, '-----------------');
  
  for x := -10 to 10 do
  begin
    if x = 1/2 then
    begin
      // Обработка случая, когда знаменатель равен 0
      Writeln(outputFile, FloatToStr(x) + '       |       Неопределено');
    end
    else
    begin
      // Вычисление значения функции
      y := (2 * x + 1) / (2 * x - 1);
      Writeln(outputFile, FloatToStr(x) + '       |       ' + FloatToStr(y));
    end;
  end;
  
  Close(outputFile);
end.

Этот код создает файл "tabl.txt" и записывает в него таблицу значений функции y = (2x + 1) / (2x - 1) для x, изменяющегося от -10 до 10. Если x равен 1/2, программа обрабатывает случай, когда знаменатель равен 0 и записывает "Неопределено" в таблицу. В противном случае, она вычисляет значение функции и записывает его в файл.