Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 24.04.2012
Сообщений: 5
1

Массив. Построить круговую диаграмму по заданному пользователем массиву

24.04.2012, 10:41. Показов 1499. Ответов 2
Метки нет (Все метки)

Построить круговую диаграмму по заданному пользователем массиву. Количество элементов массива задается пользователем.Возле каждого сектора подписать его размер в процентах от всего круга.
_____________
Заранее спасибо
0

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

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.04.2012, 10:41
Ответы с готовыми решениями:

Построить круговую диаграмму
Дан массив вещественные чисел, построить круговую диаграмму Можео ли вообще при помощи Си...

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

Построить круговую диаграмму 1-но и 2-ух мерную
Построить круговую диаграмму 1-но и 2-ух мерную из 7 штук случайных чисел в диапазоне от 5 до 15....

По заданному массиву A(n) построить массив C(n), для которого:
По заданному массиву A(n) построить массив C(n), для которого: c1=a1; c2=a1+a2; ………………...

2
тыдыщ
206 / 189 / 166
Регистрация: 19.01.2011
Сообщений: 481
24.04.2012, 19:03 2
Лучший ответ Сообщение было отмечено anticher как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
uses
  graphabc;
 
var
  a: array[1..100] of integer;
  i, j, n, sum,h: integer;
  q: real;
 
begin
  read(n);
  writeln('Ваш массив:');
  for i := 1 to n do
  begin
    a[i] := random(10) + 1;
    inc(sum, a[i]);
  end;
  Circle(250, 250, 100);
  for i := 1 to n do
  begin
    write(i, ': ', a[i]:2);
    q := a[i] / sum * 360;
    a[i] := trunc(q);
    writeln(' (', a[i], '°)');
  end;
  for i := 1 to 360 do
    for j := 1 to n do
      if a[j] = i then
      begin
        inc(h,a[j]);
        line(250, 250, trunc(100*(sin(h*pi/180)))+250, trunc(100*(cos(h*pi/180)))+250);
      end;
end.
Добавлено через 19 секунд
фух, первый раз с графабц работал)
1
0 / 0 / 0
Регистрация: 24.04.2012
Сообщений: 5
24.04.2012, 20:58  [ТС] 3
благодарю)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.04.2012, 20:58

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

Построить круговую диаграмму успеваемости студентов группы по ТА
78. Построить круговую диаграмму успеваемости студентов группы по ТА.

Построить круговую диаграмму “Нормы питания"
Построить круговую диаграмму “Нормы питания девочек 11-13 лет”. Девочки 11-13 лет должны получать в...

Как построить круговую диаграмму или график
Здравствуйте, интересуют круговые диаграммы и графики в C#, где можно найти конкретную информацию,...

Построить круговую диаграмму, отображающую процентное соотношение отличников
Помогите, пожалуйста, составить программу!!! Построить круговую диаграмму, отображающую...


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

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

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