Question

Паскаль.Вычислить значение функции(задание во вложении).Нужно задать интервал без цикла,с помощью метки или еще как-то,а как это сделать не знаю,помогите пожалуйста
program lab3;
var x,y:real;
begin
x:=0.1;
while x<=1 do
begin
writeln('vvedite x');
readln(y);
if 1.5*x<1 then y:=1.5*x-ln(1.5*x)/ln(10)
else if 1.5*x>1 then y:=1.5*x+ln(1.5*x)/ln(10)
else y:=1;
writeln('x=',x:0:1,'y=',y:5:3);
x:=x+0.1;
end;
end.

Answer 1

Исходная программа была совершенно безумной, пришлось поправить.

program lab3;
label
  loop,fin;
var
  x,y:real;
begin
  writeln('vvedite x'); readln(x);
loop:
  if x>1 then goto fin;
  if 1.5*x<1 then y:=1.5*x-ln(1.5*x)/ln(10)
  else
    if 1.5*x>1 then y:=1.5*x+ln(1.5*x)/ln(10)
    else y:=1;
  writeln('x=',x:0:1,', y=',y:5:3);
  x:=x+0.1;
  goto loop;
fin:
end.