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.

Answer 2

Программа на Pascal ABC:

program TableOfValues;

var a, b, h, x: real;

function f(x: real): real; begin if (ln(x) / tan(x)) <> (ln(x) / tan(x)) then begin writeln('Значение не существует'); end else begin f := (ln(x) / tan(x)); end; end;

begin write('Введите начало диапазона a: '); readln(a); write('Введите конец диапазона b: '); readln(b); write('Введите шаг h: '); readln(h);

writeln('x | y'); x := a; while x <= b do begin writeln(x:0:2, ' | ', f(x):0:2); x := x + h; end; end.