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

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


textual

Код к задаче: «Напишите программу,которая выводит на экран круговую диаграмму,отражающую товарооборот в % книж. магазина - Pascal»

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.

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 3.667 из 5



Похожие ответы
  1. Напишите процедуру, которая вычисляет трёхзначное число m, состоящее из трех цифр. Первая цифра – m3 - сотни, вторая – m2 - десятки и третья - m0 - единицы. Вычислить пять трехзначных чисел. Процедуру оформить несколькими способами. Заранее, большое спасибо.

  1. Напишите функцию, которая возвращает наименьшее из значений |x-y|, |y-z|, |z-x|.

  1. Напишите программу, которая выводит в столбец произведения чисел а = 143, b = 777 и чисел 1, 2, 3, ... 9. Результаты решения этой задачи могут удивить и озадачить. Тысячелетиями человечество, выполняя различные вычисления, находило среди чисел и результатов операций с ними интересные закономерности. Некоторым числам, например, 3, 7, 13, 666 и т. п., придавалось мистическое значение. В наше время, имея доступ к компьютеру, можно целенаправленно заниматься поиском различных «фокусов» с числами. Как правило, такой поиск требует значительных переборов вариантов и по силам только компьютеру.

  1. Напишите программу для данного рисунка:

  1. Напишите функцию для вычисления значения y. у = 2x^2, если x ≤ 1, y = x+1/3, если 1 ≤ x≤8, y = √sin^2 x, если x ≥ 8.

  1. Здравствуйте,помогите пожалуйста написать код,спасибо.Напишите программу, которая заполняет массив из N элементов в обратном порядке последовательными натуральными числами, начиная с последнего элемента, который должен быть равен X . Входные данные Входная строка содержит два целых числа: начальное значение X и размер массива N , разделённые пробелом. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна вывести содержимое массива: убывающую последовательность из N последовательных натуральных чисел; последний элемент должен быть равен X . Примеры входные данные 6 4 выходные данные 9 8 7 6

  1. Помогите пожалуйста написать код.Напишите программу, которая сортирует массив по возрастанию "методом камня": аналогично "методу пузырька", но в обратном порядке: самый "тяжелый" элемент из оставшихся спускается к концу массива. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна выводить весь массив после каждой перестановки элементов. Все элементы массива выводятся в одну строку и разделяются пробелами, после окончания вывода массива выполняется переход на новую строку. Если перестановок не было, программа выводит только число 0. Примеры входные данные 4 4 3 2 1 выходные данные 3 4 2 1 3 2 4 1 3 2 1 4 2 3 1 4 2 1 3 4 1 2 3 4

  1. Помогите написать код,спасибо.Напишите программу, которая сортирует массив целых чисел и определяет количество различных значений в нём. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 10000 . Выходные данные Программа должна вывести в первой строке элементы массива, отсортированного в порядке возрастания, а во второй строке – количество различных чисел в массиве. Примеры входные данные 6 6 2 1 3 6 2 выходные данные 1 2 2 3 6 6 4

  1. Здравствуйте,помогите пожалуйста написать код.Напишите программу, которая сортирует по возрастанию все элементы массива с нечётными номерами. При этом все элементы с чётными номерами должны остаться на своих местах. Нумерация элементов массива начинается с единицы. Входные данные Первая строка содержит размер массива N . Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 0 < N ≤ 100000 . Выходные данные Программа должна вывести все элементы отсортированного массива в одну строку, разделив их пробелами. Примеры входные данные 6 6 5 4 3 2 1 выходные данные 2 5 4 3 6 1