Question

Напишите програму на Паскаль АBC

Разработайте программу, которая строит таблицу значений функции y=(ln x)/tg x при заданных диапазоне [a, b] изменения x и шаге h. Если значение функции в очередной точке не существует, то в соответствующей строке таблицы выведите сообщение «значение не существует».

Answer 1

Program pr1;
Uses Crt;
Var
y,x,a,b,h:real;
begin
ClrScr;
write('a=');
readln(a);
write('b=');
readln(b);
write('h=');
readln(h);
x:=a;
writeln('|   x      |              y          |');
writeln('-------------------------------------');
repeat
if (sin(x)/cos(x)=0) or (x<0) then
writeln ('|   ',x:2,'   |  значение не существует |')
else
begin
y:=ln(x)/(sin(x)/cos(x)); 
writeln ('|   ',x:4,'   |         ',y:6:2,'          |');
end;
x:=x+h;
Until x>b;
writeln('-------------------------------------');
readln;
end.