Втаб­ли­це dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом классе, dat[2] — во вто­ром и т. определите, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. текст про­грам­мы на пяти язы­ках программирования. dim dat(11) as integer dim k, m as integer dat(1) = 20: dat(2) = 27 dat(3) = 19: dat(4) = 28 dat(5) = 26: dat(6) = 22 dat(7) = 24: dat(8) = 28 dat(9) = 26: dat(10) = 21 dat(11) = 27 m = 0; for k = 1 to 11 if dat(k) < 25 then m = dat(k) endif next k print m dat = [20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27] m = 0 for k in range(11): if dat[k] < 25: m = dat[k] print (m) паскаль алгоритмический язык var k, m: integer; dat: array[1..11] of integer; begin dat[1] : = 20; dat[2] : = 27; dat[3] : = 19; dat[4] : = 28; dat[5] : = 26; dat[6] : = 22; dat[7] : = 24; dat[8] : = 28; dat[9] : = 26; dat[10] : = 21; dat[11] : = 27; m : = 0; for k : = 1 to 11 do if dat[k] < 25 then begin m : = dat[k]; end; writeln(m); end. алг нач цел­таб dat[1: 11] цел k, m dat[1] : = 20 dat[2] : = 27 dat[3] : = 19 dat[4] : = 28 dat[5] : = 26 dat[6] : = 22 dat[7] : = 24 dat[8] : = 28 dat[9] : = 26 dat[10] : = 21 dat[11] : = 27 m : = 0 нц для k от 1 до 11 если dat[k] < 25 то m : = dat[k] все кц вывод m кон с++ #include using namespace std; int main() { int dat[11] = {20, 27, 19, 28, 26, 22, 24, 28, 26, 21, 27}; int m = 0; for (int k = 0; k < 11; k++) if (dat[k] < 25) { m = dat[k]; } cout < < m; return 0; }

обе програмки проверены на авс паскале. работают : )

 

program user6165_1; const n=10; var  a: array[1..n,1..n] of integer;   stosum: array[1..n] of integer; //массив для хранения сумм столбцов  i,j,nomer,sum : integer; begin  randomize;   for i: =1 to n do      for j: =1 to n do          a[i,j]: = random(100); //заполняем массив  writeln('*** alphaues is ***');   for j: =1 to n do      begin           sum: =0;             for i: =1 to n do              sum: =sum+a[i,j]; // находим сумму столбца          stosum[j]: =sum;       end;   nomer: =1;   sum: =stosum[1];   for j: =1 to n do      begin          if sum< stosum[j] then sum: =stosum[j];           nomer: =j;       end;   writeln;   for i: =1 to n do      begin           for j: =1 to n do              write(a[i,j]: 5); //выводим массив          writeln;       end;       writeln('*** столбец с максимальной суммой - ',nomer,'-й'); end.program user6165_2; const n=10; var  a: array[1..n,1..n] of integer;   stosum: array[1..n] of integer; //массив для хранения сумм столбцов  i,j,nomer,min : integer; begin  randomize;   for i: =1 to n do      for j: =1 to n do          a[i,j]: = random(100); //заполняем массив  writeln('*** alphaues is ***');   writeln;   for i: =1 to n do      begin           for j: =1 to n do              write(a[i,j]: 5); //выводим массив          writeln;       end;   for i: =1 to n do      begin           min: =a[i,1];             nomer: =1;           for j: =1 to n do              if min> a[i,j] then              begin                  min: =a[i,j];                   nomer: =j;               end;           if nomer< n then           begin              a[i,nomer+1]: =1;               writeln(i,'-я строка: мин. элемент - ',nomer,'-й. следующий заменён на 1.');           end          else              writeln(i,'-я строка: мин. элемент - ',nomer,'-й. это последний элемент в строке.');       end; end.

построить график: y = 1.5x2 + 2x - 10

с шагом 0.5область определения от -5 до 5 

1. напишем в ячейках a1 a2 a3 коэффиценты 1.5 2 и -10

2. в ячейке a3 обозначим x

в ячейке a4 обозначим y

3. ячейку b3 заполняем значением "-5", хватаем за черный маркер правой кнопкой мыши и тянем до v3, появляется меню, там выбираем пункт "прогрессия" и устанавливаем шаг 0.5

4. теперь заполним y, в клетку в4 добавляем формулу "=$a1*b3^2+$b1*b3+$c1" и тянем её за маркер до v4 

далее выделяем диапозон клеток b3: v4

5. жмем вставка, "точечная с гладкими кривыми"

готово, график построен, теперь меняем его внешний вид и оформляем таблицупример выполненной работы: