Построить таблицу зависимости xy на отрезке от a до b, с шагом h=0,1 , y=x×sin x в програме паскаль. Пожалуйста помогите, срочно!
Answers & Comments
ksleoj
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 x<a do begin x:=x+0.1; y:=x*sin(x); end; end else begin x:=a; while x<b do begin x:=x+0.1; y:=x*sin(x); end; end; writeln('x=',x); writeln('y=',y); end.
Answers & Comments
var x,y,a,b:real;
begin
read(a,b);
writeln('a=',a,' b=',b);
if a>b then
begin
x:=b;
while x<a do
begin
x:=x+0.1;
y:=x*sin(x);
end;
end else
begin
x:=a;
while x<b do
begin
x:=x+0.1;
y:=x*sin(x);
end;
end;
writeln('x=',x);
writeln('y=',y);
end.