Question

ПРОШУ НАПИШИТЕ ПРОГРАММУ НА ПАСКАЛЕ! Разработайте программу, которая строит таблицу значений функции y=(ln x)/tg x при заданных диапазоне [a, b] изменения x и шаге h. Если значение функции в очередной точке не существует, то в соответствующей строке таблицы выведите сообщение «значение не существует».

Answer 1

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b,h):=ReadReal3('Введите границы и шаг табуляции:');
  if a>b then Swap(a,b); // если перепутали границы
  var x:=a;
  while x<=b+h/2 do begin
    Write(x:10:5);
    var y:=Ln(x)/Tan(x);
    if real.IsNaN(y) or real.IsInfinity(y) then
      Writeln('       значение не существует')
    else Writeln(y:15:5);
    x+=h
    end
end.

Примеры
Введите границы и шаг табуляции: -5 5 1
  -5.00000       значение не существует
  -4.00000       значение не существует
  -3.00000       значение не существует
  -2.00000       значение не существует
  -1.00000       значение не существует
   0.00000       значение не существует
   1.00000        0.00000
   2.00000       -0.31722
   3.00000       -7.70704
   4.00000        1.19733
   5.00000       -0.47609

Введите границы и шаг табуляции: -1 1 0.2
  -1.00000       значение не существует
  -0.80000       значение не существует
  -0.60000       значение не существует
  -0.40000       значение не существует
  -0.20000       значение не существует
   0.00000       значение не существует
   0.20000       -7.93961
   0.40000       -2.16723
   0.60000       -0.74667
   0.80000       -0.21672
   1.00000        0.00000

Answer 2

Конечно, вот пример программы на языке Паскаль, которая строит таблицу значений функции y = (ln x) / tg x для заданного диапазона [a, b] и шага h:

pascalCopy code
program TableOfValues;

var
  a, b, h, x: real;
  y: real;

begin
  writeln('Введите начальное значение a:');
  readln(a);
  
  writeln('Введите конечное значение b:');
  readln(b);
  
  writeln('Введите шаг h:');
  readln(h);
  
  writeln(' x   |   y');
  writeln('------------');
  
  x := a;
  while x <= b do
  begin
    if (ln(x) = 0) or (tan(x) = 0) then
      writeln(x:0:2, '  |  значение не существует')
    else
    begin
      y := ln(x) / tan(x);
      writeln(x:0:2, '  |  ', y:0:4);
    end;
    
    x := x + h;
  end;
  
  readln;
end.

Программа сначала запрашивает начальное значение a, конечное значение b и шаг h. Затем она итеративно вычисляет значение функции для каждой точки x в заданном диапазоне. Если значение функции не существует (например, когда ln(x) равен нулю или tg(x) равен нулю), программа выводит сообщение "значение не существует". В противном случае, она выводит значение функции с округлением до четырех знаков после запятой.