Задание 1.
В электронных таблицах построить на листе с данными линейчатую диаграмму отобразить уровень продажи процессоров фирмы Intel за первое полугодие 2013 года.
Количество процессоров проданных фирмой Computer LTD (1 полугодие 2013 года)
Январь Февраль Март Апрель Май Июнь
Intel Celeron 78 98 102 120 100 97
Intel Core 110 150 140 148 117 123
Intel Xeon 75 83 98 104 80 82
Intel Pentium 42 40 46 54 32 30
Задание 2.
1. Открыть Лист 2 рабочей книги MS Excel.
2. Внести данные в таблицу.
3. По данным столбцов Источник информации и Названия городов построить гистограмму.
4. По данным столбца Итоги построить круговую диаграмму.
Источник информации Москва С.-Петербург Белгород Итоги
(ср.знач.)
Справочники 16 10 8 11,33
Советы знакомых 56 48 75 59,67
Телевидение 60 45 50 51,67
Радио 20 29 12 20,33
Газеты 29 23 26 26
Реклама 5 10 10 8,33
Объявления 4 6 5 5
Советы продавца 23 18 20 20,33
Проанализировать полученные диаграммы и ответить на следующие во внизу листа:
• Укажите три источника информации, которые используют большинство жителей этих городов;
• Укажите два источника информации, которыми пользуются меньше всего жители всех трех городов.
#include <iomanip>
int main()
{
using namespace std;
const int N = 4;
const int M = 4;
int Y[N][M];
//как-нибудь заполняем матрицу
for (int i = 0; i < N; ++i)
for (int j = 0; j < M; ++j)
Y[i][j] = (i + 1) * (j + 1);
//выведем её на экран
for (int i = 0; i < N; ++i)
{
for (int j = 0; j < M; ++j)
cout << setw(3) << Y[i][j];
cout << endl;
}
//находим сумму элементов побочной диагонали
int S = 0;
for (int i = 0; i < N; ++i)
for (int j = 0; j < M; ++j)
if (j == M - 1 - i)
S = S + Y[i][j];
cout << "Sum of adverse diagonal of array: " << S << endl;
//находим сумму всех элементов матрицы
int Sum = 0;
for (int i = 0; i < N; ++i)
for (int j = 0; j < M; ++j)
Sum = Sum + Y[i][j];
cout << "Sum of all elements of array: " << Sum << endl;
return 0;
}
var
c, a: array[1..20] of integer;
i: integer;
begin
write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 1 to 20 do begin
a[i] := c[20 - i + 1];
write(a[i], ' ');
end;
end.
ИЛИ Программа не использующая два массива, а просто переворачивающая первый
var
c: array[1..20] of integer;
i: integer;
begin write('Первый массив ');
for i := 1 to 20 do begin
c[i] := i * (-5);
write(c[i], ' ');
end;
writeln;
write('Преобразованный массив ');
for i := 20 downto 1 do write(c[i], ' ');
end.
Обе программы работают!