Построить график функции: y = а*sin(x+b) + x при а = 3, 2; b = 2, 0; шаг h и значения х (не менее 15 значений) задать самостоятельно.

program pr1; uses crt,graphabc; var y,x,a,b: real; beginclrscr; setwindowsize(400,400); line(0,200,400,200); line(200,0,200,400); setbrushcolor(clblack); a: =3.2; b: =2; x: =-30; while x< =30 do begin y: =-(a*sin(x+b)+x); circle(trunc(x*20+200),trunc(y*20+200),3); x: =x+0.1; end; end.

Const   n=20; var   a: array[1..n] of integer;   b,c: array[1..n div 2] of integer;   i: integer; begin   { инициализация }   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       a[i]: =random(99)+1; { интервал [1..99] }       write(a[i],' ');   end;   writeln;   { формирование массивов-результатов }   for i: =1 to n div 2 do   begin b[i]: =a[2*i-1]; c[i]: =a[2*i] end;   { вывод результатов }   writeln('массив, сформированный из значений с нечетными номерами');   for i: =1 to n div 2 do write(b[i]: 3); writeln;   writeln('массив, сформированный из значений с четными номерами');   for i: =1 to n div 2 do write(c[i]: 3); writeln end. тестовое решение: элементы массива 20 99 21 39 51 96 76 1 64 32 41 80 19 30 37 55 40 24 60 50 массив, сформированный из значений с нечетными номерами   20 21 51 76 64 41 19 37 40 60 массив, сформированный из значений с четными номерами   99 39 96  1 32 80 30 55 24 50

Const   n=20; var   a: array[1..n] of integer;   i,nmax,nmin,k: integer;   to_min: boolean; begin   { инициализация массива случайными значениями }   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin       a[i]: =random(99)+1; { интервал [1..99] }       write(a[i],' ');   end;   writeln;   { вот теперь массив действительно "задан" }   k: =a[1]; nmax: =0; nmin: =0; i: =1;   while (a[i]=k) and (i< =n) do inc(i);   if i< =n then begin to_min: =(a[i]< k); k: =a[i] end;   for i: =i+1 to n do   begin       if (k< a[i]) and to_min then           begin inc(nmin); to_min: =false end       else           if (k> a[i]) and (not to_min) then               begin inc(nmax); to_min: =true end;       k: =a[i]   end;   writeln('найдено локальных минимумов: ',nmin);   writeln('найдено локальных максимумов: ',nmax) end. тестовое решение: элементы массива 82 46 46 46 98 15 63 77 28 67 76 19 52 56 57 39 13 98 54 85 найдено локальных минимумов: 6 найдено локальных максимумов: 5