Построить таблицу зависимости xy ** отрезке от a до b, с шагом h=0,1 , y=x×sin x в...

Question

Построить таблицу зависимости xy на отрезке от a до b, с шагом h=0,1 , y=x×sin x в програме паскаль. Пожалуйста помогите, срочно!

Answer 1

Program nanomachines;
var x,y,a,b:real;
begin
read(a,b);
writeln('a=',a,' b=',b);
if a>b then
begin
x:=b;
while xbegin
x:=x+0.1;
y:=x*sin(x);
end;
end else
begin
x:=a;
while xbegin
x:=x+0.1;
y:=x*sin(x);
end;
end;
writeln('x=',x);
writeln('y=',y);
end.