fifamobile01

13.03.2022 15:21

Другие предметы

Есть ответ 👍

Найти ошибку в паскале. вот функция: x = 0,0.01..10 y =0.2*(x+2) +sin(x)+ (4*√(n*sin⁡(/3 вот решение в паскале. uses graphabc; var p,n: integer; //обычное описание функции function f1(x: real): real; begin f1: =(0.2*((х)+2)+(sin*(х))+(4*((sexp)*sin(x+x+x))/3) end; // короткое описание функции //function f1(x: real): =(0.2*(х+2)+(sin*(х))+(4*(sqr(sexp)*sin(3*x))/3); // begin writeln('вводи число n человек'); readln(n); setwindowtitle('графики функций '); setwindowsize(800,600); setcoordinateorigin(400,300); setpenwidth(1); {масштаб построения графика} var mx,my,y1,y: integer; textout( -400,-300,'введите масштаб по оси х и у' ); readln(mx,my); {построение оси yс разметками} line(-400,0,400,0,clblue); y: =0; while (y< 300-my) do begin y: =y+2*my; y1: =trunc(y/my); line(-5,y,+5,y); {рисуем горизонтальные отметки на оси y } textout( 10,y-5,-y1); {выводим значениее y справа от черточки} end; y: =0; while (y> -300+my) do begin y: =y-2*my; y1: =trunc(y/my); line(-5,y,+5,y); {рисуем горизонтальные отметки на оси y } textout( 10,y-5,-y1); {выводим значениее y справа от черточки} end; {построение оси x c разметками } line(0,300,0,-300,clblue); var x: =0; while (x< 400-mx) do begin x: =x+2*mx; p: =trunc(x/mx); line(x,-5,x,5); {рисуем вертикальные отметки на оси x } textout( x,10,p); {выводим значение x справа от черточки} end; x: =0; while (x> -400+my) do begin x: =x-2*mx; p: =trunc(x/mx); line(x,-5,x,5); {рисуем вертикальные отметки на оси x } textout( x,10,p); {выводим значение x справа от черточки} end; {сроим график} var x1: =1; // автоопределение типа while (x1< 800) do begin x1: =x1+1; //короткая запись x1: =x1+0.1; putpixel((trunc((-f1(x1/mx)*my),cllime); end; end.