Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.87/15: Рейтинг темы: голосов - 15, средняя оценка - 4.87
3 / 0 / 0
Регистрация: 02.06.2017
Сообщений: 31
1

Построить круговую диаграмму “Нормы питания"

02.06.2017, 09:23. Показов 2891. Ответов 2
Метки нет (Все метки)

Построить круговую диаграмму “Нормы питания девочек 11-13 лет”. Девочки 11-13 лет должны получать в день 85г белков, 85г жиров, 340г углеводов.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2017, 09:23
Ответы с готовыми решениями:

Построить круговую диаграмму
В диаграмме отразить долю каждого государства в выпуске космических аппаратов за 1997 год ...

Составить круговую диаграмму
Части света имеют площади (в млн. км): Европа -10,5; Азия – 44,4; Африка – 30, 32; Северная...

Напишите программу,которая выводит на экран круговую диаграмму,отражающую товарооборот в % книж. магазина
Ребят помогите исправить ошибки!:read: // program diagram; uses crt; const x:array of...

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

2
4432 / 2178 / 2141
Регистрация: 10.12.2014
Сообщений: 8,319
02.06.2017, 09:29 2
Лучший ответ Сообщение было отмечено lifeonh1gh как решение

Решение

Лень воспользоваться поиском?
Составить круговую диаграмму

Вот вам вариант под ваши данные:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses GraphABC;
begin
  var data := Arr(
    (85, 'белков, г.', clYellow),
    (85, 'жиров, г.', clLime),
    (340, 'углеводов, г.', clRed)
  );
  
  setWindowSize(600, 600);
  SetFontSize(10);
  var sum := data.Sum(v -> v[0]);
  data.Numerate(0).Aggregate(0, (a, b) ->
    begin
      var inf := b[1];
      result := a + round(inf[0] * 360 / sum) + 1;
      SetBrushColor(inf[2]);
      Pie(200, 240, 140, a, result);
      textout(400, b[0] * 25, inf[1]);
      textout(550, b[0] * 25, floattostr(inf[0]));
    end);
end.
Скажем спасибо Volvo.
0
3 / 0 / 0
Регистрация: 02.06.2017
Сообщений: 31
02.06.2017, 09:30  [ТС] 3
Спасибо друг)
P.S. Спасибо Volvo <3
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.06.2017, 09:30

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Построить столбиковую диаграмму,
Построить столбиковую диаграмму, отображающую рост цен на бензин? Как построить????

Построить столбчатую диаграмму
Пожалуйста помогите,очень срочно. Буду премного благодарен. Задание: Постройте столбчатую...

Построить столбчатую диаграмму выпадения осадков
Построить столбчатую диаграмму выпадения осадков /мм/ за пол года в Казани. По таким данным: январь...

Построить секторную диаграмму для данных чисел
Помогите с простенькой задачкой :) Дано пять целых чисел a1...a5 Построить секторную диаграму для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.