добрый вечер помгите с диаграммой на паскал АВС

@vladikvostok · Регистрация: 01.12.2013

Студворк — интернет-сервис помощи студентам

нужно сделать чтобы отрисовывался по отдельности каждая диаграмма( полный круг)по очереди начиная с красного потом зеленый потом жотый в условия случайного изминения переменных массива и на circle(300,50,10);отрисовывался цвет тово сектора каторый сечас вырисовывается в данный момент чтото вроде индикатора состояний

Pascal

Program Diagrama;
Uses crt, GraphAbc;
Const b: array[1..3] of string = ('загрузка стиральной машины','стирка', 'отжим ');
      col: array[1..3] of integer = (clYellow,clLime,clRed);
Var u, u0, S, i, j: integer;
    A: array[1..3] of integer;
Begin
randomize;
setWindowSize(400,400);
lockdrawing;
hidecursor;
repeat
clearwindow;
s:=100;  u0:=0;
A[1]:=7+random(4);
A[3]:=7+random(4);
A[2]:=100-A[1]-A[3];
for i:=1 to 3 do
 begin
  gotoXY(1,i);
  Writeln(b[i],' КПД ', round(100*A[i]/S), '%');    { строка таблицы }
  SetBrushColor(col[i]);
  u:=u0 + round(A[i]*360/S);
  Pie(220,240,140,u0,u);
  circle(350,100,10);
  u0:=u;
  delay(1000)
 end;
delay(1000);
redraw;
until keypressed;
End.

Опции темы