Сначала нужно сделать табулирование заданной функции, то есть таблицу, где каждому значению x и y будет соответствовать вычисленное значение z (рисунок 1). Я просто ввел в столбец x значения от -2 до 2 с шагом 0,2 (шаг выбрал сам, потому что в условии он не задан), также ввел значения в столбец y и в столбец z ввел формулу.
В Excel есть поверхностная диаграмма. Ее можно добавить, найдя на вкладке "Вставка" в группе "Диаграмма" соответствующую кнопку. Нам нужна "Бесцветная объемная поверхностная".
Если мы добавим диаграмму по созданной таблице, результат нас не устроит. Необходимо нашу таблицу превратить в формат полигональной сетки (рисунок 2), то есть для каждого x и каждого y вычисляется z, как в таблице умножения (рисунок 3).
Теперь нужно выделить только диапазон со значениями z и добавить диаграмму. Полученная диаграмма изображена на рисунке 4.
К ответу прикреплена рабочая книга Excel с выполненным заданием.
Программа:
Pascal:
var
arr: array of integer;
N, i, j, pr, min, n1, k: integer;
begin
min := MAXINT; pr := 1;
write('N = '); readln(N);
setLength(arr, N);
for i := 0 to N - 1 do begin
arr[i] := random(-20, 30);
if abs(arr[i]) < min then min := abs(arr[i]);
if arr[i] mod 2 = 0 then inc(j);
end;
for i := 0 to N - 1 do
if arr[i] = 0 then begin
n1 := i; break;
end;
writeln(n1);
for i := n1 + 1 to N - 1 do begin
if arr[i] = 0 then inc(k);
if k = 0 then pr := pr * arr[i]
else if k = 1 then break;
end;
writeln('Массив: ', arr);
writeln('Минимальный элемент по модулю: ', min);
writeln('Количество чётных элементов: ', j);
if k = 0 then writeln('Не было сгенерировано нулей/сгенерирован 1 ноль')
else writeln('Произведение: ', pr);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Составить массив из 7 чисел, произведение чётных и сумму нечётных виде программы ну поняли короче
dim a(7)
for i=1 to 7
input a(i)
next i
z=1:s=0
for i=1 to 7
if a(i) mod 2=0 then
z=z*a(i)
else
s=s+a(i)
end if
print s,z