4. написать программу, которая после введенного с клавиатуры числа (в диапа-зоне от 1 до 99), обозначающего денежную единицу, дописывает слово "копейка" в правильной форме. например, 5 копеек, 41 копейка и т.д. в vbs

Программа:

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.

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

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

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

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

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