Составьте программу построения графика зависимости y=x*sin(x) на отрезке [-20; 20]

program parabola;

uses crt,graphabc;

const

w=800;

h=600;

x0=400;

y0=300;

k=20;

var i,x1,y1: integer;

x,y: real;

begin setwindowsize(w,h);

line(0,y0,w,y0);

line(x0,0,x0,h);

textout(x0+5,y0+5, '0');

textout(w-10,y0+5, 'x');

textout(x0+5,10,'y');

i: =k;

while i< w do

begin

line (i,y0-5,i,y0+5);

i: =i+k;

end;

i: =k;

while i< h do

begin line(x0-5,i,x0+5,i);

i: =i+k;

end;

x: =-20;

while x< =20 do

begin

y: =x*sin(x);

x1: =round(x0+k*x);

y1: =round(y0-k*y);

setpixel(x0,y1,clblue);

setpixel(x1,y0,clblue);

setpixel(x1,y1,clred);

x: =x+0.01;

end;

savewindow('grafic.bmp');

end.

долна получится такая парабола как на картинке  

в одном часе 3600 секунд. за час произойдёт 3600*10^6 операций.

чтобы выполнить их на арифмометре (не завидую тому, кто решится так делать), потребуется

3600*10^6*10 секунд = 10^7 часов или примерно 1141 год

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.