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