Создать и заполнить таблицу продаж, показанную на рисунке. A B C D E 1 Продажа автомобилей ВАЗ 2 Модель Квартал 1 Квартал 2 Квартал 3 Квартал 4 3 ВАЗ 2101 3130 3020 2910 2800 4 ВАЗ 2102 2480 2100 1720 1340 5 ВАЗ 2103 1760 1760 1760 1760 6 ВАЗ 2104 1040 1040 1040 1040 7 ВАЗ 2105 320 320 320 320 8 ВАЗ 2106 4200 4150 4100 4050 9 ВАЗ 2107 6215 6150 6085 6020 10 ВАЗ 2108 8230 8150 8070 7990 11 ВАЗ 2109 10245 10150 10055 9960 12 ВАЗ 2110 12260 12150 12040 11930 13 ВАЗ 2111 14275 14150 14025 13900 Алгоритм выполнения задания. Записать исходные значения таблицы, указанные на рисунке. Заполнить графу Модель значениями ВАЗ2101÷2111, используя операцию Автозаполнение. Построить диаграмму по всем продажам всех автомобилей, для этого:Выделить всю таблицу (диапазоеА1:Е13).
Щёлкнуть Кнопку Мастер диаграмм на панели инструментов Стандартная или выполнить команду Вставка/Диаграмма.
В диалоговом окне Тип диаграммы выбрать Тип Гистограммы и Вид 1, щёлкнуть кнопку Далее.
В диалоговом окне Мастер Диаграмм: Источник данных диаграммы посмотреть на образец диаграммы, щёлкнуть кнопку Далее.
В диалоговом окне Мастер Диаграмм: Параметры диаграммы ввести в поле Название диаграммы текст Продажа автомобилей, щёлкнуть кнопку Далее.
В диалоговом окне Мастер Диаграмм: Размещение диаграммы установить переключатель «отдельном», чтобы получить диаграмму большего размера на отдельном листе, щёлкнуть кнопку Готово.
Изменить фон диаграммы:
4.1 Щёлкнуть правой кнопкой мыши по серому фону диаграммы (не попадая на сетку линий и на другие объекты диаграммы).
4.2 В появившемся контекстном меню выбрать пункт Формат области построения.
4.3 В диалоговом окне Формат области построения выбрать цвет фона, например, бледно-голубой, щёлкнув по соответствующему образцу цвета.
4.4 Щёлкнуть на кнопке заливки.
4.5 В диалоговом окне Заливка установить переключатель «два цвета», выбрать из списка Цвет2 бледно-жёлтый цвет, проверить установку Типа штриховки «горизонтальная», щёлкнуть ОК, ОК.
Повторить пункты 4.1-4.5, выбирая другие сочетания цветов и заливки.
Отформатировать Легенду диаграммы (надписи с пояснениями).
Щёлкнуть левой кнопкой мыши по области Легенды (внутри прямоугольника с надписями), на её рамке появятся маркеры выделения.
С нажатой левой кнопкой передвинуть область Легенды на свободное место на фоне диаграммы.
Увеличить размер шрифта Легенды, для этого:
Щёлкнуть правой кнопкой мыши внутри области Легенды.
Выбрать в контекстном меню пункт Формат легенды.
На вкладке Шрифт выбрать размер шрифта 16, на вкладке Вид выбрать желаемый цвет фона Легенды, ОК.
Увеличить размер области Легенды, для этого подвести указатель мыши к маркерам выделения области Легенды, указатель примет вид ↔ двунаправленной стрелки, с нажатой левой кнопкой раздвинуть область.
Увеличить размер шрифта и фон заголовка Продажа автомобилей.
Добавить подписи осей диаграммы.
Щёлкнуть правой кнопкой мыши по фону диаграммы, выбрать пункт Параметры диаграммы, вкладку Заголовки.
Щёлкнуть левой кнопкой мыши в поле Ось Х (категорий), набрать Тип автомобилей.
Щёлкнуть левой кнопкой мыши в поле Ось Y (значений), набрать Количество, шт.
Увеличить размер шрифта подписей.
#include <iostream>
using namespace std;
int main()
{
int N;
int i1=0,i2=0;
cin>>N;
for(int i=0;i<N;i++)
{
int a = rand()%11-5;
if(a<0)
i1++;
if(a>0)
i2++;
}
cout<<">0 - "<<i2<<endl<<"<0 - "<<i1<<endl<<"!=0 - "<<i1+i2<<endl;
system("PAUSE");
}
P.S. Задачу можно решить не только через Turbo Pascal.
TurboPascal(может не очень верно)
var
a,n, i1, i2, i: integer;
begin
n := 42;
for i:=1 to n do begin
a:=random(11)-5;
if a > 0 then
i1 := i1 + 1;
if a < 0 then
i2 := i2 + 1;
end;
writeln("> 0-", i1);
writeln("< 0-", i2);
writeln("<>0-", i1+i2);
end.
Нуль считаем особым числом ни положительным ни отрицательным.
Program Amount;
Uses crt;
var i,n,otr,pol,nz,v:integer;
begin
clrscr;
write('Input n=');
readln(n);
otr:=0;nz:=0;pol:=0;
randomize;
for i:=1 to n do
begin
v:=random(10)-5;
write(v);write(' ');
if (v>0) then pol:=pol+1
else if (v<0) then otr:=otr+1;
end;
nz:=otr+pol;
writeln;
writeln('Amount of positive numbers:',pol); {Кол-во полжительных чисел}
writeln('Amount of negative numbers:',otr); {Кол-во отрицательных чисел}
writeln('Amount of non-zero numbers:',nz); {Кол-во ненулевых чисел}
readkey;
end.