0 / 0 / 0
Регистрация: 05.02.2017
Сообщений: 10
1

Напишите программу, которая выводит на экран круговую диаграмму

08.02.2017, 14:18. Показов 1946. Ответов 2
Метки нет (Все метки)

Напишите программу, которая выводит на экран круговую диаграмму , отражающую
товарооборот (в процентах) книжного магазина. Исходные данные 30% 35% 30% 5%.
Миниатюры
Напишите программу, которая выводит на экран круговую диаграмму  
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.02.2017, 14:18
Ответы с готовыми решениями:

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

Напишите программу, которая n раз выводит на экран текст
Напишите программу, которая n раз выводит на экран текст истории о попе и его собаке(рассказ в...

Напишите программу, которая выводит на экран заданную последовательность
Напишите программу, которая выводит на экран последовательность из N чисел: 1, -2, 4, -8,...и т.д....

Напишите программу которая выводит на экран таблицу умножения на n
напишите программу которая выводит на экран таблицу умножения на n (n-целое число в диапазоне от 2...

2
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
08.02.2017, 15:54 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
uses graphABC;
const x:array[1..4] of integer=(30,35,30,5); //массив значений
      cv:array[1..4]of integer=(clRed,clGreen,clBlue,clLime); //массив цветов
var i,c,r,x1,y1:integer;
    y:array[1..4] of real;//массив удельных весов
    s,a,b:integer;//сумма, углы
begin
s:=0;
for i:=1 to 4 do
s:=s+x[i];
for i:=1 to 4 do
y[i]:=x[i]*100/s;
setwindowsize(500,500);
centerwindow;
c:=250;
setfontsize(16);
textout(c-120,20,'Товарооборот в процентах');
b:=round(360*y[1]/100);
r:=150;
setpencolor(cv[1]);
setbrushcolor(cv[1]);
pie(c,c,r,0,b);
x1:=c+round((r+30)*cos(b/2*pi/180));
y1:=c-round((r+30)*sin(b/2*pi/180));
setbrushstyle(bsClear);
setfontcolor(cv[1]);
textout(x1,y1,inttostr(x[1])+' %');
for i:=2 to 3 do
 begin
  a:=round(360*y[i]/100)+b;
  setpencolor(cv[i]);
  setbrushcolor(cv[i]);
  setbrushstyle(bsSolid);
  pie(c,c,r,b,a);
  x1:=c+round((r+50)*cos((b+(a-b)/2)*pi/180));
  y1:=c-round((r+20)*sin((b+(a-b)/2)*pi/180));
  setbrushstyle(bsClear);
  setfontcolor(cv[i]);
  textout(x1,y1,inttostr(x[i])+' %');
  b:=a;
 end;
setpencolor(cv[4]);
setbrushcolor(cv[4]);
setbrushstyle(bsSolid);
pie(c,c,r,b,360);
setbrushstyle(bsClear);
setfontcolor(cv[4]);
x1:=c+round((r+20)*cos((b+(360-b)/2)*pi/180));
y1:=c-round((r-100)*sin((b+(360-b)/2)*pi/180));
textout(x1,y1,inttostr(x[4])+' %');
end.
Добавлено через 3 минуты
Если Паскаль АВС.net, то
Pascal
1
cv:array[1..4]of Color
1
0 / 0 / 0
Регистрация: 05.02.2017
Сообщений: 10
09.02.2017, 18:50  [ТС] 3
Спасибо!)) Очень помогли!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.02.2017, 18:50
Помогаю со студенческими работами здесь

Напишите программу, которая выводит на экран первую цифру целого числа
Дано двухзначное целое число . Напишите программу , которая выводит на экран первую цифру этого...

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

Написать программу, которая выводит круговую диаграмму.
Написать программу, которая выводит круговую диаграмму, отображающую товарооборот (в %)книжного...

Написать программу, которая выводит круговую диаграмму, отражающую товарооборот (в процентах) книжного магазина
8. Написать программу, которая выводит круговую диаграмму, отражающую товарооборот (в процентах)...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru