Как сделать круговую диаграмму в паскале

Обновлено: 06.07.2024

Excel для Microsoft 365 Word для Microsoft 365 PowerPoint для Microsoft 365 Excel 2021 Word 2021 PowerPoint 2021 Excel 2019 Word 2019 PowerPoint 2019 Excel 2016 Word 2016 PowerPoint 2016 Excel 2013 Word 2013 PowerPoint 2013 Excel 2010 Word 2010 PowerPoint 2010 Excel 2007 Word 2007 PowerPoint 2007 Больше. Основные параметры

Круговые диаграммы — распространенный способ показать, какую часть от общего количества (например, годового объема продаж) составляют отдельные значения (например, квартальный объем продаж).

Выберите приложение, с которым работаете

(Либо сразу перейдите к сведениям о круговых диаграммах, пропустив описание приложений).

Примечание: Снимки экрана в этой статье относятся к Office 2016. Если вы используете более раннюю версию Office, интерфейс может немного отличаться, но действия будут теми же.

Excel

На листе выделите данные, которые будут использоваться для круговой диаграммы.

Дополнительные сведения об упорядочении данных для круговой диаграммы см. в разделе Данные для круговых диаграмм.

На вкладке Вставка нажмите кнопку Вставить круговую или кольцевую диаграмму, а затем выберите нужную диаграмму.

Щелкните диаграмму, а затем добавьте последние штрихи с помощью значков рядом с диаграммой.

Чтобы показать, скрыть или отформатировать такие элементы, как названия осей или подписи данных,щелкните элементов диаграммы .

Чтобы быстро изменить цвет или стильдиаграммы, используйте стили .

Чтобы отфильтровать или скрыть данные на диаграмме, щелкните "Фильтры диаграммы" .

PowerPoint

Выберите команду Вставка > Диаграмма > Круговая и выберите нужный тип круговой диаграммы.

Примечание: На маленьком экране кнопка Диаграмма может быть уменьшена:

В появившейся электронной таблице замените заполнители собственными данными.

По завершении закройте редактор электронных таблиц.

Щелкните диаграмму, а затем добавьте последние штрихи с помощью значков рядом с диаграммой.

Чтобы быстро изменить цвет или стильдиаграммы, используйте стили .

Чтобы отфильтровать или скрыть данные на диаграмме, щелкните "Фильтры диаграммы" .

На вкладке Вставка нажмите кнопку Диаграмма.

Примечание: На маленьком экране кнопка Диаграмма может быть уменьшена:

В появившейся электронной таблице замените заполнители собственными данными.

По завершении закройте редактор электронных таблиц.

Щелкните диаграмму, а затем добавьте последние штрихи с помощью значков рядом с диаграммой.

Чтобы быстро изменить цвет или стильдиаграммы, используйте стили .

Чтобы отфильтровать или скрыть данные на диаграмме, щелкните "Фильтры диаграммы" .

Чтобы расположить диаграмму и текст в документе, нажмите кнопку "Параметры разметки" .

Данные для круговых диаграмм

Столбец или строку электронной таблицы можно преобразовать в круговую диаграмму. Каждый сегмент диаграммы (точка данных) показывает размер или процентное отношение этого сегмента ко всей диаграмме.

Круговые диаграммы лучше всего использовать, когда:

нужно отобразить только один ряд данных;

ряд данных не содержит нулевых и отрицательных значений;

ряд данных содержит не более семи категорий — диаграмма из более чем семи сегментов может быть сложной для восприятия.

Другие типы круговых диаграмм

Помимо трехмерных круговых диаграмм, вы можете создать круг и линию круговой диаграммы. Эти диаграммы отображают меньшие значения во вторичной круговой или линейчатой диаграмме с накоплением, что упрощает их чтение. Чтобы преобразовать диаграмму в один из этих типов, щелкните ее, а затем на вкладке Работа с диаграммами | Конструктор выберите команду Изменить тип диаграммы. Когда откроется коллекция Изменение типа диаграммы, выберите нужный тип.

В этом уроке мы рассмотрели, как с помощью использования графического модуля Паскаль можно построить график функции cos(x) и показали, что это намного проще, чем та же работа, только на листочке или в тетради.

Описание разработки

Буквально на днях я подготовил новый видеоурок для проведения урока в 11 классе. В нем я попытался показать пользу, которую дает умение программировать, т.к. в уроке разбиралась конкретная математическая задача, а именно построение графиков.

Именно умение программировать дает нам огромные возможности использовать ум компьютера в своих целях.

Вам этот урок может пригодиться для демонстрации того, насколько программирование может быть полезным и как просто с его помощью решаются математические задачи. Использовать его можно как на уроке, так и на факультативе по информатике.

Введите пароль подписчика в форму чуть ниже и нажмите кнопку "получить доступ". После этого появятся ссылки для скачивания.

P.S. Не забудьте оставить свои впечатления в комментариях. Спасибо за внимание.

-75%

Для работы с графикой в pascal abc используется модуль GraphABC. Для его подключения используется следующий код:

uses GraphABC; begin . end.

Система координат в Паскале соответствует экранной системе координат и выглядит следующим образом:

Управление цветом

Для того, чтобы использовать цвет, необходимо применить этот цвет к инструменту перо:

SetPenColor(color) — устанавливает цвет пера, задаваемый параметром color;
setBrushColor(color) — устанавливает цвет кисти, задаваемый параметром color;
либо для палитры RGB: SetPenColor(rgb(0-255, 0-255, 0-255));

или использовать для заливки:

После чего можно использовать процедуры для рисования геометрических фигур.

clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый
clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный

Точки, отрезки и ломаные

Для отображения точки в паскале используется процедура:

uses GraphABC; begin SetPixel(300,200,clred); end.

Для рисования линии используется:

uses GraphABC; begin SetPenColor(clgreen); line(100,50,500,250); end.

Ломаные можно рисовать с помощью процедур MoveTo (x1, y1) и LineTo (x2, y2) .
Процедуры работают в паре: MoveTo передвигает курсор в определенную точку, а процедура LineTo рисует линию с этой точки до точки, определенной параметром данной процедуры.

uses GraphABC; begin . SetPenColor(clblue); MoveTo (x1, y1); LineTo (x2, y2); LineTo (x3, y3); LineTo (x4, y4); LineTo (x5, y5); end.

Задание 0: При помощи операторов SetPenColor(), LineTo (x2, y2) и MoveTo (x1, y1) нарисовать квадрат и равносторонний треугольник.

[Название файла: L4_2task0.pas ]

Для установки размеров графического окна используется процедура

Рисование фигур

uses GraphABC; begin Rectangle(50,50,200,200); end.

uses GraphABC; begin Rectangle(50,50,200,200); FloodFill(100,100,clBlue); end.

Line(x1,y1,x2,y2);
LineTo(x,y);

uses GraphABC; begin setpenwidth(20); setpencolor(clred); moveTo(300,100); lineTo(500,300); lineto(100,300); lineto(300,100); floodfill(300,200,clgreen); end.

uses GraphABC; begin Circle(500,200,100); FloodFill(500,200,clred); end.

uses GraphABC; Begin SetPenWidth(10); Arc(300,250,150,45,135); end.

[Название файла: L4_2task1.pas ]

[Название файла: L4_2task2.pas ]

Функция random для использования окраски

Задание 3: Нарисовать горизонтальный ряд окружностей радиусом 10 на расстоянии 100 от верхнего края экрана и с такими горизонтальными координатами 50, 80, 110, 140, … , 290.

* раскрасить круги случайным цветом

[Название файла: L4_2task3.pas ]

[Название файла: L4_2task4.pas ]

Задание 5:
Воспроизвести изображение при помощи программы:

[Название файла: L4_2task5.pas ]

Нарисовать штриховку на Паскале можно, используя процедуры рисования прямоугольника и линии:

Программа будет выглядеть следующим образом:

uses graphABC; var i, x1, x2, y1, y2, N: integer; h, x: real; begin x1 := 100; y1 := 100; x2 := 300; y2 := 200; N := 10; Rectangle (x1, y1, x2, y2); h := (x2 - x1) / (N + 1); x := x1 + h; for i:=1 to N do begin Line(round(x), y1, round(x), y2); x := x + h; end; end.

[Название файла: L4_2task6.pas ]

Анимация в Паскале

Анимация в программировании заключается в том, что сначала рисуется фигура цветным инструментом, затем с тем же координатами рисуется та же фигура белым цветом. После чего происходит сдвиг фигуры и действия повторяются.

uses GraphABC; var x:integer; begin x:=40; repeat SetPenColor(clWhite); Circle(x,100,10); SetPenColor(clBlack); Circle(x,100,10); x:=x+1 until x>600; end.

Задание 7: Выполнить анимацию движения квадрата по следующей траектории:

Существуют программы специального назначения, нацеленные на работу с электронными таблицами. Обычно в их функциональность входят инструменты составления диаграмм по заданному диапазону данных, который изначально вводится в таблицу или создается вместе с объектом. Мы рассмотрим этот способ на примере двух популярных представителей ПО для работы с электронными таблицами.

Microsoft Excel

Каждый, кто хотя бы несколько раз сталкивался с решением различных офисных задач на компьютере, точно слышал о существовании Microsoft Excel. Это известная программа, позволяющая заниматься бухгалтерией и другими видами учетов при помощи электронных таблиц, но может пригодиться и для других целей. Создание диаграммы любого типа, в том числе и круговой, в Экселе — дело несложное и займет буквально пару минут. Об этом рассказывает другой наш автор в статье по ссылке ниже.

OpenOffice Calc

Если приведенный выше вариант вас не устраивает из-за платного распространения, рекомендуем обратить внимание на бесплатный аналог под названием Calc от OpenOffice. Это компонент пакета офисных программ, который предназначен для работы с электронными таблицами и обладает всеми нужными функциями, полезными и при создании круговой диаграммы. Давайте детальнее разберем, как происходит выполнение данной операции в OpenOffice Calc.

В последнем способе статьи мы еще раз поговорим о средствах для создания электронных таблиц, но это будут уже бесплатные онлайн-сервисы. Если вы предпочитаете их программам, рекомендуем прочитать и эти инструкции.

Способ 2: Текстовые редакторы

Если вы изначально работаете с текстовыми форматами файлов, а не с таблицами, использовать предыдущий тип программ просто бессмысленно, особенно учитывая наличие подходящих функций в популярных текстовых редакторах. Далее вы сами сможете убедиться в том, что тот же Word или OpenOffice Writer можно смело применять для добавления круговых диаграмм на листы и вклинивать их в документ с текстом.

Microsoft Word

OpenOffice Writer

Как и в прошлый раз, расскажем о бесплатной альтернативе в виде OpenOffice Writer, которую тоже можно использовать для построения круговой диаграммы с ее дальнейшей интеграцией в текстовый документ. Рассмотрим пошаговое представление того, как это происходит:

Способ 3: Презентации

Круговая диаграмма может быть и частью презентации, поэтому ее нужно вставить еще на стадии редактирования. Сделать это можно при помощи тех же программ, где и осуществляется работа со слайдами. По традиции разберем два варианта: платный и бесплатную альтернативу, а вы сможете подобрать подходящий для себя.

Microsoft PowerPoint

OpenOffice Impress

Обладатели набора программ OpenOffice могут использовать компонент под названием Impress, который не только идеально подходит для работы с презентациями, но и позволяет вставить в них диаграмму, в том числе и круговую.

Способ 4: Онлайн-сервисы

Онлайн-сервисы представляют собой такие же решения для работы с электронными таблицами, но непосредственно в браузере, без необходимости загрузки дополнительного ПО.

Google Таблицы

Google Таблицы — бесплатный инструмент от известной компании, позволяющий управлять своими проектами в сети и сохранять их в облаке. Этот сервис предоставляет и функцию для создания круговой диаграммы, а использовать ее можно так:

Excel Онлайн

Компания Microsoft сделала облегченные онлайн-версии своих популярных программ и позволяет использовать их бесплатно прямо в браузере. Поэтому предлагаем попробовать Excel Онлайн, чтобы узнать, чем отличается этот сервис от предыдущего и как в нем создать круговую диаграмму.

Мы рады, что смогли помочь Вам в решении проблемы.

Отблагодарите автора, поделитесь статьей в социальных сетях.

Опишите, что у вас не получилось. Наши специалисты постараются ответить максимально быстро.

Читайте также: