manager9
?>

Составить массив из 7 чисел, произведение чётных и сумму нечётных виде программы ну поняли короче

Информатика

Ответы

tooltechnic
Cls
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
Алексей Ксения

Сначала нужно сделать табулирование заданной функции, то есть таблицу, где каждому значению x и y будет соответствовать вычисленное значение z (рисунок 1). Я просто ввел в столбец x значения от -2 до 2 с шагом 0,2 (шаг выбрал сам, потому что в условии он не задан), также ввел значения в столбец y и в столбец z ввел формулу.

В Excel есть поверхностная диаграмма. Ее можно добавить, найдя на вкладке "Вставка" в группе "Диаграмма" соответствующую кнопку. Нам нужна "Бесцветная объемная поверхностная".

Если мы добавим диаграмму по созданной таблице, результат нас не устроит. Необходимо нашу таблицу превратить в формат полигональной сетки (рисунок 2), то есть для каждого x и каждого y вычисляется z, как в таблице умножения (рисунок 3).

Теперь нужно выделить только диапазон со значениями z и добавить диаграмму. Полученная диаграмма изображена на рисунке 4.

К ответу прикреплена рабочая книга Excel с выполненным заданием.


Как построить тот график поверхностей в экселе?
Как построить тот график поверхностей в экселе?
Как построить тот график поверхностей в экселе?
Как построить тот график поверхностей в экселе?
egornostaeva

Программа:

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 чисел, произведение чётных и сумму нечётных виде программы ну поняли короче
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

yugraspets
membuksdk
Valentinovna
ivanandrieiev1984268
komolovda
samiramoskva
Aleksei Aleksandrovna649
Борисовна_Дмитриевич1003
Anatolii
AnvarzhonovichNadezhda1071
Михайловна-Гусева350
romolga3580
Yurevna-Anatolevna
eronch
kate1610