Вариант №1 на 5 . набрать программу. скомпилировать. сохранить. program grafik; uses graphabc; var x0, y0, x1, y1, k: integer; x, y: real; begin setwindowsize(640,400); x0: =320; y0: =200; k: =20; line(20,y0, 620,y0); line(x0,20, x0,380); setpencolor(clred); x: =-15; while x< =15 do begin y: =0.4*x+2*sin(3*x); x1: =trunc(x0+x*k); y1: =trunc(y0-y*k); circle(x1,y1,2); x: =x+0.02 end; end. на 6 . увеличьте шаг в 10 раз. скомпилируйте. сохраните. на 7 . измените промежуток на котором строится график функции на [-5, 10]. скомпилируйте. сохраните. на 8 . измените функцию на: 1) tg(x) ; 2) sin(x)+2*x. скомпилируйте. сохраните. на 9 . выведите на экран график функции только в i и iv четвертях (воспользоваться функциями из на 8 ). скомпилируйте. сохраните. на 10 . измените цвет фона, цвет графика функции, цвет координатных осей. скомпилируйте. сохраните.

Увеличьте шаг в 10 раздо x : = x + 0.02после x : = x + 0.02*10измените промежуток на котором строится график функции на [-5, 10] доx : = -15;       while x < = 15 doпослеx : = -5;       while x < = 10 do измените функцию на: 1) tg(x) ; 2) sin(x)+2*x.до y : = 0.4 * x + 2 * sin(3 * x); после 2) y : = sin(x)+2*x; после 1) y : = tan(x); выведите на экран график функции только в i и iv четвертяхдо circle(x1, y1, 2); после if x*y> =0 then circle(x1, y1, 2); измените цвет фона, цвет графика функции, цвет координатных осей//pascalabc.net версия 3.2, сборка 1389//если программа не запускается, то обновите версиюprogram grafik; uses graphabc; var      x0, y0, x1, y1, k: integer;       x, y: real; begin      setwindowsize(640, 400);       window.clear(clgold);             x0 : = 320; y0 : = 200; k : = 20;       setpencolor(clred);       line(20, y0, 620, y0);       line(x0, 20, x0, 380);             setpencolor(clgreen);       setbrushcolor(cllime);       x : = -5;       while x < = 10 do      begin              //              y : = 0.4 * x + 2 * sin(3 * x);               //              y : = sin(x)+2*x;               y : = tan(x);               x1 : = trunc(x0 + x * k);               y1 : = trunc(y0 - y * k);               if x * y > = 0 then circle(x1, y1, 2);               x : = x + 0.02      end; end.

1)

var

a: array [1..5,1..10] of integer;

i,j,p: integer;

begin

for i: =1 to 5 do 

begin

for j: =1 to 10 do

begin

a[i,j]: =random(50)+1;

write(a[i,j]: 3);

end;

writeln;

end;

writeln('меняем 1 и последнюю строки');

for j: =1 to 10 do

begin

p: =a[1,j];

a[1,j]: =a[5,j];

a[5,j]: =p;

end;

for i: =1 to 5 do 

begin

for j: =1 to 10 do

write(a[i,j]: 3);

writeln;

end;

end.

2)

var a: array [1..5, 1..10] of integer; i, j: integer; p: real;

begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.