Вычислите значение функций y=3*x^3+5*x для x изменяющегося в интервале от -1 до 1 с шагом 0,2 задание Постройте диаграмму для функции, используя тип диаграммы график
287
459
Ответы на вопрос:
Var a: array[1..100, 1..100] of integer; b: array[1..100]of integer; i, j, k, n, m, imax: integer; manual: boolean; begin writeln('ручной ввод (true/false)==> '); read(manual); if manual then begin writeln('размер массива n, m ==> '); read(n, m); end else begin n : = random(10) + 5; m : = random(10) + 5; end; for i : = 1 to n do begin writeln(); for j : = 1 to m do begin if manual then read(a[i, j]) else begin a[i, j] : = random(100) - 50; write(a[i, j]: 3, ' '); end; end; end; writeln(); writeln(); for j : = 1 to m do if j mod 2 = 1 then begin k : = k + 1; b[k] : = 1; for i : = 1 to n do b[k] : = b[k] * a[i, j]; write(b[k], ' '); end; writeln(); for i : = 1 to k - 1 do begin imax : = i; for j : = i + 1 to k do if b[j] > b[imax] then imax : = j; n : = b[i]; b[i] : = b[imax]; b[imax] : = n; end; for i : = 1 to k do write(b[i], ' '); end.
Популярно: Информатика
-
fara3205.04.2023 12:02
-
kristinka7511.03.2021 22:31
-
Sone4ka111104.08.2020 21:04
-
СРОЧНО333303.05.2022 15:39
-
1AnGor110.04.2021 14:35
-
DiDnteR22.08.2022 15:56
-
romasivtsov25.08.2022 23:00
-
nikitamakarov309.10.2021 18:07
-
DashaKarg322.07.2022 07:50
-
Marina2001260804.12.2022 20:08