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

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

09.04.2011, 16:29. Показов 2682. Ответов 1
Метки нет (Все метки)

Написать программу, которая выводит круговую диаграмму, отражающую товарооборот (в процентах) книжного магазина. Исходные данные (объем продаж в рублях по категориям: книги, журналы, открытки и канцтовары) вводятся во время работы программы. Пример диаграммы приведен ниже.
Вложения
Тип файла: docx Документ Microsoft Office Word (7).docx (16.9 Кб, 44 просмотров)
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2011, 16:29
Ответы с готовыми решениями:

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

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

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

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

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
09.04.2011, 17:27 2
Лучший ответ Сообщение было отмечено Rubal как решение

Решение

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
52
53
program diagram;
uses crt, graph;
const
x:array[1..4] of string=('Knigi','Zurnaly','Kanctovary','Proctee');
var dr,mode,i,xc,yc,r:integer;
    y:array[1..4] of real;
    s:real;
    a,b:longint;
    st:string;
begin
clrscr;
s:=0;
writeln('Vvedite tovarooborot po vidam:');
for i:=1 to 4 do
 begin
  write(x[i],'=');
  readln(y[i]);
  s:=s+y[i];
 end;
for i:=1 to 4 do
y[i]:=y[i]*100/s;
dr:=detect;
initgraph(dr,mode,'');
xc:=GetMaxX div 2;
yc:=GetMaxY div 2;
outtextxy(Xc-80,20,'Tovarooborot po vidam, %');
b:=round(360*y[1]/100);
r:=150;
setcolor(10);
setfillstyle(1,11);
pieslice(xc,yc,0,b,r);
for i:=2 to 3 do
 begin
  a:=round(360*y[i]/100)+b;
  setcolor(10+i);
  setfillstyle(1,10+i);
  pieslice(xc,yc,a,b,r);
  b:=a;
 end;
setcolor(14);
setfillstyle(1,14);
pieslice(xc,yc,b,360,r);
for i:=1 to 4 do
 begin
  setcolor(i+10);
  setfillstyle(1,i+10);
  bar(xc+150,i*40,xc+180,i*40+20);
  setcolor(15);
  str(y[i]:0:2,st);
  outtextXY(xc+190,i*40+5,x[i]+'-'+st);
 end;
readkey;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2011, 17:27
Помогаю со студенческими работами здесь

Вывести на экран круговую диаграмму
Помогите написать программу. Вывести на экран круговую диаграмму.Программу написать с помощью...

Постройте диаграмму отражающую динамику в высоте столбца размера МОС
Доброго времени суток мастера программирования. ПОЖАЛУЙСТА ПОМОГИТЕ! уже не знаю что делать.....

Книжного магазина - Расчет за книгу
Здравствуйте. помогите, пожалуйста составить программу для книжного магазина: 1.Просит ввести цену...

Как построить график/диаграмму отражающую макимальную производительность участка в целом?
Всем привет.народ,помогите пожалуйста.Есть задача,даны 2 вида станка, их производительность.Одного...


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

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

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