Додаток А2. Результат виконання довідкової програми компонентів Delphi

Додаток Б Програма обчислень над одновимірним масивом

Додаток Б1. Лістинг програми обчислень над одновимірним масивом

#include < iostream>

#include < conio.h>

#include < math.h>

using namespace std;

int main()

{

setlocale(LC_ALL, " Russian");

int index, max, j;

int A[10]; float B[10];

cout < < " Введіть масив A \n";

for (int i = 0; i < 10; i++){

cin > > A[i];

}

max = A[0];

for (int i = 0; i < 10; i++){

if (A[i] > max) {

max = A[i];

index = i;

}

}

cout < < " Iндек максимального числа масиву =" < < index;

cout < < " Новий масив B: \n";

B[0] = A[0] / index;

B[1] = A[1] / index;

B[2] = A[2] / index;

B[3] = A[3] / index;

B[4] = A[4] / index;

B[5] = A[5] / index;

B[6] = A[6] / index;

B[7] = A[7] / index;

B[8] = A[8] / index;

B[9] = A[9] / index;

for (int j = 0; j < 10; j++){

cout < < B[j] < < ' ';

cout < < endl;

}

float s = 0;

for (int j = 0; j < 10; j++){

if (B[j]< 0){

s = s + B[j];

}

}

cout < < " Сумма відємних елементів =" < < s < < endl;

float d = 1;

for (int j = 0; j < 7; j++){

d = d*B[j];

}

cout < < " Добуток перших семи елементів =" < < d < < endl;

getch();

return 0;

}

Додаток Б2. Результат виконання програми обчислень над одновимірним масивом

Додаток К Програма для табулювання функції