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

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

Программа ниже представляет собой пример решения задачи по построению круговой диаграммы для показателей здорового питания: белки - 15%, жиры - 20%, углеводы - 65%.

pascal

program КруговаяДиаграмма;



uses

  Crt, Graph;



const

  Belki = 15;

  Zhiri = 20;

  Uglevody = 65;



var

  GraphDriver, GraphMode: smallint;

  MaxX, MaxY: integer;



procedure DrawPieChart(startAngle, endAngle: integer; color: integer);

var

  angle: double;

  X, Y: integer;

begin

  angle := (endAngle - startAngle) * 3.14159 / 180;



  X := MaxX div 2;

  Y := MaxY div 2;



  SetColor(color);

  PieSlice(X, Y, startAngle, endAngle, MaxX div 2);

end;



begin

  GraphDriver := VGA;

  GraphMode := VGAHi;

  InitGraph(GraphDriver, GraphMode, "");



  MaxX := GetMaxX();

  MaxY := GetMaxY();



  // Определяем границы секторов диаграммы

  var startAngleBelki := 0;

  var endAngleBelki := round(360 * Belki / 100);



  var startAngleZhiri := endAngleBelki;

  var endAngleZhiri := startAngleZhiri + round(360 * Zhiri / 100);



  var startAngleUglevody := endAngleZhiri;

  var endAngleUglevody := startAngleUglevody + round(360 * Uglevody / 100);



  // Рисуем секторы диаграммы

  DrawPieChart(startAngleBelki, endAngleBelki, LightGreen);

  DrawPieChart(startAngleZhiri, endAngleZhiri, Yellow);

  DrawPieChart(startAngleUglevody, endAngleUglevody, LightBlue);



  ReadLn;

  CloseGraph;

end.

Например:
Вы можете скопировать программу на языке Паскаль и выполнить ее в среде разработки PascalABC.NET или в другой программной среде, поддерживающей язык Паскаль. После запуска программы вы увидите круговую диаграмму, которая показывает соотношение показателей здорового питания (белки - 15%, жиры - 20%, углеводы - 65%).

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

Задача на проверку:
Измените программу так, чтобы показатели здорового питания были следующими: белки - 20%, жиры - 30%, углеводы - 50%. Отобразите новую круговую диаграмму.