profile
Размещено 5 лет назад по предмету Информатика от syrkinki

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

  1. Ответ на вопрос
    Ответ на вопрос дан samirasaduova

    Объяснение:

    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]+'-'+s

Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.