Домашние задания: Информатика

ABCPascal не робит программа, помогите

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


uses GraphAbc;const n = 4; X0 = 320; Y0 =240; R = 150;
var V : array[1 .. n] of integer;var u, u0, S : integer;
var Scolor : array[1..n] of integer = (1,4,10,13); ('clYellow','clLime','clBrown','ClRed');

begin
WriteLn (' Сколько в классе отличников? '); ReadLn (V[1]); WriteLn (V[1]);
WriteLn (' Сколько в классе хорошистов? '); ReadLn (V[2]); WriteLn (V[2]);
WriteLn (' Сколько в классе троечников? '); ReadLn (V[3]); WriteLn (V[3]);
WriteLn (' Сколько в классе неуспевающих? '); ReadLn (V[4]); WriteLn (V[4]);

u0:=0;
u0:=u;ClearWindow(clSkyBlue);
SetWindowSize (2*X0, 2*Y0); S := 0;
for var i:=1 to n do S:=S + v[i]; { вычисление суммарной площади }
for var i:=1 to n do
begin
u:=u0 + round(v[i]*360/S)+1;
SetBrushColor(Scolor[i]);
Pie(X0 , Y0, R, u0, u); { Рисование сектора }u0:=u;
end;
end.
Людмила Ермолаева
Людмила Ермолаева
99
Чтобы не кошмариться с выбором цвета, поручить это неблагодарное дело воле случая (ДСЧ)
Тогда всё красиво!!!

uses GraphAbc;
const n = 4; X0 = 320; Y0 = 240; R = 150;
var V : array[1 .. n] of integer; var u, u0, S : integer;
begin
Write (' Сколько в классе отличников? '); ReadLn (V[1]);
WriteLn (' Сколько в классе хорошистов? '); ReadLn (V[2]);
WriteLn (' Сколько в классе троечников? '); ReadLn (V[3]);
WriteLn (' Сколько в классе неуспевающих? '); ReadLn (V[4]);
u0:=0;
ClearWindow(clSkyBlue);
SetWindowSize (2*X0, 2*Y0);
S := 0;
for var i:=1 to n do
S:=S + v[i]; { вычисление суммарной площади }
for var i:=1 to n do
begin
u:=u0 + round(v[i]*360/S)+1;
SetBrushColor(rgb(random(255),random(255),random(255)));
Pie(X0 , Y0, R, u0, u); { Рисование сектора }
u0:=u;
end;
end.



kamil-rufina.87
kamil-rufina.87
73 229
Лучший ответ
Людмила Ермолаева АААААААААААААААААА СПАСИБООООООООООО!!!!!
Для построения круговой диаграммы, отображающей процентное соотношение отличников, хорошистов и прочих, можно использовать следующий код на ABCPascal: 
 uses GraphAbc; 

const  

  n = 4;  

  X0 = 320;  

  Y0 = 240;  

  R = 150;  

var  

  V : array[1 .. n] of integer; 

  var u, u0, S : integer;  

  var Scolor : array[1..n] of integer = (1,4,10,13); ('clYellow','clLime','clBrown','ClRed');  

begin  

  WriteLn (' Сколько в классе отличников? ');  

  ReadLn (V[1]);  

  WriteLn (V[1]);  

  WriteLn (' Сколько в классе хорошистов? ');  

  ReadLn (V[2]);  

  WriteLn (V[2]);  

  WriteLn (' Сколько в классе троечников? ');  

  ReadLn (V[3]);  

  WriteLn (V[3]);  

  WriteLn (' Сколько в классе неуспевающих? ');  

  ReadLn (V[4]);  

  WriteLn (V[4]);  

  u0:=0;  

  u0:=u;  

  ClearWindow(clSkyBlue);  

  SetWindowSize (2*X0, 2*Y0);  

  S := 0;  

  for var i:=1 to n do  

    S:=S + v[i]; { вычисление суммарной площади }  

  for var i:=1 to n do  

  begin  

    u:=u0 + round(v[i]*360/S)+1;  

    SetBrushColor(Scolor[i]);  

    Pie(X0 , Y0, R, u0, u); { Рисование сектора } 

    u0:=u;  

  end;  

end.
В этом коде пользователь должен ввести количество отличников, хорошистов, троечников и неуспевающих. Затем программа вычислит суммарную площадь и построит круговую диаграмму, используя различные шаблоны и цвета для заливки секторов.
Сан Саныч Кожанов
Сан Саныч Кожанов
4 118
Людмила Ермолаева вылазит такая ошибка
kamil-rufina.87 Потому что писал БОТ - отсюда и ошибки! Он даже не удосужился проверить, работает программа или нет. Короче: Бот он и есть БОТ :)))

Похожие вопросы