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

Напишите программу,которая выводит на экран круговую диаграмму,отражающую товарооборот в % книж. магазина

05.02.2017, 13:08. Показов 968. Ответов 2
Метки нет (Все метки)

Ребят помогите исправить ошибки!

//
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;
const
x:array[1..4] of string=('Knigi','Zurnaly','Kanctovary','Proctee');
var dr,mode,i,xc,yc,r,detect,initgraph: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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.02.2017, 13:08
Ответы с готовыми решениями:

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

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

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

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

2
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
05.02.2017, 13:22 2
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 graph,crt;
const
x:array[1..4] of string=('Knigi','Zurnaly','Kanctovary','Proctee');
var dr,mode,i,xc,yc,r,detect: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.
1
0 / 0 / 0
Регистрация: 05.02.2017
Сообщений: 10
05.02.2017, 13:35  [ТС] 3
Благодарю за помощь!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.02.2017, 13:35
Помогаю со студенческими работами здесь

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

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

Написать программу, выводящую на экран круговую диаграмму
Написать программу, выводящую на экран круговую диаграмму успеваемости учеников в классе, если...

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


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

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

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